<%@ Language=VBScript %> <% Option Explicit %> <% Dim lfInvalidCharPos Dim lfAction Dim zfRedirect Dim zfPD_Nickname Dim zfPD_Password Dim zfPD_Email Dim zfPD_Info Dim lfPD_BirthMonth Dim lfPD_BirthDay Dim lfPD_BirthYear Dim zfPD_Country Dim lfPD_TimeZoneID Dim zfPD_Gender Dim bfPD_PrivShowEmail Dim bfPD_ReceiveEmailNotifications Dim lfUpdateResult Dim zfErrorDetails Dim datfDOB Dim zfMessage If Request.Form("submitted") = "1" Then lfAction = CLng(Request.Form("action")) ' Read player details from form into variables. zfPD_Nickname = Request.Form("txtNickname") zfPD_Password = Request.Form("txtPassword") zfPD_Email = Request.Form("txtEmail") zfPD_Info = Request.Form("txtInfo") lfPD_BirthMonth = CLng(Request.Form("cboMonth")) lfPD_BirthDay = CLng(Request.Form("cboDay")) lfPD_BirthYear = CLng(Request.Form("cboYear")) zfPD_Country = Request.Form("cboCountry") lfPD_TimeZoneID = Request.Form("cboTimeZone") zfPD_Gender = Request.Form("cboGender") bfPD_PrivShowEmail = Request.Form("chkShowEmail") = "on" bfPD_ReceiveEmailNotifications = Request.Form("chkReceiveEmailNotifications") = "on" Call RegisterPlayer(zfPD_Nickname, zfPD_Password, LF_ACCESS_PLAYER, _ zfPD_Email, zfPD_Info, lfPD_BirthDay, lfPD_BirthMonth, lfPD_BirthYear, _ zfPD_Gender, zfPD_Country, lfPD_TimeZoneID, bfPD_PrivShowEmail, bfPD_ReceiveEmailNotifications, zfErrorDetails, lfInvalidCharPos) If zfErrorDetails = "" Then Call Login(Request.Form("txtNickname"), Request.Form("txtPassword")) If Request.Form("redirect") <> "" Then Response.Redirect Request.Form("redirect") End If End If zfRedirect = Request.Form("redirect") Else lfPD_BirthDay = 0 lfPD_BirthMonth = 0 lfPD_BirthYear = 0 lfPD_TimeZoneID = 0 bfPD_PrivShowEmail = True bfPD_ReceiveEmailNotifications = True If Not IsNumeric(Request.QueryString("action")) Then lfAction = LF_ACTION_DEFAULT Else lfAction = CLng(Request.QueryString("action")) End If zfRedirect = Request.QueryString("redirect") End If %> Register
<% Call ShowGlobalHeaderLinks("", "", False) %>
<% Call ShowLoginStatus() %>
Register

<% If lfAction <> LF_ACTION_DEFAULT Then Select Case lfAction Case LF_ACTION_TOURNEYSIGNUP zfMessage = "After registering, you will be signed up for the tournament and re-directed to the tournament details pages." End Select Call ShowMessageBox(zfMessage, "", LF_MESSAGETYPE_NEUTRAL) End If %> <% If zfErrorDetails <> "" Then Call ShowMessageBox(zfErrorDetails, "Error", LF_MESSAGETYPE_WARNING) End If %> <% If Request.Form("submitted") And zfErrorDetails = "" Then Call ShowMessageBox("Congratulations! You have successfully registered with the Virtual Pool Headquarters Tournament System.", "Registration Successful", LF_MESSAGETYPE_INFORMATION) Else %>

Important
If you have already registered, please do not register again. Instead you may want to: Change your nickname or Get a password reminder

Register

Please Note: Cookies and JavaScript must be enabled in order to register and participate in tournaments.

Items marked with a * indicate required information. All other information is optional.
* Nickname:
* Password:
* Email:
  >Allow other players to view my e-mail address
 
 
Info:
Date of birth: <% Call ShowDateDropdowns(lfPD_BirthDay, lfPD_BirthMonth, lfPD_BirthYear, 1900, 2003, True) %>
Gender:
Country:
Time Zone:
  >Receive e-mail notifcations for tournaments and other special events
Privacy Policy: E-mails will only be sent concerning Virtual Pool Headquarters tournaments and special events and will not be used for any other purpose.
 
 
<% End If %>
<% Call ShowGlobalFooterLinks("", "", False) %>