Secondo voi qual è il problema?

Ho questo codice di impaginazione:

codice:
<%
Dim objConn, objRS, strSQL

Set objConn =Server.CreateObject("ADODB.Connection")
objConn.ConnectionSTring="DSN=DB;uid=UT; pwd=PW" 
objConn.Open strConn

SQL= "Select Count(*) as MyPorcata From web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"
set RSSQL = objConn.execute(SQL)
			
TRecord = RSSQL("MyPorcata")
			
strSQL = "SELECT web_prod.product_ID, web_prod.product_name, web_prod.product_Version, web_prod.product_Publisher, web_prod.product_Language, web_prod.product_Media, web_prod.product_OS, web_prod.product_PPrice from web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = TRecord

' imposta il numero di colonne da visualizzare
  strnumero_colonne = 5

' il resto
strresto = (strrecord_totali mod strnumero_colonne)

' i record totali meno il resto divisi per le colonne
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )

Response.Write "<table border='1' align='center'>"

for n = 1 to strrecord_parziali
  Response.Write "<tr>"

  ' stampa i record nelle colonne
  for m =1 to strnumero_colonne
    Response.Write "<td>"&objRS("product_Publisher")&"</td>" 
    objRS.MoveNext
  next

  Response.Write "</tr>"
next

Response.Write "</table>"

' controlla se esiste il resto
if strresto <> "0" then
  Response.Write "<table border='1' align='center'><tr>"

  for f = 1 to strresto
    Response.Write "<td>"&objRS("product_Publisher")&"</td>"
    objRS.MoveNext
  next

  Response.Write "</tr></table>"
end if

' pulizia
objRS.Close
Set objRS = Nothing

objConn.Close
  Set objConn = Nothing

%>
L'errore che mi visualizza è:

codice:
error '80020009' 
/include/inc_pdetprodxprod_new.asp, line 56
le linea è quella in grassetto..

Qualcuno mi può dare una dritta?

Oppure qualcuno può girarmi esempio o un link per impaginare i dati da oracle?

grazie ciao