problema non riesco ad entrare nel ciclo

[rikuryu]

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
%>

[optime]

quanto vale varTotale?

for contatore = 1 to varTotale



per me vale 0

[rikuryu]

varTotale quando stampo mi da come valore 18000 circa

[rikuryu]

ho impostato un valore manualmente e quindi prosegue vorrei capire x' non prendere il valore che gli ho dato dal select con as...
cmq l'errore successivo è il seguente

Necessario oggetto: '[string: "nomefile"]'

[cavicchiandrea]

Non so se questo è il problema (non ho manco capito cosa vuoi fare) comunque
set rs = ConnIpReportVirus.execute ("Select colonna as str from tb WHERE ID ='"&contatore) apice di troppo
set rs = ConnIpReportVirus.execute ("UPDATE Tbl SET colonna = '"&str&"' WHERE ID ='"&contatore) idem

[optime]

Originariamente inviato da rikuryu
ho impostato un valore manualmente e quindi prosegue vorrei capire x' non prendere il valore che gli ho dato dal select con as...
cmq l'errore successivo è il seguente

Necessario oggetto: '[string: "nomefile"]'

cmq x' zbd kkk prc: ma cacchio, hai una tastiera umana, usala!

il valore NON lo prende perché NON l'hai assegnato. Domandati: dove ho scritto

varTotale=....


???

[rikuryu]

capito cosa dici ma è ora è rimasto questo errore

Necessario oggetto: '[string: "nome del file corretto"]'

linea 41

sarebbe questa linea ----->

for contatore = 1 to varTotale
set rs = ConnPuliziaVirus.execute ("Select NOME as str from Tbl_Ip_ReportVirus WHERE ID ="&contatore)
response.write rs("str")
set strc = 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 (strc,"\s")
set ObjRegexp = Nothing
set rs = NOTHING
set rs = ConnPuliziaVirus.execute ("UPDATE Tbl SET NOME = "&str&" WHERE ID ="&contatore)
next set str = ObjRegexp.Replace (strc,"\s")

[optime]

sicuro che sia quella riga? e poi, ci spieghi (con un esempio) cosa vuoi fare?

[rikuryu]

lui segna la riga --> set strc = ObjRegexp.Replace (strc,".")

deve eseguire la pulizia di una stringa tenendo solo le lettere e i numeri

[optime]

quindi NON è quella che avevi detto prima...

prova a togliere SET (e ovviamente va su una riga separata, nel tuo codice è sulla stessa riga di "next")