Problemas en búsqueda con asp y access
Publicado por Mari (6 intervenciones) el 10/05/2005 17:50:27
Hola a todos;
Estoy tratando de hacer unas pruebas usando asp y access en el único servidor gratuito que pude accesar que es 1asphost.com pero no me funciona, no me muestra el resultado de la búsqueda en 0access, no sé si es problema del servidor o de mi código. Les comento lo que hice: Tengo una página llamada index.htm donde pido el nombre del producto a buscar, al escribir dicho nombre y presionar el botón Buscar es llamada otra página "buscarproducto.asp" que es la que hace la búsqueda y me retorna en caso de encontrarlo el nombre, la descripción y el precio de la medicina buscada, en caso contrario me retorna un mensaje diciendo que no la encontró y que vuelva a intentarlo.
Les anexo a este mensaje el código de las páginas: index.htm y buscarproducto.asp, la bd farmacia.mdb cuya tabla se llama productos lo que tiene es nombre, descripcion y precio, las 3 tipo texto. Les agradezco si por favor lo pueden revisar para saber cuál es el problema.
index.htm:
<html>
<head>
<title>Inserción de datos</title>
</head>
<body bgcolor="#00CC99">
<p align="center"> </p>
<p align="center"><font color="#000080" face="Comic Sans MS" size="3">Ingrese el
nombre del producto</font></p>
<form method="POST" action="buscarproducto.asp">
<div align="center">
<center>
<table border="0">
<tr>
<td><br>
<font face="Comic Sans MS" color="#000080">Nombre:</font></td>
<td><br>
<input type="text" name="nombre" size="27">
</td>
</tr>
<tr>
<td></td>
<td>
</td>
</tr>
<tr>
<td colspan="2">
<p align="center"><br>
<input type="submit" value="Buscar"></td>
</tr>
</table>
</center>
</div>
</form>
<p align="center"><font color="#FFFFFF" face="Comic Sans MS" size="2"><b>Nota:
Tipee el nombre a buscar con sus respectivos acentos, sino coloque las tres
primeras letras.</b></font></p>
<p align="center"> </p>
<p align="center"> </p>
</body>
</html>
buscarproducto.asp:
<HTML>
<HEAD>
<TITLE>buscarproducto.asp</TITLE>
</HEAD>
<BODY bgcolor="#00CC99" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
<%
'Recogemos los valores del formulario
nombre= Request.Form("nombre")
if nombre = "" then%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font color="#FFFFFF" face="Comic Sans MS" size="3">Debes
tipear un nombre a buscar!</font></p>
<p align="center"><font face="Comic Sans MS" size="3" color="#FFFF00"><a href="buscar.htm">Buscar
de nuevo</a> </font></p>
<%else
'Instanciamos y abrimos nuestro objeto conexion
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla=Server.CreateObject("ADODB.Recordset")
Conexion.Open "farmacia"
'Ahora creamos la sentencia SQL
sSQL = "Select * from productos where InStr(nombre, '" & nombre & "' )>0"
Tabla.Open sSQL, Conexion
'Ejecutamos la orden
set RS = Conexion.Execute(sSQL)
if (Tabla.bof and Tabla.eof) then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#FFFFFF">No hay nada similar
al dato ingresado. Inténtalo con otro nombre!</font></p>
<p align="center"> </p>
<form method="POST" action="buscarproducto.asp">
<div align="center">
<center>
<table border="0" width="217">
<tr>
<td width="4"> <font face="Comic Sans MS" color="#000080">Nombre:</font></td>
<td width="199"><input type="text" name="nombre" size="27"></td>
</tr>
<tr>
<td width="4"></td>
<td width="199"></td>
</tr>
<tr>
<td width="4"></td>
<td width="199">
<p align="center"><input type="submit" value="Buscar"></p>
</td>
</tr>
</table>
</center>
</div>
<%'response.write("No hay nada similar al dato ingresado")
else
'Mostramos los registros%>
</form>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#FFFF00">Este es el
resultado de nuestra búsqueda!</font></p>
<div align="center">
<div align="center">
<center>
<table border="0">
<tr>
<td><font face="Comic Sans MS" color="#000080">Nombre </font></td>
<td><font face="Comic Sans MS" color="#000080">Descripción </font></td>
<td><font face="Comic Sans MS" color="#000080">Precio</font></td>
</tr>
<% do while not RS.eof %>
<tr>
<td><%=RS("nombre")%></td>
<td></td>
<td><%=RS("descripcion")%></td>
</tr>
<% RS.movenext
loop
end if
Conexion.close
end if%>
</table>
</center>
</div>
</div>
<p align="center"> </p>
</BODY>
</HTML>
Estoy tratando de hacer unas pruebas usando asp y access en el único servidor gratuito que pude accesar que es 1asphost.com pero no me funciona, no me muestra el resultado de la búsqueda en 0access, no sé si es problema del servidor o de mi código. Les comento lo que hice: Tengo una página llamada index.htm donde pido el nombre del producto a buscar, al escribir dicho nombre y presionar el botón Buscar es llamada otra página "buscarproducto.asp" que es la que hace la búsqueda y me retorna en caso de encontrarlo el nombre, la descripción y el precio de la medicina buscada, en caso contrario me retorna un mensaje diciendo que no la encontró y que vuelva a intentarlo.
Les anexo a este mensaje el código de las páginas: index.htm y buscarproducto.asp, la bd farmacia.mdb cuya tabla se llama productos lo que tiene es nombre, descripcion y precio, las 3 tipo texto. Les agradezco si por favor lo pueden revisar para saber cuál es el problema.
index.htm:
<html>
<head>
<title>Inserción de datos</title>
</head>
<body bgcolor="#00CC99">
<p align="center"> </p>
<p align="center"><font color="#000080" face="Comic Sans MS" size="3">Ingrese el
nombre del producto</font></p>
<form method="POST" action="buscarproducto.asp">
<div align="center">
<center>
<table border="0">
<tr>
<td><br>
<font face="Comic Sans MS" color="#000080">Nombre:</font></td>
<td><br>
<input type="text" name="nombre" size="27">
</td>
</tr>
<tr>
<td></td>
<td>
</td>
</tr>
<tr>
<td colspan="2">
<p align="center"><br>
<input type="submit" value="Buscar"></td>
</tr>
</table>
</center>
</div>
</form>
<p align="center"><font color="#FFFFFF" face="Comic Sans MS" size="2"><b>Nota:
Tipee el nombre a buscar con sus respectivos acentos, sino coloque las tres
primeras letras.</b></font></p>
<p align="center"> </p>
<p align="center"> </p>
</body>
</html>
buscarproducto.asp:
<HTML>
<HEAD>
<TITLE>buscarproducto.asp</TITLE>
</HEAD>
<BODY bgcolor="#00CC99" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
<%
'Recogemos los valores del formulario
nombre= Request.Form("nombre")
if nombre = "" then%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font color="#FFFFFF" face="Comic Sans MS" size="3">Debes
tipear un nombre a buscar!</font></p>
<p align="center"><font face="Comic Sans MS" size="3" color="#FFFF00"><a href="buscar.htm">Buscar
de nuevo</a> </font></p>
<%else
'Instanciamos y abrimos nuestro objeto conexion
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla=Server.CreateObject("ADODB.Recordset")
Conexion.Open "farmacia"
'Ahora creamos la sentencia SQL
sSQL = "Select * from productos where InStr(nombre, '" & nombre & "' )>0"
Tabla.Open sSQL, Conexion
'Ejecutamos la orden
set RS = Conexion.Execute(sSQL)
if (Tabla.bof and Tabla.eof) then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#FFFFFF">No hay nada similar
al dato ingresado. Inténtalo con otro nombre!</font></p>
<p align="center"> </p>
<form method="POST" action="buscarproducto.asp">
<div align="center">
<center>
<table border="0" width="217">
<tr>
<td width="4"> <font face="Comic Sans MS" color="#000080">Nombre:</font></td>
<td width="199"><input type="text" name="nombre" size="27"></td>
</tr>
<tr>
<td width="4"></td>
<td width="199"></td>
</tr>
<tr>
<td width="4"></td>
<td width="199">
<p align="center"><input type="submit" value="Buscar"></p>
</td>
</tr>
</table>
</center>
</div>
<%'response.write("No hay nada similar al dato ingresado")
else
'Mostramos los registros%>
</form>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#FFFF00">Este es el
resultado de nuestra búsqueda!</font></p>
<div align="center">
<div align="center">
<center>
<table border="0">
<tr>
<td><font face="Comic Sans MS" color="#000080">Nombre </font></td>
<td><font face="Comic Sans MS" color="#000080">Descripción </font></td>
<td><font face="Comic Sans MS" color="#000080">Precio</font></td>
</tr>
<% do while not RS.eof %>
<tr>
<td><%=RS("nombre")%></td>
<td></td>
<td><%=RS("descripcion")%></td>
</tr>
<% RS.movenext
loop
end if
Conexion.close
end if%>
</table>
</center>
</div>
</div>
<p align="center"> </p>
</BODY>
</HTML>
Valora esta pregunta
0