
29/04/2002, 10:15
|
| | Fecha de Ingreso: enero-2002
Mensajes: 17
Antigüedad: 23 años, 4 meses Puntos: 0 | |
Ayuda con la coneccion a base de datos Hola necesito ayuda
esta es la pagina
http://www.efrance.fr/thecog/libroVisitas/default.asp
porfavor
este es el codigo de firma.asp
=============================================
<%
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.form("nombre") = "" or request.form("comentarios")="" then%>
<div align="center">
<center>
<table border="0" width="85%">
<tr>
<td width="100%">
<table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Los campos NOMBRE y
COMENTARIO son obligatorios</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><a href="javascript:window.history.back()"& gt;Intentalo de nuevo</a>
</td>
</tr>
</table>
</center>
</div>
<%else
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb"))
'Access con OLEDB
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("librovisitas.mdb")
'ACCESS CON ODBC
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "visitas",conn
rs.addnew
rs("nombre")=request.form("nombre&q uot;)
rs("mail")=request.form("mail" )
rs("web")=request.form("web")
rs("pais")=request.form("pais" )
rs("opinion")=request.form("opinion ")
rs("como")=request.form("como" )
rs("ip")=request.servervariables("R EMOTE_ADDR")
rs("fecha")=now()
comentarios=replace(request.form("comentarios "),chr(10),"<br>")
rs("comentarios")=comentarios
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "default.asp?insertado=si"
end if%> |