Quantcast
Channel: Transact-SQL forum
Viewing all articles
Browse latest Browse all 23857

Expected End Statement

$
0
0

I cannot figure out what is wrong here.. I'm running this on a .asp page and it seems to work when inserting into a MS Access database but cant into MS SQL database..

Error is at line starting with "RsContactForm.Open INSERT INTO" and the error displayed is:

Microsoft VBScript compilation error '800a0401'


Expected end of statement

 

Sub DB sConnStr = "Provider=sqloledb;Data Source=******.db.1and1.com,1433;Initial Catalog=******;User Id=*******;Password=*********;" Set OBJdbConn = Server.CreateObject("ADODB.Connection") OBJdbConn.Open sConnStr Set RsContactForm = Server.CreateObject("ADODB.recordset") RsContactForm.Open "INSERT INTO tbl_Projects(ProjName,ProjContact,ProjAddress,ProjCity,ProjState,ProjZip,ProjPhone,ProjStyle,ProjLeadTime,ProjDesc,ProjCategory,ProjEmail,ProjPrivate,projlastuser,projrand) VALUES ('" & Request.Form("T0") & "''" "''" & Request.Form("T1") & "''" "''" & Request.Form("T3") & "''" "''" & Request.Form("T4") & "''" "''" & Request.Form("T0") & "','" & Request.Form("T1") & "','" & Request.Form("T2") & "','" & Request.Form("T3") & "','" & Request.Form("T4") & "','" & Request.Form("T5") & "','" & Request.Form("T6") & "','" & Request.Form("T8") & "','" & Request.Form("T9") & "','" & Request.Form("T10") & "','2','" & Request.Form("T7") & "','""','" & stampedname & "','" & randgen() & "');", OBJCONN

RsContactForm.Close Set RsContactForm = Nothing OBJdbConn.Close Set OBJdbConn = Nothing end sub

Any help is greatly appreciated...



Viewing all articles
Browse latest Browse all 23857

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>