<%
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"
rsWeb("Approver1"
rsWeb("Approver1NTID"
rsWeb("DateApprover1"
rsWeb("Status"
rsWeb.Update