Ver Mensaje Individual
  #17 (permalink)  
Antiguo 26/03/2004, 15:33
hugorei
(Desactivado)
 
Fecha de Ingreso: agosto-2002
Mensajes: 1.458
Antigüedad: 22 años, 8 meses
Puntos: 0
No eso ya lo se , lo que pasa es que realmente ya no le encuentro explicacion alguna a este error revise todo , Hay algo que se me este escapando ?

LES PASO EL CODIGO COMPLETO :


<html>

<head>
<title>Busqueda</title>
</head>
<form method="Post" action="buscar.asp">
<body bgcolor="#FFFFCC">
<p align="center"><font face="Tahoma" size="2"><b><i>Ingrese Palabra a buscar</i></b></font>

</p>
<p align="center"><input type="text" name="palabra" size="20">

</p>

<p align="center">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
<p> </p>

<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("palabra") %></strong></font></p>


<%

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("equivalencias.mdb")


Dim Temp
Temp="SELECT TOP 6 * FROM equivalencias WHERE ORIGINAL='%" & request("palabra") & "%' ORDER BY id DESC"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("original")%></strong> en la Base de Datos</font></p>


<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="26%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
original</font></strong> </td>
<td width="41%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">MARCA</font></strong></p></td>
<td width="33%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
en FAMEL</font></strong> </td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="26%" bgcolor="#FFCC00" height="51"> <p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("ORIGINAL")%></font></td>
<td width="41%" bgcolor="#FFCC00" height="51"> <p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("MARCA")%></font></td>
<td width="33%" bgcolor="#FFCC00" height="51"> <p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("FAMEL")%></font></td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
end If
%>
</table>
</center></div>
<p align="center"><font face="Tahoma" size="2">Busquedas</font></p>
<p align="center"><font face="Tahoma" size="2">2002</font></p>




<p align="center"> </p>
</body>
</html>