FelipeX
06 de Septiembre del 2003

Estoy usando este codigo no se si esta bien o mal, ya que los registros me salen repetidos.

<%

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

Dim Temp

Temp="Select * From Tabla1 Where UCase(Campo1) like '%" & UCase(Request("palabra")) & "%'"


<% While Not Tabla.EOF%>
<tr>
<td width="14%" height="35" bgcolor="#316B9C">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font color="#FFFFFF">&nbsp;<%=Request("Palabra") %></font></td>
<td width="14%" height="35" bgcolor="#316B9C">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Tahoma" size="2" color="#FFFFFF"><%=Tabla.Fields("Campo2")%></font></td>
<td width="14%" height="35" bgcolor="#316B9C">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Tahoma" size="2" color="#FFFFFF"><%=Tabla.Fields("Campo3")%></font></td>
<td width="14%" height="35" bgcolor="#316B9C">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Tahoma" size="2" color="#FFFFFF"><%=Tabla.Fields("Campo4")%></font></td>

<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>