not support bookmarks

[Descendz]

Salve ragazzi,
sto realizzando un piccolo motore di ricerca su un db mysql però purtroppo non riesco a risolvere un errore... mi spiego meglio: questo il mio codice

if len(searchsz) > 0 then

	sql = "select * from " & tabella & " where"

	ArrSearch = Split(searchsz)
	x = 0
	for each Word In ArrSearch

	If Not x = UBound(ArrSearch) Then
	sql = sql & " campodb like '%" & word & "%' and"
	Else
	sql = sql & " campodb like '%" & word & "%'"
	End If

	x = x + 1
	Next
	
	Set rs=Conn.Execute(SQL)
	if rs.eof then
		response.write "siamo spiacenti nesssun risultato"
	else
		rs.pagesize = respage
		rs.absolutepage = page

Alla linea rs.absolutepage = page ricevo questo errore:

ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

Sapete darmi una mano?

[Mems]

Al posto di

Set rs=Conn.Execute(SQL)

metti

Set rs = server.createObject("ADODB.Connection")
rs.open SQL, Conn, 1, 3

[Descendz]

Grazie del suggerimento mems...adesso però houn altro problema: praticamente inserendo un LIMIT per far paginare i risultati 10 a 10 la sintassi funziona ma non riesco a visualizzare nulla e proprio non riesco a capire perchè .. lo incollo di sotto magari poi corretta e funzionante potrebbe essere d'aiuto anche a qualcun altro:

page = 1
PageSize = 10
inizio = (page-1)*PageSize

If (len(searchsz) = 0 or (table = "")) Then

	response.write "non ci sono risultati"

	conn.close
	Set conn=Nothing
	response.end  
end if

if len(searchsz) > 0 then

	sql = "select * from " & serxs & " where"

	ArrSearch = Split(searchsz)
	x = 0
	for each Word In ArrSearch

	If Not x = UBound(ArrSearch) Then
	sql = sql & " testo like '%" & word & "%' LIMIT " & inizio & ", " & PageSize & ""
	Else
	sql = sql & " testo like '%" & word & "%' LIMIT " & inizio & ", " & PageSize & ""
	End If

	x = x + 1
	Next
	
	set rs = server.CreateObject("ADODB.Recordset") 
	rs.CursorLocation = 3 
	rs.CursorType = 1 
	rs.LockType = 3 
	rs.Open sql,conn,1,3 
	
	if rs.eof then
		response.write "non ci sono risultati"
		conn.close
		Set conn=Nothing
		rs.close
		Set rs=Nothing
		response.end  		 
	else

		Function NoTag(html)
 			Set objRE = CreateObject("VBScript.RegExp")
 			objRE.Pattern="\<.*?\>"
 			objRE.Global=true
 			NoTag = objRE.Replace(html,"")
		End Function
								  
		for i = 1 to respage
								  
		if not rs.eof then
			
			SoloTesto = NoTag(rs("testo"))
			response.write "" & mid(rs("titolo"), 1, 100) & ""
			response.write "" & mid(SoloTesto , 1, 300) & "" & vbCrLf
			SoloTesto=""
			rs.movenext
		end if
		next
								  
	end if
	rs.close
	set rs = nothing
end if