22/04/2002, 09:57
|
| | | Fecha de Ingreso: marzo-2002 Ubicación: Venezuela
Mensajes: 188
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: Cerrar cualquier conexión abierta
A ver este es parte del codigo y por lo visto se parece mucho al que me muestras, creo que el error lo esta dando el PWS
<%
Set cn=Server.CreateObject("ADODB.Connection" ;)
openStr = "driver={Microsoft Access Driver (*.mdb)};" &_
"dbq=" & Server.MapPath("prueba1.mdb")
cn.Open openStr
sql = "SELECT * FROM prueba1;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3
On Error Resume Next
rs.MoveFirst
Do While Not rs.EOF
=Server.HTMLEncode(rs.Fields("nombre").V alue)
.
.
.
.
.
.
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn=Nothing
%> |