|
<%
Dim oConnANUNCIO, RSANUNCIO, sqlA, c_clave, idx
'Creamos los objectos a usar.
Set oConnANUNCIO = Server.CreateObject ("ADODB.Connection")
Set RSANUNCIO = Server.CreateObject ("ADODB.RecordSet")
'Conectamos a la conexion a la base de datos.
oConnANUNCIO.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./db/anuncios.mdb")
c_clave = Request.Form("laclave")
if (c_clave = "") then
response.write " Por favor, ingrese la palabra clave para realizar la búsqueda "
else
sqlA = "select * from anuncio1 where clave LIKE '%"& Request.Form("laclave") &"%'"
'Apertura de tabla con solicitud de registros.
RSANUNCIO.Open sqlA, oConnANUNCIO
idx = 0
Do While not RSANUNCIO.EOF
if (idx = 0) then
idx = 1
else
'Mostramos Palabras Clave
'response.Write ""
'response.Write " Palabras Clave: | "
'response.Write ""
'response.Write RSANUNCIO("clave")
'response.Write " | "
'response.Write " "
'response.Write " "
response.Write ""
response.Write ""
response.Write ""
response.Write RSANUNCIO("contenido")
response.Write " | "
response.Write " "
response.Write " "
'response.Write ""
'response.Write " Contenido: | "
'response.Write ""
'response.Write RSANUNCIO("contenido")
'response.Write " | "
'response.Write " "
'response.Write " "
RSANUNCIO.MoveNext
end if
Loop
'Cerramos y eliminamos todo.
RSANUNCIO.Close
oConnANUNCIO.Close
Set RSANUNCIO = Nothing
Set oConnANUNCIO = Nothing
if idx = 1 then
response.Write " |
