Movenext non funziona

[rikuryu]

Buona sera, sicuramente ho sbagliato qualcosa volevo sapere se qualcuno poteva aiutarmi.
avrei necessità di fare questo ciclo e che prosegua finchè non arriva al eof, il problema che ho è che il non prosegue nei record l'unica cosa che posso dire è che non ci sono tutti i record cioè per esempio può esserci 1,2,3,4,7,9,34,56,57,58 ecc. dove sbaglio ? grazie a tutti in anticipo



Dim str, rs, strConn, Conn, strMDBPath, varTotale, ID, contatore, stringa
contatore = 1

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

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

set stringa = Conn.execute ("Select count(*) as varTotale from Tbl")
response.write "Record nel database: "&stringa("varTotale")

'ciclo per ripulire le stringhe dai caratteri non alfa numerici compresi lo spazio e il punto
'vengono sostituiti da un punto
response.write ("
")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open ("Select * from Tbl by ID"), Conn, 3


if rs.eof=false then
set ID = Conn.execute ("Select NOME as str from Tbl WHERE ID="&contatore)
set str = ID("str")
Dim Objregexp
set Objregexp = New RegExp
Objregexp.Pattern = "[^A-Za-z0-9 .\s]"
Objregexp.Global = True
Objregexp.IgnoreCase = True
str = Objregexp.Replace (str,".")
set Objregexp = Nothing
Conn.execute ("UPDATE Tbl SET NOME='"&str&"' WHERE ID="&contatore)
rs.movenext
end if

set rs = NOTHING
'Close Database
Conn.close
Set Conn=nothing

[optime]

hai dimenticato dei pezzi

if rs.eof=false then
do while not rs.eof
....
rs.movenext
loop
end if

[rikuryu]

così facendo mi rimane in attesa e non apre nessuna finestrami dice che va in timeout

[optime]

Originariamente inviato da rikuryu
così facendo...

posta il codice modificato, altrimenti come si fa a controllare?

[rikuryu]

scusa modificato come hai detto tu prima il resto rimane uguale

if rs.eof=false then
do while not rs.eof
set ID = Conn.execute ("Select NOME as str from Tbl WHERE ID_SEGNALAZIONE="&contatore)
set str = ID("str")
Dim Objregexp
set Objregexp = New RegExp
Objregexp.Pattern = "[^A-Za-z0-9 .\s]"
Objregexp.Global = True
Objregexp.IgnoreCase = True
str = Objregexp.Replace (str,".")
set Objregexp = Nothing
ConnPuliziaVirus.execute ("UPDATE Tbl SET NOME='"&str&"' WHERE ID="&contatore)
rs.movenext
loop
end if

[optime]

if rs.eof=false then
   do while not rs.eof
      set ID = Conn.execute ("Select NOME as str from Tbl WHERE ID_SEGNALAZIONE="&contatore)
      set str = ID("str")
      Dim Objregexp
      set Objregexp = New RegExp
      Objregexp.Pattern = "[^A-Za-z0-9 .\s]"
      Objregexp.Global = True
      Objregexp.IgnoreCase = True
      str = Objregexp.Replace (str,".")
      set Objregexp = Nothing
      ConnPuliziaVirus.execute ("UPDATE Tbl SET NOME='"&str&"' WHERE ID="&contatore)
      rs.movenext	
   loop
end if

primo: a cosa serve rs se non lo usi mai?
secondo: metti qualche response.write in mezzo al ciclo per capire cosa sta succedendo

[rikuryu]

ti spiego la mia necessità è quella di prendere delle stringhe da una tabella e ripulirle da tutti i file che non sono alfanumerici fino ad arrivare al termine del database se tu potessi spiegarmi dettagliatamente il codice te ne sarei grato, non so proprio come proseguire grazie in anticipo per il supporto

[optime]

Originariamente inviato da rikuryu
... se tu potessi spiegarmi dettagliatamente il codice...

quale codice? l'hai già scritto...

[rikuryu]

intendo dire che dal momento che ho sicuramente sbagliato a scrivere se potessi aiutarmi anche a riscriverlo se fosse necessario cmq il codice di errore che mi da è il seguente

Active Server Pages, ASP 0113 (0x80004005)
Il tempo massimo disponibile per l'esecuzione di uno script è stato superato. Per modificare tale limite di tempo, impostare la proprietà Server.ScriptTimeOut sul valore desiderato o modificarne direttamente il valore utilizzando gli strumenti di amministrazione di IIS.


non capisco il perchè

[optime]

ma forse hai tanti dati e lo script va in timeout. ti ho già detto di aggiungere dei response.write per capire cosa sta facendo la routine