<%@LANGUAGE="VBSCRIPT"%>
Modifica commento
<%
set rsBoard = Server.CreateObject("ADODB.Recordset")
rsBoard.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("/_db/chiarinoBoard.mdb")
rsBoard.Source = "Select * from TabMessaggi WHERE ID = " & request("ID") & ""
rsBoard.Locktype = 3
rsBoard.Open()
rsBoard("Autore") = request("Autore")
rsBoard("Oggetto") = request("Oggetto")
rsBoard("Dataora") = request("Data")
rsBoard("Pubblica") = request("selPubblica")
rsBoard("Testo") = request("Testo")
rsBoard.update
rsBoard.Close
set rsBoard = nothing
response.Redirect("/message.asp")
%>