<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% dim Timestamp TimeStamp = Day(Date) & "/" & (Month(Date) & "/" & Year(Date) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) ) 'on error resume next dim message,strSQL,objRS,sForm message = Session("MessageNUmber") session("MTitle") = TRIM((Request.Form("MessageTitle"))) For Each sForm in Request.Form Session("MContent") = (Request.Form(sForm) ) Next Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "update EMessageboard set MessageType = '"&TRIM(Request.form("MessageType"))&"', MessageContent = '"&Session("MContent")&"', MessageTitle = '"&Session("MTitle")&"' , MessageDate = '"&Timestamp&"' WHERE MessageUID = "&Session("MessageNUmber")&" ;" response.write (strSQL) 'response.end objRS.Open strSQL, objConn1 response.redirect("ListMessageAdmin.asp") %>