<%
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