Microsoft VBScript runtime error '800a000d' Type mismatch

[cesarnorte9]

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

[cesarnorte9]

Joder siempre me pasa lo mismo... bueno dejo la solución....
Como soy de PHP estoy a acostumbrado a que todo se recoge de la misma manera. Pero no estaba comentiendo un error.... Lo estaba pasando con get y recogiendo con request.form y eso solo vale para post.... Con Get se recoge con querystring....
SUERTE

[Myakire]

O bien, puedes utilizar solo Request (request("Campo")), que busca en .Form y si no lo encuentra lo hace en .QueryString

Saludos