24/05/2003, 13:12
|
| | | Fecha de Ingreso: mayo-2003
Mensajes: 8
Antigüedad: 22 años Puntos: 0 | |
| Gracias, pero no me funcionaron
No funcionaron, daba error,
de todos modos muchas gracias, supongo que ahora me rendiré pero espero que solo sea una mala racha, ya sabes cuando algo se tuerce, lo mejor es descansar de ello.
saludos
<%
Function ConexionTexto
'ConexionTexto = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(".") & "\data\Datos.mdb"
ConexionTexto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strPaginaPrefijo & "data/Datos2000.mdb")&";Persist Security Info=False"
End Function
Function ConexionAbre
Dim strConn
strConn = ConexionTexto
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn esta es linea 15
Set ConexionAbre = Conn
End Function
%>
me da un error en liena 15
<%
Function ConexionTexto
'ConexionTexto = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(".") & "/data/Datos.mdb"
ConexionTexto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strPaginaPrefijo & "data/Datos2000.mdb")&";Persist Security Info=False"
End Function
Function ConexionAbre
Dim strConn
strConn = ConexionTexto
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn esta es linea 15
Set ConexionAbre = Conn
End Function
%> |