Cancellazione News (fine)<% on error resume next form_Titolo=request.form("Titolo") form_Content=request.form("Content") form_Datat=request.form("Datat") form_ID=request.form("id") myDSN="Driver=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("/database") & "/stortinews.mdb;" set conn=server.createobject("adodb.connection") conn.open myDSN ' change apostrophe to double apostrophe form_Content=Replace(form_Content, "'", "''") IF instr(lcase(form_Content),"" response.write "Error Number=" & err.number & " " response.write "Error Descr.=" & err.description & " " response.write "Help Context=" & err.helpcontext & " " response.write "Help Path=" & err.helppath & " " response.write "Native Error=" & err.nativeerror & " " response.write "Source=" & err.source & " " response.write "SQLState=" & err.sqlstate & " " end if IF conn.errors.count> 0 then response.write "Database Errors Occured" & " " response.write SQLstmt & " " for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & " " response.write "Error desc. -> " & conn.errors(counter).description & " "
next
else
response.write " |
