Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gurusilk

com Código Estada/Cidade

Por , em ASP Clássico

Recommended Posts

gurusilk    0

gurusilk
Postado

To começando agora em ASP e to com uma enorme dificuldade nesta página.

 

Eu preciso do seguinte:

O estado aparece, mas quando clica nele é para buscar no banco de dados a cidade correspondente. Mas ai da o erro de PAGE NOT FOUND.

 

O que pode estar errado no código?? Não sei se o problema está no san ou no san2??

 

 

 

<HTML><HEAD><TITLE>Getin® <-- O Revolucionário Método de Busca --> </TITLE></HEAD><style>body {scrollbar-face-color: #7C9BBA;scrollbar-highlight-color: "#7C9BBA";scrollbar-shadow-color: #305170; scrollbar-3dlight-color: "#7C9BBA";scrollbar-arrow-color: #305170; scrollbar-track-color: #305170; scrollbar-darkshadow-color: #305170; }</style><body bgcolor="#F7F7F7" topmargin="0" leftmargin="0" link="#315273" vlink="#315273" alink="#315273"><banner><banner><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="89%" height="1"><tr><td width="13%" height="1"><font color="#315273"><img border="0" src="../../Menu/busca.gif" width="79" height="54"></font></td><td width="87%" height="1" valign="bottom"><font color="#315273"><span style="font-weight: 400"><i><font face="Arial" style="font-size: 14pt">TURISMO - BUSCA DE </font></i></span></font><i><font face="Arial" style="font-size: 14pt" color="#315273">CIDADES</font></i></td></tr><tr><td width="100%" height="7" colspan="2"></td></tr><tr><td width="100%" height="7" background="../../Menu/fundo_azul.gif" colspan="2"><span style="font-size: 5pt"> </span></td></tr></table></center></div></banner><script>function Bia(){document.form1.submit(); }</script><form name = "form1" method="post" action = "turismo.asp"> <center> <br><table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="50%"><tr><td width="36%"><i><font color="#315273" face="Arial"><font style="font-size: 8pt">ESTADO:</font><banner><span style="font-size: 8pt"></span></banner></font></i> </td><td width="86%" colspan="2"><banner><% estado= request.form("txtestado")cidade= request.form("txtcidade")tipo= request.form("txttipo")%><font face="Arial"><select size="1" name="txtestado" class="form" onchange= "Bia();"><option selected><%=estado%></option><option>AC - Acre </option><option>AL - Alagoas </option><option>AM - Amazonas </option><option>AP - Amapá </option><option>BA - Bahia </option><option>CE - Ceará </option><option>DF - Distrito Federal </option><option>ES - Espírito Santo </option><option>GO - Goiás </option><option>MA - Maranhão </option><option>MG - Minas Gerais </option><option>MS - Mato Grosso do Sul </option><option>MT - Mato Grosso </option><option>PA - Pará </option><option>PB - Paraíba </option><option>PE - Pernambuco </option><option>PI - Piauí </option><option>PR - Paraná </option><option>RJ - Rio de Janeiro </option><option>RN - Rio Grande do Norte </option><option>RO - Rondônia </option><option>RR - Roraima </option><option>RS - Rio Grande do Sul </option><option>SC - Santa Catarina </option><option>SE - Sergipe </option><option>SP - São Paulo </option><option>TO - Tocantins </option></select></font></banner></td></tr><tr><td width="36%"><i><font color="#315273" style="font-size: 8pt" face="Arial">CIDADE:  </font></i></td><td width="86%" colspan="2"><banner><font size="2"><select size="1" name="txtcidade"><%estado= request.form("txtestado")if estado<>"" thenAnaend if%><% Function Ana()Set cn = Server.CreateObject("ADODB.Connection")cn.Open= "Driver={SQL Server};Server=SQL09;Database=xxxxxxx;Uid=xxxxxxx;Pwd=xxxxxxx;"Set rs2 = Server.CreateObject ("Adodb.Recordset") san2="select * from Cidade where Estado = '"& estado &"'order by cidade"Response.Write san2rs2.Open san2, cn,1,1 do while not rs2.eofcity= rs2("cidade")city= trim(city)if (city<>cid) thenresponse.write "<option selected>"&cityresponse.write "</option>" end ifcid= city rs2.movenext loop rs2.closeset rs2 = nothingx=1%><option selected><%=cidade%></option> </select></font></banner></td><% End Function%> </tr><tr><td width="36%"><i><font color="#315273" style="font-size: 8pt" face="Arial">TIPO: </font></i></td><td width="86%" colspan="2"><span class="small"><font face="Arial"><select name="txttipo" ><option selected><%=tipo%></option><option>Aquático</option><option>Ecológico</option><option>Relax</option><option>Gastronômico</option><option>Campestre</option><option>Todas</option></select>  </font></td></tr><tr><td width="36%"><i><font color="#315273" style="font-size: 8pt" face="Arial">PALAVRA-CHAVE</font></i></td><td width="49%"><% if y="1" thenresponse.write "<input type=text name=txtpalavrachave size=20 maxlength=20 ></td>"elseresponse.write "<input type=text name=txtpalavrachave size=20 maxlength=20 value="& chr(34)& request.form("txtpalavrachave")& chr(34)&"> </td>"end if%> </banner></td><td width="37%"><banner><a href="java script:Bia();"><img border="0" src="../../Menu/ok.bmp"></a></banner></td></tr></table><font size= "3"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="89%" height="48" bgcolor="#F7F7F7"><tr><td width="100%" height="1"> </td></tr><tr><td width="100%" height="1" background="../../Menu/fundo_azul.gif"><span style="font-size: 5pt"> </span></td></tr><tr><%estado= request.form("txtestado")cidade= request.form("txtcidade")tipo= request.form("txttipo")y=0palavrachave= request.form("txtpalavrachave")if palavrachave="" theny=1end ifIf ((estado<>"") and (cidade<>"") and (tipo<>"")) thenListarResultadoEnd If%><%dim turismoFunction ListarResultado()dim cnestado= request.form("txtestado")cidade= request.form("txtcidade")tipo= request.form("txttipo")palavrachave= request.form("txtpalavrachave")if tipo="Todas" thentipo=""end ifSet cn = Server.CreateObject("ADODB.Connection")cn.Open= "Driver={SQL Server};Server=SQL09;Database=xxxxxxxxx;Uid=xxxxxxxxx;Pwd=xxxxxxxxx;"Set rs = Server.CreateObject ("Adodb.Recordset")if palavrachave= "" then san="select * from Turismo where Estado = '"& estado &"' and Cidade = '"& cidade &"' and Tipo like '%"& tipo &"&' order by Nome"elsesan="select * from Turismo where Estado = '"& estado &"' and Cidade = '"& cidade &"' and Tipo like '%"& tipo &"&' and Resumo like '%"& resumo &"%' order by Nome"end ifrs.Open san, cn,1,1 %><% do while not rs.eoflks=ucase(rs("Nome"))lks2=ucase(rs("Cidade"))lks3=rs("Código")%><td width="100%" height="19"> </td></tr><tr><td width="100%" height="19"><table width="89%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"><tr> <td width="50%"><p style="margin-left: 8"><a target="_self" href="turismo_mostra.asp?turismo=<%=cstr(lks3)%>"><%=lks%> <%=lks2%></a></td></tr></table><% rs.movenext%><% x=x+1loopif x<1 thenresponse.write "<CENTER>Não foi encontrado nenhum Hotel com o perfil acima.</CENTER> "end ifrs.closeset rs = nothingcn.closeset cn = nothing%><banner><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="82%"><tr><td width="100%"><font face="Arial" style="font-size: 8pt" color="#999999">  </font></td></tr><tr><td width="100%"><p align="center"><banner><font face="Arial">  <font color="#999999"><span style="font-size: 8pt">As informações cadastradas no banco de dados de Turismo, são disponibilizadas com o objetivo de assessorar os usuários do GETin,a montar um pacote Turístico mais detalhado.</span></font></font></banner></td></tr></table></center></div></banner><%End Function%></td></tr><tr><td width="100%" height="19"> </td></tr></table></center></div></form><div align="center"><table border="1" cellspacing="0" width="90%"><tr><td width="33%" align="center"><img border="0" src="../../anuncio/251.gif" width="135" height="58"></td><td width="33%" align="center"><img border="0" src="../../anuncio/329.gif" width="192" height="53"></td><td width="34%" align="center"><img border="0" src="../../anuncio/707.gif" width="159" height="70"></td></tr></table></div><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="93%"><tr><td width="100%"><banner><font size= "3"><a href="java script: history.back()"><img border="0" src="../../images/voltar.jpg" align="left"></a></font></banner></td></tr></table></center></div><p align="center"></p></font></banner></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

gurusilk    0

gurusilk
Postado

não existe a página turismo.asp

como assim desculpe a ignorância??este código é da página turismo.asp!!desculpe é que to começando mesmo, valeu!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

gurusilk    0

gurusilk
Postado

não existe a página turismo.asp

valeu era isto mesmo, eu tinho esquecido de renomear conforme tinha mudado....

 

mas to com outro problema agora:

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

 

/Radicaliza/Lazer/turismo.asp, line 332

 

o problema está nesta área acredito eu!!!!

 

 

<%

dim turismo

Function ListarResultado()

dim cn

 

estado= request.form("txtestado")

cidade= request.form("txtcidade")

tipo= request.form("txttipo")

palavrachave= request.form("txtpalavrachave")

 

if tipo="Todas" then

tipo=""

end if

 

Set cn = Server.CreateObject("ADODB.Connection")

cn.Open= "Driver={SQLServer};Server=SQL09;Database=xxxxxx;Uid=xxxxx;Pwd=xxxxx"

 

Set rs = Server.CreateObject ("Adodb.Recordset")

if palavrachave= "" then

san="select * from Turismo where Estado = '"& estado &"' and Cidade = '"& cidade &"' and Tipo like '%"& tipo &"&' order by Cidade"

else

san="select * from Turismo where Estado = '"& estado &"' and Cidade = '"& cidade &"' and Tipo like '%"& tipo &"&' order by Nome"

end if

 

rs.Open san, cn,1,1 %>

 

<% do while not rs.eof

lks=ucase(rs("Nome"))

lks2=ucase(rs("Cidade"))

lks3=rs("Código")

%>

<td width="100%" height="19"> 

</td>

</tr>

<tr>

<td width="100%" height="19">

 

 

<table width="89%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">

<tr>

<td width="50%">

<p style="margin-left: 8"><a target="_self" href="turismo_mostra.asp?turismo=<%=cstr(lks3)%>"><%=lks%> <%=lks2%></a></td>

 

</tr>

</table>

<% rs.movenext

%><% x=x+1

 

loop

 

if x<1 then

 

response.write "<CENTER>Não foi encontrado nenhum Hotel com o perfil acima.</CENTER> "

end if

rs.close

set rs = nothing

cn.close

set cn = nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito