graciane2004

tenho o seguinte código em um formulario, que está funcionando normalmente, só que quando envia o formulário queria que redirecionasse p/ a página ok.html, e não está aparecendo nada... alguém pode me ajudar? <? $cabecalho = "From: Gsites <gsites@gsites.com.br> "; // Seu email aqui $emailadmin = "gsites@gsites.com.br"; // seu site $siteadmin ="http://www.gsites.com.br"; // O nome da companhia $nomesite = "Gsites"; // pega a data do servidor $date = date("m/d/Y H:i:s"); // Pega o IP cliente - este aqui era pra ser segredo! hehehe if ($REMOTE_ADDR == "") $ip = "no ip"; else $ip = getHostByAddr($REMOTE_ADDR); //Processa e envia as informações coletadas no flash para o seu email //IF ($action != "") //{ $mens .= "Pedido "; $mens .= "Nome: $nome "; $mens .= "Email: $email "; $mens .= "Endereço: $endereco "; $mens .= "CEP: $cep "; $mens .= "Telefone: $telefone "; $mens .= "Celular : $celular "; $mens .= "Código: $cod_produto "; $mens .= "Quantidade: $quantidade "; $mens .= "Pagamento: $pgto "; $mens .= "Envio: $envio "; $mens .= "Comentários: $comentarios "; $mens .= "------------------------------ "; $mens .= "Informações: "; $mens .= "Usando: $HTTP_USER_AGENT "; $mens .= "Hostname: $ip "; $mens .= "Endereço de IP: $REMOTE_ADDR "; $mens .= "Data/Hora: $date "; mail("$emailadmin","Pedido","$mens","$cabecalho"); // echo "$send_answer"; //} ?>

k´s Muito obrigado! Valeu mesmo pela dica, já está funcionando! Beijos Graciane Moderadores, podem fechar o tópico! Mais um final feliz!!!

k´s Muito obrigado! Valeu mesmo pela dica, já está funcionando! Beijos Graciane

Sou iniciante em php e gostaria de saber qual código usar p/ que quando o usuario enviar o formulário, seja redirecionado p/ minha página obrigado.htm e não apareca a mensagem que é digitada no echo. obrigada

Oi pessoal, estou c/ uma dúvida: Tem como alterar o valor inicial do contador de acessos? Queria que começasse no 1200, por exemplo Obrigada

Moderadores, Podem fechar o tópico, consegui arrumar !!!

aí está a encrenca... 1ª PARTE <%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/connSobraci.asp" --> <% Dim rsConsulta__vArea rsConsulta__vArea = "A" if (Request.QueryString("Area") <> "") then rsConsulta__vArea = Request.QueryString("Area") %> <% set rsConsulta = Server.CreateObject("ADODB.Recordset") rsConsulta.ActiveConnection = MM_connSobraci_STRING rsConsulta.Source = "SELECT * FROM tClassificados WHERE Area = '" + Replace(rsConsulta__vArea, "'", "''") + "'" rsConsulta.CursorType = 0 rsConsulta.CursorLocation = 2 rsConsulta.LockType = 3 rsConsulta.Open() rsConsulta_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsConsulta_numRows = rsConsulta_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rsConsulta_total = rsConsulta.RecordCount ' set the number of rows displayed on this page If (rsConsulta_numRows < 0) Then rsConsulta_numRows = rsConsulta_total Elseif (rsConsulta_numRows = 0) Then rsConsulta_numRows = 1 End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 ' if we have the correct record count, check the other stats If (rsConsulta_total <> -1) Then If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total If (rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsConsulta_total = -1) Then ' count the total records by iterating through the recordset rsConsulta_total=0 While (Not rsConsulta.EOF) rsConsulta_total = rsConsulta_total + 1 rsConsulta.MoveNext Wend ' reset the cursor to the beginning If (rsConsulta.CursorType > 0) Then rsConsulta.MoveFirst Else rsConsulta.Requery End If ' set the number of rows displayed on this page If (rsConsulta_numRows < 0 Or rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total End If %> <html> 2ª PARTE <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font face="Arial" size="2">Classificado de <b><%=Request("Area")%></b></font></td> </tr> <tr> <td height="30" valign="top"><font size="1" face="Verdana">Total de <b><%=(rsConsulta_total)%></b> encontrado(s)</font></td> </tr> <tr> <td> <% If Not rsConsulta.EOF Or Not rsConsulta.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsConsulta.EOF)) %> <table width="90%" border="0" cellspacing="0" cellpadding="3" align="center"> <tr> <td bgcolor="#FFFF99"><b><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("Nome").Value)%></font></b></td> </tr> <tr> <td> <p><font face="Arial" size="2" color="#999999">End.: </font><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("EnderecoRes").Value)%>- <%=(rsConsulta.Fields.Item("CEP").Value)%> - <%=(rsConsulta.Fields.Item("Cidade").Value)%> - <%=(rsConsulta.Fields.Item("Estado").Value)%><br> <font color="#999999">Fone:</font> <%=(rsConsulta.Fields.Item("Telefone").Value)%></font><br> <font face="Arial" size="2" color="#999999">Descritivo:</font><font face="Arial" size="2"> <%=(rsConsulta.Fields.Item("Descritivo").Value)%></font></p> </td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsConsulta.MoveNext() Wend %> <% End If ' end Not rsConsulta.EOF Or NOT rsConsulta.BOF %> </td> </tr> </table> Se alguém puder me ajudar, agradeço muito abraços Graciane Ok, gente, depois de muito quebrar minha cabeça loira (tingida como 90% das loiras), consegui desvendar o mistério, já está funcionando... obrigados a todos! Moderadores, Podem fechar o tópico, mais um ponto p/ vocês!

aí está a encrenca... 1ª PARTE <%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/connSobraci.asp" --> <% Dim rsConsulta__vArea rsConsulta__vArea = "A" if (Request.QueryString("Area") <> "") then rsConsulta__vArea = Request.QueryString("Area") %> <% set rsConsulta = Server.CreateObject("ADODB.Recordset") rsConsulta.ActiveConnection = MM_connSobraci_STRING rsConsulta.Source = "SELECT * FROM tClassificados WHERE Area = '" + Replace(rsConsulta__vArea, "'", "''") + "'" rsConsulta.CursorType = 0 rsConsulta.CursorLocation = 2 rsConsulta.LockType = 3 rsConsulta.Open() rsConsulta_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsConsulta_numRows = rsConsulta_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rsConsulta_total = rsConsulta.RecordCount ' set the number of rows displayed on this page If (rsConsulta_numRows < 0) Then rsConsulta_numRows = rsConsulta_total Elseif (rsConsulta_numRows = 0) Then rsConsulta_numRows = 1 End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 ' if we have the correct record count, check the other stats If (rsConsulta_total <> -1) Then If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total If (rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsConsulta_total = -1) Then ' count the total records by iterating through the recordset rsConsulta_total=0 While (Not rsConsulta.EOF) rsConsulta_total = rsConsulta_total + 1 rsConsulta.MoveNext Wend ' reset the cursor to the beginning If (rsConsulta.CursorType > 0) Then rsConsulta.MoveFirst Else rsConsulta.Requery End If ' set the number of rows displayed on this page If (rsConsulta_numRows < 0 Or rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total End If %> <html> 2ª PARTE <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font face="Arial" size="2">Classificado de <b><%=Request("Area")%></b></font></td> </tr> <tr> <td height="30" valign="top"><font size="1" face="Verdana">Total de <b><%=(rsConsulta_total)%></b> encontrado(s)</font></td> </tr> <tr> <td> <% If Not rsConsulta.EOF Or Not rsConsulta.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsConsulta.EOF)) %> <table width="90%" border="0" cellspacing="0" cellpadding="3" align="center"> <tr> <td bgcolor="#FFFF99"><b><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("Nome").Value)%></font></b></td> </tr> <tr> <td> <p><font face="Arial" size="2" color="#999999">End.: </font><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("EnderecoRes").Value)%>- <%=(rsConsulta.Fields.Item("CEP").Value)%> - <%=(rsConsulta.Fields.Item("Cidade").Value)%> - <%=(rsConsulta.Fields.Item("Estado").Value)%><br> <font color="#999999">Fone:</font> <%=(rsConsulta.Fields.Item("Telefone").Value)%></font><br> <font face="Arial" size="2" color="#999999">Descritivo:</font><font face="Arial" size="2"> <%=(rsConsulta.Fields.Item("Descritivo").Value)%></font></p> </td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsConsulta.MoveNext() Wend %> <% End If ' end Not rsConsulta.EOF Or NOT rsConsulta.BOF %> </td> </tr> </table> Se alguém puder me ajudar, agradeço muito abraços Graciane

Aparentemente está tudo ok. é uma página de classificados, nos que não tem classificados cadastrados, está ok, mas os que tem, aparece: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator, and inform them of the time the error occurred and anything you might have done that may have caused the error. More information about this error may be available in the server error log. o que pode ser? Se quiserem ver o código eu coloco... obrigada www.sobraci.com/classificados/classificados.asp

Muito obrigado à todos, refiz o bd e deu certo... abraços Graciane moderadores, podem fechar o tópico.

estou querendo é uma idéia de como fazer os códigos, principalmente, a administração on line que o cliente terá q fazer (sou iniciante em asp, o q fiz até agora, foi instalar um forum pré pronto que está em www.sobraci.com), o programador q trabalhava comigo me deixou na mão, e esse site já tinha sido fechado... Estou estudando diariamente, em tutoriais on-line, apostilas, aqui mesmo no forum, só o que falta é tempo, pois este site era p/ ontem... obrigada pela atenção Gra

Por favor, gostaria de saber se algúm possui algum sistema de imobiliária para que eu possa estudar... estou começando com ASP agora, e me pediram p/ fazer um site. O programador que trabalhava junto comigo me deixou na mão e eu já tinha esse site p/ fazer... Se tiver e puder fornecer, vender, qualquer coisa, estou precisando p/ ontem... Estou precisando fazer um site de uma imobiliaria (q o cliente vai atualizar por lá) obrigada

Estou arrumando um site q está c/ um erro estranho, quando se faz a busca por classificados, se ele não acha nenhum (não tem nenhum cadastado) não dá erro nenhum, mas p/ todos os que tem classificados cadastrados no bd, aparece esse erro abaixo, o q será? o código está logo abaixo do erro: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator, and inform them of the time the error occurred and anything you might have done that may have caused the error. More information about this error may be available in the server error log 1ª PARTE <%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/connSobraci.asp" --> <% Dim rsConsulta__vArea rsConsulta__vArea = "A" if (Request.QueryString("Area") <> "") then rsConsulta__vArea = Request.QueryString("Area") %> <% set rsConsulta = Server.CreateObject("ADODB.Recordset") rsConsulta.ActiveConnection = MM_connSobraci_STRING rsConsulta.Source = "SELECT * FROM tClassificados WHERE Area = '" + Replace(rsConsulta__vArea, "'", "''") + "'" rsConsulta.CursorType = 0 rsConsulta.CursorLocation = 2 rsConsulta.LockType = 3 rsConsulta.Open() rsConsulta_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsConsulta_numRows = rsConsulta_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rsConsulta_total = rsConsulta.RecordCount ' set the number of rows displayed on this page If (rsConsulta_numRows < 0) Then rsConsulta_numRows = rsConsulta_total Elseif (rsConsulta_numRows = 0) Then rsConsulta_numRows = 1 End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 ' if we have the correct record count, check the other stats If (rsConsulta_total <> -1) Then If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total If (rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsConsulta_total = -1) Then ' count the total records by iterating through the recordset rsConsulta_total=0 While (Not rsConsulta.EOF) rsConsulta_total = rsConsulta_total + 1 rsConsulta.MoveNext Wend ' reset the cursor to the beginning If (rsConsulta.CursorType > 0) Then rsConsulta.MoveFirst Else rsConsulta.Requery End If ' set the number of rows displayed on this page If (rsConsulta_numRows < 0 Or rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total End If ' set the first and last displayed record rsConsulta_first = 1 rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1 If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total End If %> <html> 2ª PARTE <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font face="Arial" size="2">Classificado de <b><%=Request("Area")%></b></font></td> </tr> <tr> <td height="30" valign="top"><font size="1" face="Verdana">Total de <b><%=(rsConsulta_total)%></b> encontrado(s)</font></td> </tr> <tr> <td> <% If Not rsConsulta.EOF Or Not rsConsulta.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsConsulta.EOF)) %> <table width="90%" border="0" cellspacing="0" cellpadding="3" align="center"> <tr> <td bgcolor="#FFFF99"><b><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("Nome").Value)%></font></b></td> </tr> <tr> <td> <p><font face="Arial" size="2" color="#999999">End.: </font><font face="Arial" size="2"><%=(rsConsulta.Fields.Item("EnderecoRes").Value)%>- <%=(rsConsulta.Fields.Item("CEP").Value)%> - <%=(rsConsulta.Fields.Item("Cidade").Value)%> - <%=(rsConsulta.Fields.Item("Estado").Value)%><br> <font color="#999999">Fone:</font> <%=(rsConsulta.Fields.Item("Telefone").Value)%></font><br> <font face="Arial" size="2" color="#999999">Descritivo:</font><font face="Arial" size="2"> <%=(rsConsulta.Fields.Item("Descritivo").Value)%></font></p> </td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsConsulta.MoveNext() Wend %> <% End If ' end Not rsConsulta.EOF Or NOT rsConsulta.BOF %> </td> </tr> </table> Se alguém puder me ajudar, agradeço muito abraços Graciane

tenho que fazer um site igual a este (www.guarujalitoral.com.br), só que em ASP, o cliente quer alterar os anúncios ele mesmo, então criarei um sistema de administração onde ele incluirá, alterará e excluirá anúncios, até aí td bem, só q não sei como fazer p/ ele fazer a alteração das fotos maiores (quando clica na pequena e amplia, igual ao www.guarujalitoral.com.br), como faço?

Tenho um site em asp (o programador fugiu) , q tem um menu.ibi Preciso apenas inserir uma imagem no menu, mas p/ isso, tem que criar um arquivo.mno (pois todos os itens do menu tem esse arquivo), todos os outros arquivos tem esse código, o que muda é só o value q está em negrito. Tem q criar essa chave abaixo, como eu faço? sou leiga... onde gero essa numeração em negrito? <?xml version="1.0" encoding="iso-8859-1" ?> <info> <infoitem key="fw_source" value="/temp/site.png" /> <infoitem key="fw_slice_info" value="42a6c676 324 23f 0 0 320 4e 0" /> </info> obrigada

o bd é em access, o site tem: Clique no item abaixo para consultar os itens cadastrados: doação, criadores, doenças para que quando o usuário clique apareçam os classificados ref. a essas áreas, a mulher quer alterar, onde está criadores, mudará p/ compras, onde está doenças, para clínica veterinária, entendeu? abraços

Tenho uma dúvida imbecil, mas o programador que trabalhava comigo me deixou na mão e vou ter que aprender "a força", tem um site que já está no ar (em asp) e a dona do site quer alterar a estrutura do banco de dados, mudar a tabela(uma vez alterei o banco de dados via access e enviei p/ o servidor e o site saiu do ar, como faço p/ alterar? abraços