 |
<%
letra=request.querystring("letra")
set conntemp=server.createobject("adodb.connection")
conexao = "DBQ=D:\webs\helic1\data\database\guiatour.mdb;Driver={Microsoft Access Driver (*.mdb)};"
conntemp.open conexao
set rs=server.createobject("adodb.recordset")
var_sql="SELECT * FROM cidades WHERE nome LIKE '%"& letra &"%' ORDER BY nome ASC"
teste=0
set rs=conntemp.execute(var_sql)
if rs.eof then
response.write " "
rs.close
set connection=nothing
else
while not rs.eof
cod=rs("cod")
nome=rs("nome")
pais=rs("pais")
chamada=rs("chamada")
letranome=mid(nome,1,1)
if letranome = letra then
%>
<%
response.write ""
response.write ""
response.write nome
response.write "
"
response.write ""
response.write chamada
response.write "
"
response.write " "
response.write pais
response.write " "
response.write continente
response.write "
"
response.write "
Saiba mais...
"
%> |
 "
border="1" width="150"
height="100"> |
<%
teste = cint(teste) + 1
rs.movenext
else
rs.movenext
end if
wend
rs.close
set connection=nothing
end if
if teste = 0 then
response.write "
Não há destinos cadastrados."
else
response.write " "
end if
%>
|
