30/08/2002, 05:01
|
| | | Fecha de Ingreso: agosto-2002
Mensajes: 16
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Re: Problemas con el codigo del Buscador simple ASP
esta es la parte 1 de 2:
<html>
<head>
<title>Buscar datos</title>
</head>
<body bgcolor="#FFFFCC">
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra" ) %></strong></font></p>
<%
Dim Conexion,Tabla1
Set Conexion=Server.CreateObject("adodb.connectio n")
Set Tabla1=Server.CreateObject("adodb.recordset&q uot;)
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("Palabra")) & "%'"
Tabla1.Open Temp, Conexion
If Tabla1.BOF And Tabla1.EOF Then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("Palabra")%& gt;</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="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Categoria</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nombre de la pagina</font></strong></p>
no caben en el mismo |