buona sera scusate vorrei capire cosa non funziona

<%
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[MDB];Persist Security Info=False;"

'CONNESSIONE DATABASE
strMDBPath=Server.MapPath("*.mdb")
Set Conn.CreateObject("ADODB.Connection")
Conn.Open Replace(strConn,"[MDB]",strMDBPath)

Dim str, rs
int contatore
contatore = 0
int varTotale = 0

set rs = ConnIpReportVirus.execute ("Select * from tbl Order by id ASC")
set rs = ConnIpReportVirus.execute ("Select count(*) as varTotale from id")
response.write "Record nel database: "&rs("varTotale")

for contatore = 1 to varTotale
set rs = ConnIpReportVirus.execute ("Select colonna as str from tb WHERE ID ='"&contatore)
response.write rs("str")
Dim ObjRegexp
set ObjRegexp = New RegExp
ObjRegexp.Pattern = "[^A-Za-z0-9\s]"
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
set str = ObjRegexp.Replace (rs("str"),"\s")
set ObjRegexp = Nothing
set rs = NOTHING
set rs = ConnIpReportVirus.execute ("UPDATE Tbl SET colonna = '"&str&"' WHERE ID ='"&contatore)
next

'Close Database
conn.close
Set conn=nothing
%>