hey, im rather new to ASP code trying to get this to work.

i keep getting

Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/register_user.asp, line 62

<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
'check for blank form fields
If Request.Form("Username") = "" Then
Response.Write "Please enter your Username."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Surname") = "" Then
Response.Write "Please enter your Surname."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Firstname") = "" Then
Response.Write "Please enter your Firstname."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Address") = "" Then
Response.Write "Please enter your Address."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Password") = "" Then
Response.Write "Please enter your Password."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Phone") = "" Then
Response.Write "Please enter your Phone Number."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
If Request.Form("Email") = "" Then
Response.Write "Please enter your Email address."
Response.Write "<br><a href='javascript:history.back()'>Go back</a>"
Else
'declare variables
Dim objConn, objRS, strSQL, strUsername, strSurname, strFirstname, strAddress, strPhone, strEmail, strPassword

'retrieve data from form
strUsername = Request.Form("Username")
strSurname = Request.Form("Surname")
strFirstname = Request.Form("Firstname")
strAddress = Request.Form("Address")
strEmail = Request.Form("Email")
strPhone = Request.form("Phone")
strPassword = Request.form("Password")

'Open up a connection to our Access database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("asp_project.mdb")

'Open up a connection to tblCustomers
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblcustomers WHERE Username LIKE '" & strUsername & "'"
objRS.Open strSQL, objConn

If objRS.EOF Then
'if username does not already exist in database
strSQL="INSERT INTO tblCustomers (Username,Surname,Firstname,Address,Phone,Email,Password) VALUES ('" & strUsername & "','" & strSurname & "','" & strFirstname & "','" & strAddress & "','" & strPassword & "','" & strPhone & "','" & strEmail & "')"
objConn.Execute strSQL
Response.Write "Thank you for registering " & strUsername & "."
Else
Response.Write "Username already exists."
Response.Write "<br><a href='register.asp'>Go back</a>"
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End If
%>
any help would be great!