<html>
<head>
<title>Fingerprint Process</title>
</head>
<body>
<!-- #include file="adovbs.inc" -->
<%
Function URLDecode(sIn)
Dim iCounter
Dim sTemp
iCounter = 1
Do
If Mid(sIn, iCounter, 1) <> "%" Then
sTemp = sTemp & Mid(sIn, iCounter, 1)
Else
sTemp = sTemp & Chr(Cint("&H" & Mid(sIn, iCounter + 1, 2)))
iCounter = iCounter + 2
End If
iCounter = iCounter + 1
Loop Until iCounter > Len(sIn)
URLDecode = sTemp
End Function
Dim SQL
Dim ID
Dim rs
Dim cn
If Len(Request.Form("VerifyFeature")) <> 0 Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Transactions", "Fingerprints", adOpenKeyset, adLockPessimistic, adCmdTable
rs.AddNew
rs("VerifyFeature") = URLDecode(Request.Form("VerifyFeature"))
rs("Approved") = 0
rs.Update
ID = rs("ID")
rs.Close
Set rs = Nothing
SQL = "select * from Transactions where ID=" & ID & "" & " and Approved>0"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=Fingerprints"
Do
Set rs = cn.Execute(SQL)
Loop Until Not((rs.BOF = True) and (rs.EOF = True))
If rs("Approved").Value = 2 Then
Response.Write "Verified, " & rs("UserID").Value
Session("Verified") = True
Else
Response.Write "Verification Failed!"
Session("Verified") = False
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
elseif len(Request.Form("RegistrationFeature")) <> 0 then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "RegistrationFeatures", "Fingerprints", adOpenKeyset, adLockPessimistic, adCmdTable
rs.AddNew
rs("UserID") = Request.Form("UserID")
rs("RegistrationFeature") = URLDecode(Request.Form("RegistrationFeature"))
rs.Update
rs.Close
Set rs = Nothing
Response.write "Registered, " & Request.Form("UserID")
Session("Verified") = False
else
Response.Write "Features Not Sent"
Session("Verified") = False
end if
Response.Write "<br><hr><br>"
%>
</body>
</html>
