Rincon de Go
GoeDonkey
Directorio Ponme como tu Pagina de Inicio  Añadir a tus  Favoritos     Sugerir URL de interes  Chequea con Antivirus Online tu ordenador gratuítamente  Email  

Libro de visitas

Firmar el Libro

<% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 if request.querystring("insertado")<> "" then%> Tu mensaje ha sido insertado, muchas gracias <%end if if request.querystring("borrado")<> "" then%> El mensaje seleccionado ha sido borrado <%end if Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database/librovisitas.mdb")) set rs=createobject("ADODB.Recordset") 'rs.CursorType = adOpenKeyset 'rs.LockType = adLockOptimistic rs.open "select * from visitas order by id desc",conn if not rs.EOF then do while not rs.EOF%>
<%=rs("nombre")%> <%if rs("mail")<>"" then%>   "> <%end if%> <%if rs("web")<>"" then%>   "> <%end if%> ">

<%=rs("fecha")%> 

<%=rs("comentarios")%>

Host: <%=rs("ip")%>
<% if rs("Pais")<>"" then%> Pais
<%=rs("pais")%>

<%end if%> <% if rs("como")<>"" then%> ¿ Como nos conociste?


<%=rs("como")%>

<%end if%> <% if rs("opinion")<>"" then%> ¿Que opinión te merecen estas páginas


<%=rs("opinion")%> <%end if%>
<%rs.movenext loop end if rs.close conn.close set rs=nothing set conn=nothing%>
Firmar
Nombre
E-Mail
Web    http://
País
¿Como nos conociste?
¿Que opinas de estas páginas?

Comentarios/Mensaje (puedes usar etiquetas html)

 

Volver arriba de la pagina
align="center" valign="middle" bgcolor="#63CFFF">Ayude a mantener esta página, visite los patrocinadores
Inicio
   |   Goedonkey   |   Acerca de   |   Aviso Legal   |   Contactenos   
© Copyright 2002 - 2003 - Todos los derechos reservados- Rincon de Go