10/01/2003, 20:50
|
 | | | Fecha de Ingreso: diciembre-2001 Ubicación: Santo Domingo - Rep. Dom.
Mensajes: 63
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Solo debes hacerte un Formulario que valla a una BD que lo almacene y que en base a esos datos hagas la consulta...
Insertar Guestbook:
<%@ LANGUAGE=VBSCRIPT %>
<% Option Explicit %>
<%
Dim guestbook(1)
guestbook(0)=request.form("titulo")
guestbook(1)=request.form("comentario")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\tubasededatos.mdb"
Conn.Open
%>
<%
Dim rs
set rs= Server.Createobject("ADODB.Recordset")
rs.CursorType = 1
rs.LockType = 3
rs.open "guestbook",conn
rs.addnew
rs("titulo")=guestbook(0)
rs("comentario")=guestbook(1)
' titulo y comentario deben ser campos de la tabla guestbook
rs.update
rs.close
response.redirect "paginaderespuesta.asp"
%>
Consultar Guestbook:
La misma conexion pero utilizas para desplegar los registros lo siguiente...
<% Do While Not rs.EOF %>
<br> <b>Titulo:</b> <%=rs("titulo")%>
<br> <b>Comentario:</b> <%=rs("comentario")%>
<hr>
<%
rs.MoveNext
Loop
%> |