<% 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? No opino Muy Buenas Buenas Regulares Malas Muy Malas Comentarios/Mensaje (puedes usar etiquetas html)