Se non ti stampa niente allora non passa per quella porzioni di codice o c'è qualche errore prima

prova ad aggiugere le parti in grassetto

codice:
<%
on error resume next

cerca = request.form("textfield")
arrCerca = split(cerca," ")


Dim conn1
Dim rs1
Dim sSql1

'Imposto la connessione
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/post.mdb")

if err.number<>0 then 
 response.write "errore connessione:" & err.description
 response.end
end if


'Imposto la stringa SQL di selezione dati

response.write "Query :"
sSql1 ="SELECT * from tabpost WHERE "
for i=0 to ubound(arrcerca)

sSql1 = sSql1 & "parolachiave LIKE '%"& arrCerca(i) &"%'"
if not i=ubound(arrcerca) then
sSql1 = sSql1 & " and "
end if

next

if err.number<>0 then 
 response.write "errore query:" & err.description
 response.end
end if




response.write sSql1
response.end



'Creo e apro il Set di Record
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sSql1, conn1, 3, 3
%>