using cdosys.asp for form mail

Steve · Apr 26, 2007

Hi

I'm using a web form to enable people to submit stories to my website, but
there appears to be issue with longer texts. When the content of the 'Story
Text' box exceeds a certain length the form doesn't submit and an error page
appears.

I've pasted the relevant code here. Can any one suggest what is wrong and
what can be done to fix.

TIA

Steve

#####################################

form page html

<form action="cdosyssub.asp" onSubmit="" name="Story Submission">
 
Full Name 
<input type="text" size="35" maxlength="30" name="RealName"
value="">
 
Pen name 
(name
you want story published under) 
<input type="text" size="35" maxlength="30" name="PenName"
value="">
 
Your E-mail
address 
(this must be completed in case of queries) 
<input type="text" size="35" name="Email" value="">
 
 
<input type="hidden" size="35" maxlength="30" name="Subject"
value="Story Submission">
 
I confirm that the story below is either my own work, or it is
submitted
with the approval of the author and that all copyright is
correctly
attributed. I understand that by submitting this form I am
consenting
to its inclusion on www.mydomain.co.uk.
 
<input type="checkbox" name="Confirmation" value="Yes, I
agree to publication">
(Click to agree)
Story
Title 

<input type="text" size="35" maxlength="30"
name="StoryTitle" value="">
 
<textarea name="StoryText" rows="10" cols="75">Please paste
a plain text version of your story here</textarea>
 
<input type="submit" name ="SUBMIT" value="SUBMIT" >


</form>

################################################
cdosys.asp

{the following sits in front of the html tags for that file}

<%
dim HTML,RealName,PenName,Email,Subject,Confirmation,StoryTitle,StoryText
HTML = HTML & " <html><body>"
HTML = HTML & " <table border=""0"">"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Your Name: "
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("RealName") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Pen Name: "
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("PenName") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Your Email Address: "
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("Email") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Subject: "
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("Subject") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Agreement to Publication: 
"
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("Confirmation") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Story Title: "
HTML = HTML & " </th>"
HTML = HTML & " <td bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("StoryTitle") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <th colspan=""2"" bgcolor=""#B0CDDD"">"
HTML = HTML & " 
 Story Text: "
HTML = HTML & " </th>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <td colspan=""2"" bgcolor=""#B0CDDD"">"
HTML = HTML & " 
" & Request("StoryText") & ""
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " </table>"
HTML = HTML & " "
HTML = HTML & " </body></html>"

'CDOSYS Configuration
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

'Default parameters for Dataflame (dont change)
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "localhost"
'Note
'Use "localhost" If mail is routed from same server.
'Use Server IP like "203.90.78.221" if Domain has MX record having IP
"203.90.78.221" OR Mails are routed from that IP

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
iConf.Fields.Update
Set oMail.Configuration = iConf
oMail.To = "(e-mail address removed)"
oMail.From = "(e-mail address removed)"
oMail.Subject = "Story Submission"

'If message body is in HTML FORMAT
oMail.BodyPart.ContentTransferEncoding = "quoted-printable"
oMail.HTMLBody = HTML
oMail.Send
Set iConf = Nothing
Set Flds = Nothing
%>

I need help fixing my website	2	Oct 15, 2023
SendGrid email issue in responsive Gmail	1	Nov 4, 2021
Help with my responsive home page	2	Dec 14, 2022
How to position the tooltip comment on these buttons?	9	Nov 4, 2023
<Button ...> display is fine, except for two things	1	Oct 23, 2023
Uncaught ReferenceError: item is not defined at HTMLButtonElement.onclick in the: <button onclick="item.inserir()">Inserir dados</button>	1	Apr 22, 2023
How can I add arrows to my FAQ	0	Aug 9, 2023
Can anyone please help? HTML - two tables applying different styles	4	Dec 1, 2020

using cdosys.asp for form mail

Steve

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads