<%
userID = fixsql(request.querystring("ID"))
set objDB = OpenDatabase(false)
SQL = "Update Users set Approved = 1 where ID = '" & userID & "'"
UpdateDB objDB, SQL
SQL = "Select FirstName, LastName, Email, Password from Users where ID = '" & userID & "'"
set rsUser = CreateRecordset(objDB, SQL)
Set ObjMail = Server.CreateObject("CDO.Message")
objMail.to = rsUser("Email")
objMail.from = "website@prominentxtranet.com"
objMail.subject = "Prominent Xtranet Resigstration Approval"
body = "" & rsUser("FirstName") & ","
body = body & "
Your registration was approved to access the Prominent Xtranet."
body = body & "
You may login to www.prominentxtranet.com using the credentials below.
"
body = body & "Email: " & rsUser("Email") & "
"
body = body & "Password: " & rsUser("Password")
objMail.htmlbody = body
objMail.send
set objMail = nothing
rsUser.close
set rsUser = nothing
objDB.close
set objDB = nothing
response.redirect("../users.asp")
%>