SOY UN NOVATO NO SE QUE SIGNIFICA ASP

pablo Correa
03 de Julio del 2003
hola me llamo pablo y necesito que me ayuden, no se nada de asp y necesito hacer un buscador para una editorial este buscador debe llamar a una base de datos y ofrecerme una pagina con los resultados. he encontrado un ejemplo y me da error en el servidor: Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xab0 Thread 0x848 DBC 0x26ca1f4 Jet'.

/pabluria/consultasencilla.asp, line 19

el codigo es el siguiente:
fconsu.htm<html>

<head>

<title>Formulario para consulta sencilla</title>
</head>

<body>

<h3 align="center">consulta sencilla</h3>
<p>&nbsp;</p>
<form method="POST" action="consultasencilla.asp">
<table border="1" width="100%">
<tr>
<td width="16%">Titulo:</td>
<td width="84%"><input type="text" name="titulo" size="55"></td>
</tr>
<tr>
<td width="16%"><input type="submit" value="Enviar" name="B1"></td>
<td width="84%"><input type="reset" value="Restablecer" name="B2"></td>
</tr>
</table>
</form> </html>
......................................
Consultasencilla.asp

<html>
<head>
<title>Ejemplo de consulta sencilla</title>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="1" width="62%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Resultados de su consulta</font></td>
</tr>
</table>
</center>
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
rs.open sqltxt,"DSN=biblioteca" %>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su petición </font></h3>
<%else%>
<table border="0" width="100%">
<tr>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Titulo</font></th>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Autor</font></th>
</tr>
<%do while not rs.eof%>
<tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Titulo")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("Autor")%></font></td>
</tr>
<%rs.movenext
loop
rs.close
end if%>
</table>
<p>&nbsp;</p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>
.......................
la base de datos biblioteca.mdb
esta echa con access y tiene dos campos dentro de una tabla autor y nombre.

gracias por todo y gracias MULTIVAC.

taferis
03 de Julio del 2003
Al parecer tu acceso y consuta a la base de datos
es el error, prueba con esto

strAccessDB = "db/db_agenda"
titulo = request.Form("titulo")

'Conexion a la base de datos'
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(strAccessDB)
set conn = Server.CreateObject("ADODB.Connection")
conn.open(strCon)

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * From (tu tabla)WHERE titulo = " & titulo
rs.Open strSQL, conn

if rs.eof then

Pablo Correa
03 de Julio del 2003
GRACIAS TAFERIS!!!!
pero ahora tengo otro problema gente. luego de hacer las modificaciones que me an dicho aparece el erro HTTP500 error interno del servidor.
les cuento que yo utilizo 7host. conocen un servidor gratuito? que soporte lo que estoy buscando?