strSubject = request.Form("Subject")
strNightDate = request.Form("NightDate")
strPersonAddedOn = request.Form("PersonAddedOn")
strComputerName = request.Form("ComputerName")
strLoggedBy = request.Form("LoggedBy")
strAllNights = request.Form("AllNights")
'create connection object
Set MesIns=CreateObject("ADODB.Command")
MesIns.ActiveConnection=objConn
MesIns.commandtext = "insert into Nightly_Table (Subject, PersonAddedOn, NightDate, ComputerName, LoggedBy, AllNights) VALUES (?,?,?,?,?,?)"
MesIns.Parameters.Append MesIns.CreateParameter("@Subject", 200, 1, 255, strSubject)
MesIns.Parameters.Append MesIns.CreateParameter("@PersonAddedOn", 200, 1, 255, strPersonAddedOn)
MesIns.Parameters.Append MesIns.CreateParameter("@NightDate", 200, 1, 255, strNightDate)
MesIns.Parameters.Append MesIns.CreateParameter("@ComputerName", 200, 1, 255, strComputerName)
MesIns.Parameters.Append MesIns.CreateParameter("@LoggedBy", 200, 1, 255, strLoggedBy)
MesIns.Parameters.Append MesIns.CreateParameter("@AllNights", 200, 1, 255, strAllNights)
MesIns.Execute
|