<%
'*******************************************************************************
'* XUD Copyright 1995-2003 XCENT - www.xcent.com *
'* XUD is a trademark of XCENT *
'* This notice may not be removed from this source code file *
'*******************************************************************************
Set objErr = CreateObject("Scripting.Dictionary")
sCMD = UCase(Trim(RequestValue("CMD")))
xcRegister_RequestData "[UA][GEN][UDF][SUB][BILL][ACCT]"
If gbEnabled Then
OpenDBConn
If AllowedIP Then
iRun = True
If gbUseSSL Then
If UCase(Trim(Request.ServerVariables("HTTPS"))) <> "ON" Then
Response.Redirect gsSSLURL & "XUDRegister.asp"
iRun = False
End If
End If
If iRun Then
DoPageHeader
AddJavaScriptHelp
Select Case sCMD
Case "AGREEMENT":
ShowAgreementForm
Case Else
If bAcceptAgreement Then
NextStepInRegistration
Else
ShowAgreementForm
End If
End Select
DoPageFooter
End If
Else
DoPageHeader
TableHead
ShowHTMLFile("XUDHtmlTxt/XUDRegisterBlockIP.htm")
TableFoot
DoPageFooter
End If
CloseDBConn
Else
Response.Redirect "XUDDisabled.asp"
End If
Set objErr = Nothing
Sub NextStepInRegistration
Response.Write ""
Response.Write vbCrLf & vbCrLf & "" & vbCrLf
End Sub
Sub ShowAgreementForm
TableHead
ShowHTMLFile Server.MapPath("XUDHtmlTxt\XUDRegisterUserAgreement.htm")
Response.Write ""
TableFoot
End Sub
Sub TableHead
Response.Write "