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!

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 first thing I notice is here:

strSQL="INSERT INTO tblUsers (User_Name,User_passwd,User_level,NAME,MAIL_ID,Pla ce,COUNTRY)"

There is a space between "a" and "c" in "Place". Was this a typo, or actually im your code?

Its just a TYPO in this when i pasted it

Instead of the above code, can you try the following:

rsAddComments.CursorType = 0
rsAddComments.CursorLocation = 2
rsAddComments.LockType = 1

If i switch locktype to 1: i get

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/project/adduser.asp, line 56