Ho scritto questo codice per eliminare un file dal server e un record dal database:

codice:
Set objConn = Server.CreateObject("ADODB.Connection")
				objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("dati/dati.mdb"))
				Set objRs = Server.CreateObject("ADODB.Recordset")
				sql = "select * from news" 
				objrs.open sql,objconn, 1,3
				Do while NOT objRs.EOF
					
					if (cstr(objRs("data")) = cstr(codice)) and (cstr(objRs("autore")) = cstr(autore)) and (cstr(objRs("ID")) = cstr(id)) then
					if objRs("foto1") = true then
						Dim FSO 
						Set FSO = CreateObject("Scripting.FileSystemObject") 
						fileObj = FSO.DeleteFile(Server.MapPath("\fotonews\") & autore & codice & idcodice &"_01.jpg")
					'	FSO.DeleteFile(Server.MapPath("\fotonews\mini\") & autore & codice & idcodice &"_01.jpg") 
						Set objFSO = Nothing 
					end if
					objRs.delete
					response.write "La Newsletter "& codice &" è stata eliminata con successo.
Clicca <a href=utenti1.asp>qui</a> per tornare al pannello di controllo."
					end if
				
				objRs.movenext
				loop
				objRs.Close
				Set objRs = Nothing
				objConn.Close
				Set objConn = Nothing
Il file esiste e il nome del file viene generato correttamente ma quando provo la pagina in locale si blocca tutto e non mi da nessun errore, è come quando va in loop...

dove potrebbe essere l'errore??