Mauro Storti 

INDICE AGGIORNAMENTI

HOME

 Aggiornamento News (passo 2 di 2) 

<% 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),"0 THEN form_Content="" END IF SQLstmt = "UPDATE news SET " SQLStmt = SQLstmt & "Titolo='" & form_Titolo & "'," SQLstmt = SQLstmt & "Content='" & form_Content & "'," SQLStmt = SQLstmt & "Datat='" & form_Datat & "'" SQLStmt = SQLStmt & " WHERE NewsID=" & form_ID 'end Set RS = Conn.Execute(SQLStmt) If err.number>0 then response.write "VBScript Errors Occured:" & "

" 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 "

L'aggiornamento è andato a buon fine.
Il record è stato aggiornato senza errori

" response.write "
" & SQLstmt & "" end if rs.close set rs=nothing Conn.Close set conn=nothing %>

 
Aggiorna altra NEWS Aggiungi NEWS Visualizza NEWS

Aggiungi LINK