gente, disculpen que insista, pero necesito resolver esto....
que es lo que estoy haciendo mal, me tirar error interno del servidor????
<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>
