<%@ Language=VBScript%>
Livro de Visitas
Obrigado pela sua visita à nossa página !
Espero que você tenha apreciado o passeio a bordo do Musashi !!!
Mensagens recebidas até o momento :
<%
Set cnn = server.CreateObject("ADODB.Connection")
cnn.Open "DBQ=" & Server.Mappath("db/musashi.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Persist Security Info=False"
Set rst = cnn.Execute("SELECT *,Day([dteguest]) & '/' & Month([dteguest]) & '/' & Year([dteguest]) & ' ' & TimeValue([dteguest]) AS dte FROM guest ORDER BY dteguest DESC")
While not rst.EOF
%>
<%=replace(rst("mensagem"),vbcr,"
")%>
<% if rst("url")<>"" then%>
">
<%End IF%>
<%=rst("Nome")%>
<"><%=rst("email")%>>
<%=rst("cidade")%>,
<%=rst("estado")%> <%=rst("pais")%> - <%=rst("dte")%>
<%
rst.movenext
Wend
rst.close
Set rst = Nothing
cnn.close
Set cnn = Nothing
%>
Home
