Ho scritto questo codice per eliminare un file dal server e un record dal database:
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...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
dove potrebbe essere l'errore??

Rispondi quotando
