07/08/2003, 06:01
|
 | | | Fecha de Ingreso: junio-2003 Ubicación: Madrid
Mensajes: 289
Antigüedad: 21 años, 10 meses Puntos: 1 | |
Seria así
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("base.mdb")
Dim Temp
miarray=split(Request("palabra"), " ")
strWhere = " WHERE FALSE "
for i = 0 to Ubound(miarray) - 1
strWhere = strWhere & " OR UCase(pal) LIKE '%" miarray(i) & "%'"
next
Temp = "SELECT * FROM TABLA1 " & strWhere
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
|