Insert into syntax error

[kisalabs]

I have been trying to insert a new record into an access database and cannot get any of the scripts to work.. I can access the db and pull up/display records but cannot get one added. Please help. (info to be inserted comes from form)

Inserting Records :
<form action="a.asp" method="post">
    FirstName : <input type="text" name="FirstName"><br>
    LastName : <input type="text" name="LastName"><br>
    Email : <input type="text" name="Email"><br>
    DateTime : <input type="text" name="DateTime"><br>
    RequestDescription : <textarea name="RequestDescription" cols="20" rows="5"></textarea><br>
    Rank : <input type="text" name="Rank"><br>
    PhoneNumber : <input type="text" name="PhoneNumber"><br>
    Section : <input type="text" name="Section"><br>
    BuildingNumber : <input type="text" name="BuildingNumber"><br>
    RoomNumber : <input type="text" name="RoomNumber"><br>
    RequestType : <input type="text" name="RequestType"><br>
 
 
    <input type="submit" value="submit">
</form>
 

 
 
<%
' Declaring variables
 
 
Dim DateTime, PhoneNumber, Rank, LastName, FirstName, Section , BuildingNumber, RoomNumber, RequestType, Email, RequestDescription, con, sql_insert
 
 
' A Function to check if some field entered by user is empty
Function ChkString(string)
    If string = "" Then string = " "
    ChkString = Replace(string, "'", "''")
End Function
 
' Receiving values from Form
name = ChkString(Request.Form("name"))
email = ChkString(Request.Form("email"))
DateTime = ChkString(Request.Form("DateTime"))
PhoneNumber = ChkString(Request.Form("PhoneNumber"))
Rank = ChkString(Request.Form("Rank"))
LastName = ChkString(Request.Form("LastName"))
FirstName = ChkString(Request.Form("Section"))
BuildingNumber = ChkString(Request.Form("BuildingNumber"))
RequestType = ChkString(Request.Form("RequestType"))
RequestDescription = ChkString(Request.Form("Request Description"))
 
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
Server.MapPath("wots.mdb")
sql_insert = ("INSERT INTO MasterTable ( Email, DateTime, PhoneNumber, Rank, LastName, FirstName, Section, BuildingNumber,  RequestType, RequestDescription) VALUES ('" & email & "', '" & DateTime & "', '" & PhoneNumber & "', '"& Rank &"' '"& LastName &"', '" & FirstName &"', '" & Section &"' '" & BuildingNumber &"' '" & RequestType & "' '" & RequestDescription &"' )")
 
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
 
' Done. Close the connection
con.Close
Set con = Nothing
%>
 
 
 

[damonreid]

If you place code tags around this it will be much easier to use.

Also what version of windows/access are you running?

[kisalabs]

MS access 2002 sp3 is on the server, MS access 2003 sp2 was used to create the DB

Server 2003