Urgent help needed: WML & ASP

 
<% response.ContentType = "text/vnd.wap.wml" %> 
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN"
"http://www.wapforum.org/DTD/wml13.dtd">

<wml>
<card id="personalDetails" title="WAP CHAT - Register">

	
<p align="center"><b> Personal Details </b></p>

<p>

<b>Name:</b> <input name="varName" type="text" />
<b>Gender:</b> <br/>
         <select name="varGender"> 
	  <option value="Male">Male</option>
          <option value="Female">Female</option>
         </select>
<b>Date of Birth:</b> <input name="varDOB" type="text" /><br/>
<b>Student Number:</b> <input name="varStudentNumber" type="text" /><br/>
</p>


<p align="center"><b> Login Information </b></p>

<p>

<b>Username:</b> <input name="varUserame" type="text" />
<b>Password:</b> <input name="varPassword" type="password" maxlength="10"/>

</p>


<p align="center"><b> Credit Card Information </b></p>

<p>

<b> Number:</b> <input name="varCCNumber" type="text" />
<b> Type:</b> <br/>
	 <select name="varCCType"> 
	  <option value="Visa">Visa</option>
          <option value="Master Card">Master Card</option>
	  <option value="American Express">American Express</option>
         </select>
<b> Expiry Date:</b> <input name="varCCExpDate" type="text" /><br/>

</p>

<p align="center">

<do type="accept" label="Confirm Info">
	<go href="logreg.asp" method="get">
		<postfield name="Name" value="$(varName)" />
		<postfield name="Gender" value="$(varGender)" />
		<postfield name="DOB" value="$(varDOB)" />
		<postfield name="StudentNumber" value="$(varStudentNumber)" />
		<postfield name="Username" value="$(varUsername)" />
		<postfield name="Password" value="$(varPassword)" />
		<postfield name="CCNumber" value="$(varCCNumber)" />
		<postfield name="CCType" value="$(varCCType)" />
		<postfield name="CCexpDate" value="$(varCCExpDate)" />
	</go>
</do>
</p>

</card> 
</wml>

<%@ Language = "VBScript"%><?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN"
"http://www.wapforum.org/DTD/wml13.dtd">

<!--#include file="connect.asp"-->

<wml>
<card id="login" title="W@P CHAT - Login">

<p align="center">

Thank you for entering your details. <br/>
Now you can login below!

</p>

<p>
<a href="login.asp">Login</a>

<%
'Dimension variables

Dim adoCon				'Holds DB Connection object
Dim	rsAddUser			'Holds the RS for the new record to be added

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Inetpub\wwwroot\WAPChat\Room\WAPChat.mdb;" & _
               "Persist Security Info=False"

Set rsAddUser = Server.CreateObject("ADODB.Recordset")

Dim name, gender, dob, stuno, usrname, passwrd, ccnum, cctype, ccexpda

rsAddUser.CursorType = 2
rsAddUser.LockType = 3
rsAddUser.Open adoCon

name = Request.QueryString("Name")
gender = Request.QueryString("Gender")
dob = Request.QueryString("DOB")
stunum = Request.QueryString("StudentNumber")
usrname = Request.QueryString("Username")
passwrd = Request.QueryString("Password")
ccnum = Request.QueryString("CCNumber")
cctype = Request.QueryString("CCType")
ccexpda = Request.QueryString("CCExpDate")


rsAddUser.AddNew
rsAddUser("Name") = name
rsAddUser("Gender") = gender
rsAddUser("DOB") = dob
rsAddUser("StudentNumber") = stunum
rsAddUser("Username") = usrname
rsAddUser("Password") = passwrd
rsAddUser("CCNumber") = ccnum
rsAddUser("CCType") = cctype
rsAddUser("CCExpDate") = ccexpda

rsAdduser.Update

rsAddUser.Close
Set rsAddUser = nothing
adocon.Close
Set adoCon = nothing

%>

</p>
</card>
</wml>