<%
Dim rsWeb
Dim sql
Dim rsWebPKEY
Dim pkey
dim vRecipient, vCC, vBCC, vMailserver
dim oMailer, mtxt, ftxt
dim fso, f
Dim OIRequestType
OIRequestType = request.form("RequestType"
sql = "SELECT * FROM tblInformation WHERE pkey=" & request.form("Pkey"
Set rsWeb = Server.CreateObject("adodb.recordset"
rsWeb.open sql, strCON, 3, 3
if request.form("Approved" = "Yes" then
rsWeb("Approver1" = "Yes"
rsWeb("Approver1NTID" = trim(Request.ServerVariables ("LOGON_USER")
rsWeb("DateApprover1" = date()
rsWeb("Status" = "PendingSecurity"
rsWeb.Update
Dim rsWeb
Dim sql
Dim rsWebPKEY
Dim pkey
dim vRecipient, vCC, vBCC, vMailserver
dim oMailer, mtxt, ftxt
dim fso, f
Dim OIRequestType
OIRequestType = request.form("RequestType"
sql = "SELECT * FROM tblInformation WHERE pkey=" & request.form("Pkey"
Set rsWeb = Server.CreateObject("adodb.recordset"
rsWeb.open sql, strCON, 3, 3
if request.form("Approved" = "Yes" then
rsWeb("Approver1" = "Yes"
rsWeb("Approver1NTID" = trim(Request.ServerVariables ("LOGON_USER")
rsWeb("DateApprover1" = date()
rsWeb("Status" = "PendingSecurity"
rsWeb.Update