Using Asp To Add A Record In A Mysql Database

Hi

I have made the following code, this file is opened when my HTML form is submitted. When run, it does go through it, and works without error BUT DOES NOT ADD ANYTHING TO THE DATABASE! I have tried redirect(printing) before the update, which work fine in mysql client.


Please help


<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
'Create an ADO connection object

Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection

adoCon.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=***;PA SSWORD=***;OPTION=3;"
'Create an ADO recordset object

Set rsAddComments = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database



strSQL ="SELECT tblUsers.User_Name, tblUsers.User_passwd, tblUsers.User_level, tblUsers.NAME, tblUsers.MAIL_ID, tblUsers.Place, tblUsers.COUNTRY FROM tblUsers;"

'Set the cursor type we are using so we can navigate through the recordset

rsAddComments.CursorType = 3

'Set the lock type so that the record is locked by ADO when it is updated

rsAddComments.LockType = 3
'Open the recordset with the SQL query

rsAddComments.Open strSQL, adoCon
'Tell the recordset we are adding a new record to it

strSQL="INSERT INTO tblUsers (User_Name,User_passwd,User_level,NAME,MAIL_ID,Pla ce,COUNTRY)"
strSQL=strSQL & " VALUES "
strSQL=strSQL & "('" & Request.Form("name") & "',"
strSQL=strSQL & "'" & Request.Form("comments") & "',"
strSQL=strSQL & "'" & ("= 1") & "',"
strSQL=strSQL & "'" & Request.Form("USERNAME") & "',"
strSQL=strSQL & "'" & Request.Form("MAIL_ID") & "',"
strSQL=strSQL & "'" & Request.Form("Place") & "',"
strSQL=strSQL & "'" & Request.Form("COUNTRY") & "')"



'Write the updated recordset to the database
rsAddComments.Update

'Reset server objects

rsAddComments.Close

Set rsAddComments = Nothing

Set adoCon = Nothing
'Redirect to the asp page
Response.Redirect "main.asp"

%>

THE HTML has the form:


User Name:
Password:
YOUR NAME:
Email:
CITY:
COUNTRY:

AND A SUBMIT BUTTON