<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% vid_ponto_turistico = CInt(Request.QueryString("id")) vSql = "SELECT t1.*,t2.ds_subtitulo AS ds_subtitulo_corredor FROM TB_TUR_VISITE_PONTO_TURISTICO t1 " &_ "LEFT JOIN TB_TUR_VISITE_CORREDOR_TURISTICO t2 ON t1.id_corredor = t2.id_corredor " &_ "WHERE t1.id_idioma = 1 AND t1.sn_excluido = 'N' AND t1.id_ponto_turistico=" & vid_ponto_turistico Set myRst = Server.CreateObject("ADODB.Recordset") SqlExecute myRst, vSql If Not myRst.EOF Then vnm_ponto_turistico = myRst.fields("nm_ponto_turistico") vds_subtitulo = myRst.fields("ds_subtitulo") vds_ponto_turistico = Replace(myRst.fields("ds_ponto_turistico"), vbcrlf, "
") vid_corredor = myRst.fields("id_corredor") vds_latitude = Trim(myRst.fields("ds_latitude")) vds_longitude = Trim(myRst.fields("ds_longitude")) vds_subtitulo_corredor = myRst.fields("ds_subtitulo_corredor") vSql = "SELECT TOP 1 * FROM TB_TUR_VISITE_PONTO_TURISTICO_FOTO WHERE id_ponto_turistico = " & vid_ponto_turistico & " ORDER BY sn_destaque DESC" Set myRst = Server.CreateObject("ADODB.Recordset") SqlExecute myRst, vSql If Not myRst.EOF Then vnm_foto_background = myRst.fields("nm_arquivo") End If Else Response.Redirect("404.asp") End If %> <%=vnm_ponto_turistico%> / Visite Angra dos Reis

<%=vnm_ponto_turistico%>

<%=vds_subtitulo%>

<%=vds_ponto_turistico%>

<% vSql = "SELECT t1.*,t2.ds_foto FROM TB_TUR_VISITE_PONTO_TURISTICO_FOTO t1 " &_ "LEFT JOIN TB_TUR_VISITE_PONTO_TURISTICO_FOTO_DESCRICAO t2 ON t1.id_foto = t2.id_foto " &_ "WHERE t1.id_ponto_turistico = " & vid_ponto_turistico Set myRst = Server.CreateObject("ADODB.RecordSet") SqlExecute myRst, vSql If Not myRst.EOF Then %>

Galeria de Fotos

<% Do While Not myRst.EOF vnm_arquivo = myRst.fields("nm_arquivo") vnm_fotografo = Trim(myRst.fields("nm_fotografo")) vds_foto = myRst.fields("ds_foto") If vnm_fotografo <> "" Then vFotografo = " - Foto: " & vnm_fotografo End If %>

<% myRst.MoveNext Loop %>

<% If vds_latitude <> "" AND vds_longitude <> "" Then %>

Localização

Navegar até o ponto turístico

<% End If End If Set myRst = Nothing %>