Ingrese la palabra clave (O PARTE DE ELLA) para realizar la búsqueda del Anuncio
que necesita. Por ejemplo: abogado, doctor, aluminio, tinta, clínica, impresión
>> .:: ::. <<

<% 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 "" 'response.Write "" 'response.Write "" 'response.Write "
Palabras Clave:
" '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 "" 'response.Write "
Contenido:
" 'response.Write RSANUNCIO("contenido") '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 "

" else response.write "

Lo sentimos, no se encontró anuncios con esa palabra clave

" end if end if %>

Poco a poco este listado irá creciendo para beneficio de todos ustedes... ¡Contáctanos para estar aquí!
Dirección: Cdla. Bellavista MZ 72 V20. Av. Barcelona y J. Perrone G. * Telfs.: 04 4 220 28 05 - 04 4 220 94 05 * mail@oesteinformate.com