GroupInterVisual - Register - Personal details

<% Option Explicit Response.Expires = 0 Response.Buffer = TRUE Dim conn, rs, strSQL, strSQL2 ' DatabaseConnection variables Dim TheString ' SQLRemoveBadCharactersInc SetVars Function Dim adjustingtext ' SQLRemoveBadCharactersInc RemoveCharacters Function Dim arysplit, i, j, strOutput ' SQLRemoveBadCharactersInc stripHTML2 Function Dim strRegisterBounceBackURL ' Create Registration BounceBack URL link strRegisterBounceBackURL = "?Referral=" & Server.URLEncode (left(stripHTML2(RemoveCharacters(trim(Request.Querystring("Referral")))),250)) Session("Location") = "Register" 'CHECK if Logged Out If Session("CustomerID") <> "" Then ' Logged In. Bounce out. Response.Redirect "../asp/Login.asp?Session=Expired" End If %> GroupInterVisual - Register - Personal details

You are about to register with GroupInterVisual™, which will enable you to try out our website-based videoconferencing and bulletin board services. Once you are registered with us, you are automatically given your own videoconferencing homepage for personal use, access to our free-to-join videoconference communities and bulletin boards, and a host of other benefits. Click here for more detailed information. Firstly, for those interested in our videoconference facilities, if you are using Windows 95, 98 or Me, please click the download button below to configure NetMeeting (the videoconferencing software on your PC) for use on our site. Without this download, you may find your videoconferencing software not working properly on our system. If you are using Windows 2000 or XP, please refer to the section on logging in and selecting the right server in our help files, which will explain how to configure your NetMeeting software manually. Currently, full functionality of GroupInterVisual's videoconferencing service is only available using Internet Explorer, NetMeeting and versions of Windows (95, 98, NT, 2000, ME, and XP) Secondly, to set up a free personal GroupInterVisual™account, we need you to register some information with us. You can do this by completing the following form and then clicking the 'submit' button below. <% ' BEGIN ASP Error Checks ' (1) Duplicate Username Check Select Case left(stripHTML2(RemoveCharacters(trim(Request.Querystring ("Error")))),25) Case "Dupeusername" %> The username you selected ' <%= Session("username")%> ' is already taken! Please choose a different username. <% Session("username") = "" %> <% Case "NoUsername" %> I'm sorry. You must enter a unique username so we can identify you. <% Case "NoPassword" %> I'm sorry. You must enter a password. <% Case "NotMatchingPasswords" %> I'm sorry. For security, you must enter two matching passwords. <% Case "NoEmailAddress" %> I'm sorry. For communication purposes, you must enter a valid email address. <% End Select ' END Asp Error Checks %>
* = Required information
username*	">
password*
retype password*

Security Question 1*	What is your mother's maiden name? ">
Security Question 2*	Where is your birthplace? ">
Personal Information
Title*	">
First Name*	">
Surname*	">
Company name/Occupation*	">
Address	">
	">
Town*	">
County*	">
Country*
Post Code	">
Email*	">
Would you like email in plain text format or with pictures (HTML) ?
Plain Text <% ' HTML email format if selected previously If Session("emailformat") = "html" Then %> Words & Pictures (HTML) <% ' Plain text email format by default Else %> Words & Pictures (HTML) <% End If %>
Telephone	">
How did you hear about GroupInterVisual?	<% Select Case Session("hear") Case "Newspaper" %> <% Case "Magazine" %> <% Case "Internet" %> <% Case "Word of Mouth" %> <% Case "Ecademy" %> <% Case "Television" %> <% Case "Radio" %> <% Case "Other" %> <% Case Else %> <% End Select %>

When returning to the site, how do you wish to be greeted ?
formally <% ' Informal greeting if selected previously If Session("greeting") = "informally" Then %> informally <% ' Formal greeting by default Else %> informally <% End If %>

Personal Information