casi lo tengo!!!
pablo correa
02 de Septiembre del 2002
finalmente de tanto luchar consegui un cogigo pero no se por que no funciona alguien me puede decir aqui va el codigo
Fconsu.htm
<html>
<head><title>Formulario para consulta sencilla</title></head>
<body>
<h3 align="center">consulta sencilla</h3>
<p> </p>
<form method="POST" action="http://www20.brinkster.com/argenta/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>
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>
<%strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BDbiblioteca.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn %>
<%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> </p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>
La base de datos se llama biblioteca, tinen una tabla que se llama libros y dos campos titulo y autor.
mi servidor es brinkster la url del problema es http://www20.brinkster.com/argenta/ y el error es
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 0x958 Thread 0x450 DBC 0xe7ddfa4 Jet'.
/argenta/consultasencilla.asp, line 18
no entiendo necesito configurar el OBDC? mi asp esta en un internet, conocen el hosting brinkster
?
muchisimas gracias por todo,Gracias pablo correa
bueno..
he reconfigurado mi codigo a:<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 oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\argenta\db\biblioteca.mdb") & ";" & _
"Persist Security Info=False")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * From (libros) WHERE titulo = " & titulo
rs.Open strSQL, conn
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> </p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>
y me da el siguiente error :
ADODB.Recordset error \'800a0bb9\'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/argenta/consultasencilla.asp, line 22
QUE ES LO QUE ESTA MAL!!!!
EL ASP NO ES PARA MI?
rapomon
02 de Septiembre del 2002
Necesitas la base de datos biblioteca.mdb en la carpeta /db del servidor web, en tu caso brinkster.
Además ese ejemplo no es muy claro, el objeto rs no lo has instanciado, antes de <% if rs.eof then %>
deberás poner algo como set rs = conn.execute("select * from libros")
o la tabla que sea de la base de datos, si no es libros pues autores...
Si no sabes nada de asp empieza por un manual para principiantes, no quieras empezar a hacer cosas a partir de ejemplos que no sabes como funcionan, porque así no vas a conseguir nada.
Además ese ejemplo no es muy claro, el objeto rs no lo has instanciado, antes de <% if rs.eof then %>
deberás poner algo como set rs = conn.execute("select * from libros")
o la tabla que sea de la base de datos, si no es libros pues autores...
Si no sabes nada de asp empieza por un manual para principiantes, no quieras empezar a hacer cosas a partir de ejemplos que no sabes como funcionan, porque así no vas a conseguir nada.