Ayuda Asp
hermit
10 de Enero del 2005
Saludos amigos, me gustaría que alguien me ayude en un problema que tengo con un código de asp, yo en asp no soy bueno, por eso bueno a una persona que me pueda ayudas. Este es el código.
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("basedatos.mdb")
Dim Temp
palabra que buscamos
'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras clave
Temp="Select * From Tabla1 Where UCase(descripcion) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp,Conexion
%>
<body bgcolor="#F0FDFF">
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>
<%
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<%
Else'aquí comienza el Script que nos muestra los resultados,'si los encuentra en la tabla
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="565" height="53" bordercolor="#C0C0C0">
<% While Not Tabla.EOF%>
<tr bgcolor="#E1FFEF">
<td width="142" height="117" background="images/form01.gif">
<table width="120" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="108" height="20" valign="baseline"> <div align="center"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">CODIGO</font></strong></div></td>
</tr>
<tr>
<td height="15"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><%=Tabla.Fields("Codigo")%></strong></font></div></td>
</tr>
<tr>
<td height="69"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font size="2" face="Arial, Helvetica, sans-serif"><img src="<%=Tabla.Fields("url")%>"></font></strong></font></div></td>
</tr>
</table></td>
<td width="422" height="117" background="images/form02.gif"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><%=Tabla.Fields("descripcion")%> </td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center>
</div>
<p align="center">
Me gustaria colocarle un paginador, pero no se como hacerlo, e igualmente cuando coloque la palabra a buscar que busque varias palabra, es decir, si yo busco la palabra "PERA", no tengo problemas pero cuando busco "PERA VERDE", me dice que no hay nada en la base de datos, pero en la base de datos hay informacion de "PERA AMARILLA Y VERDE",espero que me puedan ayudar
GRACIAS
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("basedatos.mdb")
Dim Temp
palabra que buscamos
'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras clave
Temp="Select * From Tabla1 Where UCase(descripcion) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp,Conexion
%>
<body bgcolor="#F0FDFF">
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>
<%
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<%
Else'aquí comienza el Script que nos muestra los resultados,'si los encuentra en la tabla
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="565" height="53" bordercolor="#C0C0C0">
<% While Not Tabla.EOF%>
<tr bgcolor="#E1FFEF">
<td width="142" height="117" background="images/form01.gif">
<table width="120" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="108" height="20" valign="baseline"> <div align="center"><strong><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">CODIGO</font></strong></div></td>
</tr>
<tr>
<td height="15"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><%=Tabla.Fields("Codigo")%></strong></font></div></td>
</tr>
<tr>
<td height="69"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font size="2" face="Arial, Helvetica, sans-serif"><img src="<%=Tabla.Fields("url")%>"></font></strong></font></div></td>
</tr>
</table></td>
<td width="422" height="117" background="images/form02.gif"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><%=Tabla.Fields("descripcion")%> </td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center>
</div>
<p align="center">
Me gustaria colocarle un paginador, pero no se como hacerlo, e igualmente cuando coloque la palabra a buscar que busque varias palabra, es decir, si yo busco la palabra "PERA", no tengo problemas pero cuando busco "PERA VERDE", me dice que no hay nada en la base de datos, pero en la base de datos hay informacion de "PERA AMARILLA Y VERDE",espero que me puedan ayudar
GRACIAS