ciclo che non funziona

[celeronter]

Ciao a tutti ho questo pezzo di codice che non va e non riesco a capire il perchè mi sembra tutto corretto ma mi genera un errore di Time OUT

set conn = Server.createObject("ADODB.Connection")
str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH") & "database\data.mdb;"
conn.open str
set rsm = Server.createObject("ADODB.Recordset")
sql = "SELECT adm_mail.mail FROM adm_mail INNER JOIN admin ON adm_mail.user=admin.user"
rsm.open sql, conn, 3, 3
arr_mail = ""
if not rsm.BoF then rsm.movefirst
while not rsm.EoF
if arr_mail = "" then
arr_mail = rsm("mail")
else
arr_mail = arr_mail & ";" & rsm("mail")
end if
rsm.movenext
wend
rsm.close

[optime]

quanti record hai nella tabella?

[celeronter]

5 record

[optime]

difficile che quel codice faccia andare in timeout il server... metti qualche response.write qua e là per vedere cosa sta facendo