<% Option Explicit %>
<%
Dim intUserID
Dim intAddStatus
Dim strStatusMsg
Dim strHomepage
'On Error Resume Next
If Request.Form("login")<>"" Then
AddMember()
If Err.number <> 0 or (intUserID = 0) Then
intAddStatus = Err.number
strStatusMsg = Err.description
ElseIf intUserID > 0 then
Load_UserProfile()
Response.Redirect strRootPath & "sitemembership/newMemberWhatToDo.html"
End if
End if
Dim strHTML
'Challenge Question
Dim strReferralPage
Dim strCancelPage
Dim cQuestion(4)
cQuestion(1)="Mother's maiden name?"
cQuestion(2)="Where were you born?"
cQuestion(3)="Your favorite color?"
cQuestion(4)="Your pet's name?"
Dim strBGcolor
strReferralPage = strRootPath & "sitemembership/register.html"
strCancelPage = strRootPath & "login.html"
strBGcolor = "#ECECE4"
%>
<!-- #include virtual="/resources/global/glbTitle.asp" -->- Register
Home