06/02/2003, 10:19
|
| | | Fecha de Ingreso: diciembre-2002 Ubicación: argentina... de ahí seran veinte cuadras
Mensajes: 382
Antigüedad: 22 años, 4 meses Puntos: 0 | |
| gracias muchachos, probé con lo que me han dicho, pero no funciona, me aparece el mensaje del navegador diciendo que no se puede abrir la pagina, pero no se porque.
el código es el siguiente:
<body>
<%Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strDatabaseType
'aca elijo con quien me conecto
strDatabaseType = "Access"
'strDatabaseType = "MSDE"
'abro la coneccion (en este caso abre con access)
If strDatabaseType = "Access" Then
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\datastores\biblio.mdb;" & _
"Persist Security Info=False"
Else
objConn.Open "Provider=SQLOLEDB;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=BBCBANCOS;" & _
"Initial File Name=G:\MSSQL\Data Files\MSSQL\DATA\biblio.mdf"
End If
busqueda = request.querystring("busqueda")
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%&busqueda%' or TITULO LIKE '%&busqueda%' or publicacion LIKE '%&busqueda%'"
While Not objRS.EOF
Response.Write objRS("AUTOR") & "<BR>"
Response.Write objRS("TITULO") & "<BR>"
Response.Write objRS("PUBLICACION")"<BR>"
objRS.MoveNext
Wend
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>
__________________
Juan Pablo |