|
| |
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
 |
Can somebody check this ASP code? - 5/17/2004 17:29:50
I keep getting this error:
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
/groupinfo.asp, line 31
Here's the code:
----------------------------------------
<%
Function ParseBody (strText)
strText = Replace (strText, Chr (13), "<br>")
ParseBody - strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
myConnString = Application("groupinfo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
mySQL= "INSERT INTO FormResults"
mySQL= mySQL & "(_Phone,_URL,_City,Physical Information_Address2,_Name,Mailing Information_Address2,_County,Physical_Information_City,Mailing_Information_FAX,MailingInformation_Email,Physical Information_StreetAddress,Physical Information_ZipCode,Government Run Facilities_Title,Government Run Facilities_Organization,_ZipCode,_StreetAddress1) "
mySQL= mySQL & "VALUES ('" & Request.Form("_Phone") & "','"
mySQL= mySQL & Request.Form("_URL")
mySQL= mySQL & Request.Form("_City")
mySQL= mySQL & Request.Form("Physical Information_Address2")
mySQL= mySQL & Request.Form("_Name")
mySQL= mySQL & Request.Form("Mailing Information_Address2")
mySQL= mySQL & Request.Form("_County")
mySQL= mySQL & Request.Form("Physical Information_City")
mySQL= mySQL & Request.Form("Mailing_Information_FAX")
mySQL= mySQL & Request.Form("MailingInformation_Email")
mySQL= mySQL & Request.Form("Physical Information_StreetAddress")
mySQL= mySQL & Request.Form("Physical Information_ZipCode")
mySQL= mySQL & Request.Form("Government Run Facilities_Title")
mySQL= mySQL & Request.Form("Government Run Facilities_Organization")
mySQL= mySQL & Request.Form("_ZipCode")
mySQL= mySQL & Request.Form("_StreetAddress1")
myConnection.Execute mySQL
myConnection.Close
Set myConnection = Nothing
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.Send strFrom,strSubject,StrBody
Set myCDONTSMail = Nothing
%>
|
|
|
|
DesiMcK
Posts: 445
Joined: 4/26/2004
From: Essex, UK
Status: offline
|
RE: Can somebody check this ASP code? - 5/17/2004 17:38:25
Underneath your SQL statement insert
response.write mySQL
This will show you the mySQL statement: At present it looks like
quote:
INSERT INTO FormResults(_Phone,_URL,_City,Physical Information_Address2,_Name,Mailing Information_Address2,_County,Physical_Information_City,Mailing_Information_FAX,MailingInformation_Email,Physical Information_StreetAddress,Physical Information_ZipCode,Government Run Facilities_Title,Government Run Facilities_Organization,_ZipCode,_StreetAddress1) VALUES ('','
It would seem that the request.form values are not being read ffrom your form.
Desi
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/18/2004 8:46:52
quote:
ORIGINAL: Spooky
Place brackets around all of your column names []
Starting with an underscore isn't a good idea
Tried that. Removed the underscores too. Now I get this when I test it:
Microsoft JET Database Engine error '80040e14'
Syntax error in string in query expression ''xYOUNGSVILLEMILL CREEK DRIVERebeccaMILL CREEK DRIVEfranklinxSPCAFC@MINDSPRING.COMMILL CREEK DRIVE00000-9626xx00000-9626MILL CREEK DRIVE'.
/groupinfo.asp, line 35
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/18/2004 12:27:16
There needs to be a comma following each value (except the last one inserted). Something like:
mySQL= mySQL & "VALUES ('" & Request.Form("_Phone") & "',"
mySQL= mySQL & "'"&Request.Form("_URL")&"',"
mySQL= mySQL & "'"&Request.Form("_City")&"',"
mySQL= mySQL & "'"&Request.Form("Physical Information_Address2")&"',"
mySQL= mySQL & "'"&Request.Form("_Name")&"',"
mySQL= mySQL & "'"&Request.Form("Mailing Information_Address2")&"',"
mySQL= mySQL & "'"&Request.Form("_County")&"',"
mySQL= mySQL & "'"&Request.Form("Physical Information_City")&"',"
mySQL= mySQL & "'"&Request.Form("Mailing_Information_FAX")&"',"
mySQL= mySQL & "'"&Request.Form("MailingInformation_Email")&"',"
mySQL= mySQL & "'"&Request.Form("Physical Information_StreetAddress")&"',"
mySQL= mySQL & "'"&Request.Form("Physical Information_ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("Government Run Facilities_Title")&"',"
mySQL= mySQL & "'"&Request.Form("Government Run Facilities_Organization")&"',"
mySQL= mySQL & "'"&Request.Form("_ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("_StreetAddress1")&"'"
Then, in this section:
mySQL= mySQL & "(_Phone,_URL,_City,Physical Information_Address2,_Name,Mailing Information_Address2,_County,Physical_Information_City,Mailing_Information_FAX,MailingInformation_Email,Physical Information_StreetAddress,Physical Information_ZipCode,Government Run Facilities_Title,Government Run Facilities_Organization,_ZipCode,_StreetAddress1) "
Make sure any field names that have spaces are surrounded by []. Database field names should not use spaces, but if they do, you must put them in brackets. For example,
Government Run Facilities_Title
Would need to be:
[Government Run Facilities_Title]
Good luck.
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 12:07:26
Ok I keep getting an error. This is the new code with the suggested corrections. So why am I getting an error?
<%
Function ParseBody (strText)
strText = Replace (strText, Chr (13), "<br>")
ParseBody - strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
myConnString = Application("groupinfo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
mySQL= "INSERT INTO FormResults"
mySQL= mySQL & "(Phone,Website,City,PhysicalAddress2,Name,MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "','"
mySQL= mySQL & "'"&Request.Form("Website")&"','"
mySQL= mySQL & "'"&Request.Form("City")&"','"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"','"
mySQL= mySQL & "'"&Request.Form("Name")&"','"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"','"
mySQL= mySQL & "'"&Request.Form("County")&"','"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"','"
mySQL= mySQL & "'"&Request.Form("Fax")&"','"
mySQL= mySQL & "'"&Request.Form("Email")&"','"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"','"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"','"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"','"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"','"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"','"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&""
myConnection.Execute mySQL
myConnection.Close
Set myConnection = Nothing
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.Send strFrom,strSubject,StrBody
Set myCDONTSMail = Nothing
%>
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 12:16:02
There should not be a single quote after the commas and you missed a single quote at: mySQL= mySQL & "'"&Request.Form("MailingAddress")&"". That section should look like this:
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "',"
mySQL= mySQL & "'"&Request.Form("Website")&"',"
mySQL= mySQL & "'"&Request.Form("City")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("Name")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("County")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"',"
mySQL= mySQL & "'"&Request.Form("Fax")&"',"
mySQL= mySQL & "'"&Request.Form("Email")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"',"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"',"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&"'"
Also, I think "Name" is a reserved word so change:
mySQL= mySQL & "(Phone,Website,City,PhysicalAddress2,Name,MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
to:
mySQL= mySQL & "(Phone,Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
If that still throws an error, post the actual error message.
Good luck.
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 12:53:37
ok here's the error:
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression '''WEBSITE','CITY','PHYSICALADDRESS2','NAME','MAILINGADDRESS2','COUNTY','','0FAX','EMAIL','PHYSICALADDRESS','0PHYSZIPCODE','GOVTDEPT','GOVTHEAD','0ZIPCODE','MAILINGADDRESS'.
/groupinfo.asp, line 35
Now here is the line of code that goes with it (I noticed some values aren't being captured: Phone and Physical City)
mySQL= mySQL & "(Phone,Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 13:15:16
Can you post the code for the form that submits the updated info?
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 14:05:00
I am assuming the html code? Here it is:
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Organization Information</title>
<script language="JavaScript" fptype="dynamicoutline">
<!--
function dynOutline() {}
//-->
</script>
<script language="JavaScript1.2" fptype="dynamicoutline" src="outline.js">
</script>
<script language="JavaScript1.2" fptype="dynamicoutline" for="document" event="onreadystatechange()">
<!--
initOutline()
//-->
</script>
<meta name="Microsoft Theme" content="watermar 011, default">
<meta name="Microsoft Border" content="tlb">
</head>
<body onclick="dynOutline()">
<p style="margin-top: 0; margin-bottom: 0"><font size="2">Please fill in the
following information for your organization, government facility, veterinarian
office or animal related activity for North Carolina ONLY. If you have any
questions you may send them to </font>
<a href="mailto:spcafc@mindspring.com"><font size="2">spcafc@mindspring.com</font></a></p>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font color="#339966" size="2"><b>******QUALIFICATIONS FOR ADDITION TO THE NC
DIRECTORY******</b></font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<ul dynamicoutline>
<li>
<p style="margin-top: 0; margin-bottom: 0"><font size="2">I<b>f you are a 501(c)3
registered Organization you must provide the following:</b></font><p style="margin-top: 0; margin-bottom: 0"> <ul>
<li>
<p style="margin-top: 0; margin-bottom: 0"><b><font size="2">Please send a copy
of the <u>FIRST</u> page of your IRS determination letter.</font></b></li>
</ul>
<p style="margin-top: 0; margin-bottom: 0"> </li>
<li>
<p style="margin-top: 0; margin-bottom: 0"><b><font size="2">If you are NOT a
501(c)3 registered Organization OR you are an Independent Rescue you must provide the
following:</font></b><p style="margin-top: 0; margin-bottom: 0"> <ul>
<li>
<p style="margin-top: 0; margin-bottom: 10"><b><font size="2">Copy of your
adoption contract AND a letter of reference confirming that you do animal
rescue from your primary veterinarian on his or her letterhead. Also any
references from registered 501(c)3 organizations will be helpful.</font></b></li>
</ul>
</li>
<li>
<p style="margin-top: 0; margin-bottom: 0"><b><font size="2">If you are a
government run facility please also fill in the Department you are under and
the name of the Head of that department. </font></b></li>
</ul>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<font size="2" color="#FF0000"><b>If you are unable to provide us with the
above info your group will NOT be included in the Directory.</b></font><hr>
<p align="center" style="margin-top: 0; margin-bottom: 0"><b>
<font size="2" color="#339966">***Your Current Information***</font></b></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><b>***REQUIRED FIELDS
ARE IN <font color="#FF0000">RED</font>***</b></p>
<form method="POST" action="groupinfo.asp" onSubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1" webbot-onSubmit="return FrontPage_Form1_Validator(this)">
<TABLE>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<em>Organizations FULL Name:</em></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Organizations FULL Name" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><INPUT NAME="Name" SIZE=35 maxlength="100"> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<em>County your group is located </em></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="County" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><INPUT NAME="County" SIZE=35 maxlength="100"> </TD>
</TR>
<TR>
<TD ALIGN="right"> </TD>
<TD> <em style="font-style: normal; font-weight: 700"><font color="#339966" size="2">Mailing
Address</font></em></TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<EM>Street Address</EM></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Street Address1" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><INPUT NAME="MailingAddress" SIZE=35 maxlength="100"> </TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>Address (cont.)</EM></TD>
<TD>
<INPUT NAME="MailingAddress2" SIZE=35> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<EM>City</EM></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="City" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><INPUT NAME="City" SIZE=35 maxlength="100"> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<EM>Zip Code</EM></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Zip Code" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="12" --><INPUT NAME="ZipCode" SIZE=12 MAXLENGTH=12> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<EM> Phone</EM></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Phone" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="25" --><INPUT NAME="Phone" SIZE=25 MAXLENGTH=25> </TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>FAX</EM></TD>
<TD>
<INPUT NAME="Fax" SIZE=25 MAXLENGTH=25> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<EM>E-mail</EM></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Email" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><INPUT NAME="Email" SIZE=25 maxlength="100"> </TD>
</TR>
<TR>
<TD ALIGN="right"><font color="#FF0000">
<em>Website (if you have one)</em></font></TD>
<TD>
<!--webbot bot="Validation" s-display-name="Website" b-value-required="TRUE" i-maximum-length="100" --><INPUT NAME="Website" SIZE=25 MAXLENGTH=100> </TD>
</TR>
</TABLE>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<TABLE width="458">
<TR>
<TD ALIGN="right" width="193"> </TD>
<TD width="255">
<em style="font-style: normal; font-weight: 700"><font size="2" color="#339966">
Physical Address</font></em> <font size="2" color="#339966">(only if you have a
facility)</font></TD>
</TR>
<TR>
<TD ALIGN="right" width="193">
<EM>Street Address</EM></TD>
<TD width="255">
<INPUT NAME="PhysicalAddress" SIZE=35> </TD>
</TR>
<TR>
<TD ALIGN="right" width="193">
<EM>Address (cont.)</EM></TD>
<TD width="255">
<INPUT NAME="PhysicalAddress2" SIZE=35> </TD>
</TR>
<TR>
<TD ALIGN="right" width="193">
<EM>City</EM></TD>
<TD width="255">
<INPUT NAME="PhysicaCity" SIZE=35> </TD>
</TR>
<TR>
<TD ALIGN="right" width="193">
<EM>Zip/Postal Code</EM></TD>
<TD width="255">
<INPUT NAME="PhysicalZipcode" SIZE=12 MAXLENGTH=12> </TD>
</TR>
</TABLE>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<b><font size="2" color="#339966">***For Government Run Facilities:***</font></b></p>
<TABLE width="457">
<TR>
<TD ALIGN="right" width="192">
<em>Department</em></TD>
<TD width="255">
<INPUT NAME="GovtDept" SIZE=35> </TD>
</TR>
<TR>
<TD ALIGN="right" width="192">
<em>Department Head</em></TD>
<TD width="255">
<INPUT NAME="GovtHead" SIZE=35> </TD>
</TR>
</TABLE>
<p align="center" style="margin-top: 0; margin-bottom: 0"><b>BEFORE SUBMITTING
YOUR INFO PLEASE MAKE SURE THE EMAIL YOU ENTERED ABOVE IS NOT FULL AS A
CONFIRMATION EMAIL WILL BE SENT TO YOU. THIS EMAIL CONTAINS FURTHER
INSTRUCTIONS!</b></p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<hr></body>
</html>
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 14:53:05
The only other error I see is in your form. You have a field titled "PhysicaCity". It's missing the "l" (PhysicalCity). Other than that, are you ensuring that each form field has a value when you submit? If not, do the db fields that correspond to the blank form fields allow "zero-length"?
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 15:49:35
Ok went and corrected all the issues with the spelling (duh for me) and check to see if zero length was allowed (most were "no"). But I am still getting a syntax error:
Syntax error (missing operator) in query expression '''WEBSITE','PHYSICALCITY','PHYSICALADDRESS2','NAME','PHYSICALADDRESS2','COUNTY','PHYSICALCITY','0FAX','EMAIL','PHYSICALADDRESS2','0PHYSZIPCODE','GOVTHEAD','GOVTHEAD','0PHYSZIPCODE','PHYSICALADDRESS2'.
/groupinfo.asp, line 35
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 16:13:43
<%
Function ParseBody (strText)
strText = Replace (strText, Chr (13), "<br>")
ParseBody - strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
myConnString = Application("groupinfo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
mySQL= "INSERT INTO FormResults"
mySQL= mySQL & "([Phone],Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "','"
mySQL= mySQL & "'"&Request.Form("Website")&"',"
mySQL= mySQL & "'"&Request.Form("City")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("Name")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("County")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"',"
mySQL= mySQL & "'"&Request.Form("Fax")&"',"
mySQL= mySQL & "'"&Request.Form("Email")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"',"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"',"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&""
myConnection.Execute mySQL
myConnection.Close
Set myConnection = Nothing
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.Send strFrom,strSubject,StrBody
Set myCDONTSMail = Nothing
%>
| |
|
|
|
Spooky
Posts: 26599
Joined: 11/11/1998
From: Middle Earth
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 16:19:08
A couple of things :
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "','"
mySQL= mySQL & "'"&Request.Form("Website")&"',"
mySQL= mySQL & "'"&Request.Form("City")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("Name")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("County")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"',"
mySQL= mySQL & "'"&Request.Form("Fax")&"',"
mySQL= mySQL & "'"&Request.Form("Email")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"',"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"',"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&""
Should be :
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "',"
mySQL= mySQL & "'"&Request.Form("Website")&"',"
mySQL= mySQL & "'"&Request.Form("City")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("Name")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("County")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"',"
mySQL= mySQL & "'"&Request.Form("Fax")&"',"
mySQL= mySQL & "'"&Request.Form("Email")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"',"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"',"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&"'"
_____________________________
If you arent part of the solution, then there is good money to be made prolonging the problem
§þ k¥
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/19/2004 18:16:08
I can't believe Spooky and I both missed this (Actually, it's not too hard to believe I missed it). In the last line of the SQL, you are missing the closing ")"
So, this:
mySQL= mySQL & "'"&Request.Form("MailingAddress")&"'"
should be:
mySQL= mySQL & "'"&Request.Form("MailingAddress")&"')"
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 6:48:28
fixed the missing bits. added the code you requested. here is the result:
INSERT INTO FormResults([Phone],Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) VALUES ('0PHONE',''WEBSITE','CITY','PHYSICALADDRESS2','NAME','MAILINGADDRESS2','COUNTY','PHYSICALCITY','0FAX','EMAIL','PHYSICALADDRESS','0PHYSZIPCODE','GOVTDEPT','GOVTHEAD','ZIPCODE','MAILINGADDRESS')
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 9:34:19
Are you sure you got rid of the single quote after the comma in this line?
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "','"
It should be:
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "',"
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 12:16:32
double checked that quote mark and it WAS there so I removed it. Here is the code as it stands now:
<%
Function ParseBody (strText)
strText = Replace (strText, Chr (13), "<br>")
ParseBody - strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
myConnString = Application("groupinfo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
mySQL= "INSERT INTO FormResults"
mySQL= mySQL & "([Phone],Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) "
mySQL= mySQL & "VALUES ('" & Request.Form("Phone") & "',"
mySQL= mySQL & "'"&Request.Form("Website")&"',"
mySQL= mySQL & "'"&Request.Form("City")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("Name")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress2")&"',"
mySQL= mySQL & "'"&Request.Form("County")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalCity")&"',"
mySQL= mySQL & "'"&Request.Form("Fax")&"',"
mySQL= mySQL & "'"&Request.Form("Email")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalAddress")&"',"
mySQL= mySQL & "'"&Request.Form("PhysicalZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("GovtDept")&"',"
mySQL= mySQL & "'"&Request.Form("GovtHead")&"',"
mySQL= mySQL & "'"&Request.Form("ZipCode")&"',"
mySQL= mySQL & "'"&Request.Form("MailingAddress")&"')"
response.write mySQL
response.end
myConnection.Execute mySQL
myConnection.Close
Set myConnection = Nothing
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.Send strFrom,strSubject,StrBody
Set myCDONTSMail = Nothing
%>
This is the response from the page:
INSERT INTO FormResults([Phone],Website,City,PhysicalAddress2,[Name],MailingAddress2,County,PhysicalCity,Fax,Email,PhysicalAddress,PhysicalZipCode,GovtDept,GovtHead,ZipCode,MailingAddress) VALUES ('0PHONE','WEBSITE','CITY','PHYSICALADDRESS2','NAME','MAILINGADDRESS2','COUNTY','PHYSICALCITY','0FAX','EMAIL','PHYSICALADDRESS','0PHYSZIPCODE','GOVTDEPT','GOVTHEAD','0ZIPCODE','MAILINGADDRESS')
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 12:24:02
And no error message? The response is the SQL string because you added:
response.write mySQL
response.end
Have you opened the db to see if the record updated? It appears to me that the code is now working. Take a look at the db and let us know.
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 12:42:04
quote:
ORIGINAL: betheball
And no error message? The response is the SQL string because you added:
response.write mySQL
response.end
Have you opened the db to see if the record updated? It appears to me that the code is now working. Take a look at the db and let us know.
The database did NOT update. I thought maybe removing the above code string would help but nope - here's the new error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'DimstrBody'
/groupinfo.asp, line 42
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 13:08:19
You need a space between Dim and strBody. This is your code now:
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
It should be:
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 13:45:10
ok I think we may be getting close to fixing this. New error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/groupinfo.asp, line 66
| |
|
|
|
BeTheBall
Posts: 6355
Joined: 6/21/2002
From: West Point Utah USA
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 15:02:55
Your CDONTS script is not complete. Replace this code:
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
DimstrBody
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.Send strFrom,strSubject,StrBody
Set myCDONTSMail = Nothing
With this:
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody
Set myCDONTSMail = Server.CreateObject("CDONTS.NewMail")
strFrom="spcafc@mindspring.com"
strTo=Request.Form("MailingInformation_Email")
strSubject = "Thank You! NC Animal Welfare Directory Submission"
strBody="Thank you for sending your information - it will be added to/updated in our database." & Chr(13)
strBody = strBody & "Please remember the following:" & Chr(13)
strBody = strBody & "If you are a 501(c)3 organization please send a copy of the FIRST page of your IRS certification letter" & Chr(13)
strBody = strBody & "OR" & Chr(13)
strBody = strBody & "if NOT a 501(c)3 than a letter from your main vet on their letterhead." & Chr(13)
strBody = strBody & "Send the info to:" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "105 MILL CREEK DRIVE" & Chr(13)
strBody = strBody & "YOUNGSVILLE NC 27596" & Chr(13)
strBody = strBody & "OR"
strBody = strBody & "you may send it as an attachment to:" & Chr(13)
strBody = strBody & "spcafc@mindspring.com" & Chr(13)
strBody = strBody & "Thank you again for helping NC's animals!" & Chr(13)
strBody = strBody & "Rebecca Rodgers" & Chr(13)
strBody = strBody & "President" & Chr(13)
strBody = strBody & "SPCA of Franklin County" & Chr(13)
strBody = strBody & "North Carolina"
myCDONTSMail.To=strTo
myCDONTSMail.From=strFrom
myCDONTSMail.Subject=strSubject
myCDONTSMail.Body=strBody
myCDONTSMail.Send
Set myCDONTSMail = Nothing
_____________________________
Duane
Some people are like Slinkies . . . Not really good for anything . . . . . But they still bring a smile to your face when you push them down a flight of stairs.
| |
|
|
|
spcafc
Posts: 69
Joined: 5/11/2004
Status: offline
|
RE: Can somebody check this ASP code? - 5/20/2004 17:57:33
THANK YOU THANK YOU THANK YOU!!!!!
Both of you have been a huge help with this.
BTW I just wanted to let you know where this bit of code came from: the website you sent me too (http://www.frontpagehowto.com/dbandemail.htm) which sent me to a microsoft white paper. Which is obviously written wrong as I did a direct copy from the white paper to the asp page. So you may want to pass that along. Also feel free to direct people to this topic as it really helped me see what small bits and pieces I needed to correct to get the code to work and helped give me a basic grounding in the code.
Thanks again guys - you're both a life saver for this small humble non profit!
Rebecca Rodgers
President
SPCA of Franklin County
North Carolina
| |
|
|
|
rikki
Posts: 382
Joined: 4/4/2004
Status: offline
|
RE: Can somebody check this ASP code? - 6/1/2004 22:48:15
Didn't work..
Still get that insert into error
I've check and double checked all the fields with the database... they match
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
