Buenos dias tengo un grabe problema xD...
Estoy haciendo una página web acabo de realizar el buscador o eso estoy intentado...
Y cuando hago un write para ver el contenido de las que obtengo de un split me saca el error del titulo dejo codigo para que lo veais... me extraña xk le paso por get dos palabras y quiero que en la consulta los busque.
Consejo para saber el motivo?
Código:
'DECLARO LA VARIABLES'
dim bd, oConn,sql,rs,pagina,numpaginas,filas,filas_intervalo,conta,i,busqueda,cadenas,consulta
bd="datos"
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
oConn.Open "Data Source=" & Server.MapPath("administrador/" & bd &".mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0"
'CREO LA CONSTANTE QUE INDICA CUANTAS NOTICIAS POR PÁGINA TENDREMOS'
Const not_por_pagina=5
conta=0
'RECOJO LA PAGINA ACTUAL, SI NO HAY SERÁ LA PARIMERA
if not isEmpty(Request.queryString("pagina")) then
pagina=Cint(Request.queryString("pagina"))
else
pagina=1
end if
'CONECTO CON LA BASE DE DATOS'
'EL TAMAÑO DE LA CACHE SERA IGUAL AL NUMERO DE NOTICIAS POR PAGINA, Y UTILIZO LA CONSTANTE ADUSECLIENT PARA POSICIONAR EL CURSOR'
rs.CursorLocation= adUseClient
rs.CacheSize=not_por_pagina
'REALIZO LA CONSULTA'
if not isEmpty(Request.Form("buscar")) then
busqueda=Request.Form("buscar")
cadenas=Split(busqueda," ")
response.write cadenas(0)
for i=0 to ubound(cadenas)
consulta=consulta &" titulo Like '%"& cadenas(i) &"%' OR texto LIKE '%"& cadenas(i)
if not isEmpty(cadenas(i+1)) or not isNull(cadenas(i+1)) then
consulta= consulta &" AND "
end if
next
sql="SELECT id,titulo,texto,foto,fechaalta FORM noticias WHERE titulo<> ''"& consulta &"ORDER BY fechaalta DESC"
else
sql="SELECT id,titulo,texto,foto,fechaalta From noticias WHERE titulo<> '' ORDER BY fechaalta DESC"
end if
rs.open sql, oConn
'INDICO EL TAMAÑO DE CADA PAGINA, EL NUMERO DE PAGINAS, Y LA PAGINA ACTUAL
rs.MoveFirst
rs.PageSize=not_por_pagina
numpaginas=rs.PageCount
rs.AbsolutePage= pagina
Entonces si hago un response.write cadenas(0) Me salta error.... AYUDAAAa
