Vb script compilation error while TRYING to write to db, URGENT

[hemal666]

hi,
im trying to wite some info to MS Access database with a DSNLess connection, i just cant seem to get past ther error!

heres the error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/registerinterest.asp, line 40

SQL ="INSERT INTO reginterest(fname,sname,hfno,add1,add2,pcode,daytel,evetel,mobtel,email,btoc,detreq)VALUES('"&fname&"','"&sname&"','"&**hfno&"','"&add1&"','"&add2&"','"&pcode&"','"&daytel&"','"&evetel&"','"&mobtel&"','"&email&"','"&btoc&"','"&detreq&"')"

*error points to **

im confused my connection stuff is as follows :

<%
Set Con=Server.CreateObject(&quot;ADODB.Connection&quot;)

Con.open &quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=&quot;&Server.MapPath(&quot;databases/pj.mdb&quot;)&&quot;;&quot;
'Con.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;&Server.MapPath(&quot;databases/pj.mdb&quot;)&&quot;;&quot;
SQL =&quot;INSERT INTO reginterest(fname,sname,hfno,add1,add2,pcode,daytel,evetel,mobtel,email,btoc,detreq)VALUES('&quot;&fname&&quot;','&quot;&sname&&quot;','&quot;&hfno&&quot;','&quot;&add1&&quot;','&quot;&add2&&quot;','&quot;&pcode&&quot;','&quot;&daytel&&quot;','&quot;&evetel&&quot;','&quot;&mobtel&&quot;','&quot;&email&&quot;','&quot;&btoc&&quot;','&quot;&detreq&&quot;')&quot;

Set ipRS=Server.CreateObject(&quot;ADODB.Recordset&quot;)
ipRS.open , SQL , Con

%>

any help will be much appreciated Hemal

 

[GaryC123]

Have you checked for apostropes etc with in the fields.
Space out your statement ..) Values (... etc

http://www.intouch-media.co.uk

 

[hemal666]

yup all values are strings in the database and ive tried spacing them too!!!
still no JOY!!!!!!!

 

[BDC2]

You statement falls over when you try to use the variable "hfno", maybe this is reserved or something, just change the variable name to something else.

BDC.

 

[jackfl]

Consider using AddNew (as in ipRS.AddNew). Then your code will error out on the individual column insert, instead of a long SQL command.

Set RS = Server.CreateObject("ADODB.RecordSet&quot
SQL = "SELECT * FROM table1"
RS.Open SQL,Conn,2,3
RS.AddNew
RS("fname&quot = fname
RS("sname&quot = sname
RS("hfno&quot = hfno
RS("add1&quot = add1
RS.Update
RS.Close
conn.close