Hi All,
I have been trying to find the error on this statement for quite a while now, and cant spot it. please could anyone point out the obvious.
Regards
<%
set con = Server.CreateObject("ADODB.connection")
accessdb = "./database.mdb"
con.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCe="&server.mappath(accessdb)
strID=Request.Form("id")
strcompany=Request.Form("company")
strcontact=Request.Form("contact")
strjobfunction=Request.Form("jobfunction")
straddress=Request.Form("address")
strmobile=Request.Form("mobile")
strtel=Request.Form("tel")
strext=Request.Form("ext")
strfax=Request.Form("fax")
stremail=Request.Form("email")
strweb=Request.Form("web")
mysql = "INSERT INTO tblcontacts"
mysql = mysql & "VALUES'"& "ID='" & strID & "',"
mysql = mysql & "Company='" & strcompany & "',"
mysql = mysql & "Contact='" & strcontact & "',"
mysql = mysql & "JobFunction='" & strjobfunction & "',"
mysql = mysql & "Address='" & straddress & "',"
mysql = mysql & "Mobile='" & strmobile & "',"
mysql = mysql & "Tel='" & strtel & "',"
mysql = mysql & "Fax='" & strfax & "',"
mysql = mysql & "Email='" & stremail & "',"
mysql = mysql & "Web='" & strweb & "';"
con.execute mysql
%>
I have been trying to find the error on this statement for quite a while now, and cant spot it. please could anyone point out the obvious.
Regards
<%
set con = Server.CreateObject("ADODB.connection")
accessdb = "./database.mdb"
con.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCe="&server.mappath(accessdb)
strID=Request.Form("id")
strcompany=Request.Form("company")
strcontact=Request.Form("contact")
strjobfunction=Request.Form("jobfunction")
straddress=Request.Form("address")
strmobile=Request.Form("mobile")
strtel=Request.Form("tel")
strext=Request.Form("ext")
strfax=Request.Form("fax")
stremail=Request.Form("email")
strweb=Request.Form("web")
mysql = "INSERT INTO tblcontacts"
mysql = mysql & "VALUES'"& "ID='" & strID & "',"
mysql = mysql & "Company='" & strcompany & "',"
mysql = mysql & "Contact='" & strcontact & "',"
mysql = mysql & "JobFunction='" & strjobfunction & "',"
mysql = mysql & "Address='" & straddress & "',"
mysql = mysql & "Mobile='" & strmobile & "',"
mysql = mysql & "Tel='" & strtel & "',"
mysql = mysql & "Fax='" & strfax & "',"
mysql = mysql & "Email='" & stremail & "',"
mysql = mysql & "Web='" & strweb & "';"
con.execute mysql
%>