<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% Dim sForm,objRS,TimeStamp TimeStamp = (Month(Date) & "/" & Day(Date) & "/" & Year(Date) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) ) For Each sForm in Request.Form Session("MContent") = (Request.Form(sForm) ) Next Session("MTitle") = TRIM((Request.Form("MessageTitle"))) Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "Emessageboard", objConn1, , adLockOptimistic, adCmdTable objRS.AddNew objRS("MessageContent") = Session("MContent") objRS("MessageOwner") = Session("RequesterLogon") objRS("MessageType") = TRIM(Request.form("MessageType")) objRS("MessageTitle") = Session("MTitle") objRS("MessageOFullname") = Session("RequesterFullName") objRS("MessageDate") = TimeStamp objRS("MessageActive") = "1" objRS.Update response.redirect("listmessageadmin.asp") %>