<%@LANGUAGE=VBSCRIPT%> <%page_title="Check Registration Submit Page"%> <%=page_title%> <% call openConnection() dim GoodUsername, GoodEmail set cmd=Server.CreateObject("ADODB.Command") set RS=Server.CreateObject("ADODB.Recordset") set cmd.ActiveConnection=conn cmd.CommandType=4 cmd.CommandText="mb_checkUsername" cmd.Parameters.Append cmd.CreateParameter("RC",3,4) cmd.Parameters.Append cmd.CreateParameter("Username",200,1,10,Request.Form("lgName")) set RS=cmd.Execute if not RS.EOF then GoodUsername="False" end if set RS=nothing set cmd=nothing set cmd=Server.CreateObject("ADODB.Command") set RS=Server.CreateObject("ADODB.Recordset") set cmd.ActiveConnection=conn cmd.CommandType=4 cmd.CommandText="mb_checkEmail" cmd.Parameters.Append cmd.CreateParameter("RC",3,4) cmd.Parameters.Append cmd.CreateParameter("Email",200,1,50,Request.Form("yourEmail")) set RS=cmd.Execute if not RS.EOF then GoodEmail="False" end if %>
     
   
  New user registration


<% if GoodUsername="" and GoodEmail="" then %> Your Login Username: <%=Request.Form("lgname")%>

Your Login Password: <%=Request.Form("psname")%>

Your Email address: <%=Request.Form("yourEmail")%>

"> "> "> If you are satisfied, click on 'Submit' to send your registration.

<% end if if GoodUsername="False" then %>
The username: <%=Request.Form("lgname")%> already exists in our database.
Please select another username.
<% end if if GoodEmail="False" then %>
The e-mail address: <%=Request.Form("yourEmail")%> already exists in our database.
Please select another e-mail address.
<% end if %>
Please Note! any spaces in the username or password are replaced by *  astericks.