<%
Dim UN, P, RP, FN, LN, Em, RO
Dim objRs, strSQL
Function FixQ(strString)
FixQ = Replace(Trim(strString), "'", "''")
End Function
UN = Request.Form("UserName")
P = Request.Form("Password")
RP = Request.Form("RePassword")
FN = Request.Form("FName")
LN = Request.Form("LName")
Em = Request.Form("Email")
RO = Request.Form("Role")
strSQL = "SELECT UserLogin FROM tblAdminLogin WHERE UserLogin = '"&FixQ(UN)&"'"
Set objRs = objCon.Execute(strSQL)
If Not objRs.EOF Then
strQS = "f="&FN&"&l="&LN&"&e="&Em&"&r="&Ro
%>
• A user already exists with this user name. Please choose another user name. Click here to try again.
<%
Else
Dim strSQLIns
strSQLIns = "INSERT INTO tblAdminLogin(UserLogin, UserPassword, FirstName, LastName, Email, Role) VALUES('"&FixQ(UN)&"', '"&FixQ(P)&"', '"&FixQ(FN)&"', '"&FixQ(LN)&"', '"&FixQ(Em)&"', '"&FixQ(RO)&"')"
objCon.Execute strSQLIns, lngRecs
If lngRecs >= 1 Then
%>
• New admin account created!
• Click here to close this window.
<%
Else
%>
• Error incurred! Account not created. Try again.
<%
End If
End If
objRs.Close
objCon.Close
Set objRs = Nothing
Set objCon = Nothing
%>