JuztinMedia
MIS
I have a script on my site that writes the output of a form to a MS Access DB and e-mails the output of the form to an e-mail address. When a form is submitted, I get this error:
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/mp3feeds/register/register.asp, line 404
Here is the code:
<%
else
strFirstName=Request.form("FirstName"
strLastName=Request.form("LastName"
strTitle=Request.form("Title"
stremail=Request.form("email"
strStations=Request.form("Stations"
strCity=Request.form("City"
strState=Request.form("State"
strTelA=Request.form("TelA"
strTelB=Request.form("TelB"
strTelC=Request.form("TelC"
strFaxA=Request.form("FaxA"
strFaxB=Request.form("FaxB"
strFaxC=Request.form("FaxC"
strShows=Request.form("Shows"
strComments=Request.form("Comments"
strDate=Date
Set Conn=Server.CreateObject("ADODB.Connection"
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"DATA SOURCE=" & server.mappath("/login/data/affiliatedata.mdb"
MySQL="Insert into Mp3feeds (FirstName, LastName, Title, email, Stations, City, State, TelA, TelB, TelC, FaxA, FaxB, FaxC, Shows, Comments, SubmitDate) VALUES ('"
MySQL=MySQL & strFirstName & "', " & "'" & strLastName & "', " & "'" & strTitle & "', " & "'"
MySQL=MySQL & stremail & "', " & "'" & strStations & "', " & "'" & strCity & "', " & "'"
MySQL=MySQL & strState & "', " & "'" & strTelA & "', " & "'" & strTelB & "', " & "'"
MySQL=MySQL & strTelC & "', " & "'" & strFaxA & "', " & "'" & strFaxB & "', " & "'"
MySQL=MySQL & strFaxC & "', " & "'" & strShows & "', " & "'" & strComments & "', " & "'"
MySQL=MySQL & strSubmitDate & "')"
Set RS=Conn.Execute(MySQL)
Conn.Close
set Conn=nothing
What am I doing wrong? help!
Thanks Thanks!
-JusTin
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/mp3feeds/register/register.asp, line 404
Here is the code:
<%
else
strFirstName=Request.form("FirstName"
strLastName=Request.form("LastName"
strTitle=Request.form("Title"
stremail=Request.form("email"
strStations=Request.form("Stations"
strCity=Request.form("City"
strState=Request.form("State"
strTelA=Request.form("TelA"
strTelB=Request.form("TelB"
strTelC=Request.form("TelC"
strFaxA=Request.form("FaxA"
strFaxB=Request.form("FaxB"
strFaxC=Request.form("FaxC"
strShows=Request.form("Shows"
strComments=Request.form("Comments"
strDate=Date
Set Conn=Server.CreateObject("ADODB.Connection"
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"DATA SOURCE=" & server.mappath("/login/data/affiliatedata.mdb"
MySQL="Insert into Mp3feeds (FirstName, LastName, Title, email, Stations, City, State, TelA, TelB, TelC, FaxA, FaxB, FaxC, Shows, Comments, SubmitDate) VALUES ('"
MySQL=MySQL & strFirstName & "', " & "'" & strLastName & "', " & "'" & strTitle & "', " & "'"
MySQL=MySQL & stremail & "', " & "'" & strStations & "', " & "'" & strCity & "', " & "'"
MySQL=MySQL & strState & "', " & "'" & strTelA & "', " & "'" & strTelB & "', " & "'"
MySQL=MySQL & strTelC & "', " & "'" & strFaxA & "', " & "'" & strFaxB & "', " & "'"
MySQL=MySQL & strFaxC & "', " & "'" & strShows & "', " & "'" & strComments & "', " & "'"
MySQL=MySQL & strSubmitDate & "')"
Set RS=Conn.Execute(MySQL)
Conn.Close
set Conn=nothing
What am I doing wrong? help!
Thanks Thanks!
-JusTin