Hello guys, I am new to asp, the code I wrote is a register page, but it didn't work. And I couldn't find the problem. Can anyone here help me to sort it out? Thank you so much!!
Register.asp

<html>
<head>
<title>Register</title>
</head>
<body>
<table width="801">
<form aligh=center action="adduser.asp" method="post">
<tr>
<td><p align=right>First Name</td>
<td><input name="fname"></td>
</tr>
<tr>
<td><p align=right>Last Name</td>
<td><input name="lname"></td>
</tr>

<tr>
<td><p align=right>Title</p></td>
<td><input name="title"></td>
</tr>
<tr>
<td><p align=right>Date of Birth</p></td>
<td><input name="Birth"></td>
</tr>
<tr>
<td><p align=right>Address</p></td>
<td><input name="Address"></td>
</tr>
<tr>
<td><p align=right>City</p></td>
<td><input name="City"></td>
</tr>
<tr>
<td><p align=right>County</p></td>
<td><input name="County"></td>
</tr>
<tr>
<td><p align=right>Postal Code</p></td>
<td><input name="PostalCode"></td>
</tr>
<tr>
<td><p align=right>Telephone No</p></td>
<td><input name="TelNo"></td>
</tr>

<tr><td></td>
<td>
<div align="left">
<p> </p>
<p> </p>
<p><font size="2">Please input your Email</font></p>
<p><font size="2"> and password correctly </font></p>
<p><font size="2">as you need them to log on.</font></p>
</div>
</td></tr>
<tr>
<td><p align=right>Email</p></td>
<td><input name="Email"></td>
</tr>
<tr>
<td><p align=right>Password</p></td>
<td>
<input name="Password" type="password">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td>
<p align=right> </p>
</td>
<td>
<input type="submit" value="Submit" name="Submit">
<input type="reset" value="Reset" name="Reset">
</td> <td>
</tr>
</form>
</table>
</body>
</html>


adduser.asp

<%@ language=vbscript%>
<html>
<body>
<%
lname=request.form("lname")
fname=request.form("fname")
Title=request.form("Title")
DOB=request.form("Birth")
Address=request.form("Address")
City=request.form("City")
County=request.form("County")
PostalCode=request.form("PostalCode")
TelNo=request.form("TelNo")
Email=request.form("Email")
Password=request.form("Password")
Birth=cdate(DOB)

dim strsql
strsql="insert into User(FirstName,LastName,Title,DOB,Address,City,County,PostalCode,TelNo,Email,Password) values('"&fname&"','"&lname&"','"&Title&"','"&Birth&"','"&Address&"','"&City&"','"&County&"','"&PostalCode&"','"&TelNo&"','"&Email&"','"&Password&"');"
dim objcmd
set objcmd=server.createobject("adodb.command")
objcmd.activeconnection="driver={SQL Server};server=88.88.88.88;UID=sa;PWD=888;database=data"
objcmd.commandtext=strsql
objcmd.execute
set objcmd=nothing
%>
</body>
</html>