Dreamweaver - Form Response

Author

Form Response

SCUBAMART

2004-11-16, 6:50 pm

Hi Can anyone tell me what I'm doing wrong here? Any help gratefully recievd
Martin <% Set ObjMail = Server.CreateObject('CDONTS.NewMail') ObjMail.From =
'email from' ObjMail.To = 'email to' ObjMail.Subject = 'Provisional Booking
Form' ObjMail.Body = 'The following is a request for a Provisional Booking.'
& vbcrlf & vbcrlf ObjMail.Body = ObjMail.Body & vbcrlf &
chr(13) & Chr(10) ObjMail.Body = ObjMail.Body & 'Hirer Details.' &
vbcrlf & vbcrlf ObjMail.Body = ObjMail.Body & vbcrlf & chr(13)
& Chr(10) ObjMail.Body = ObjMail.Body & 'First Name : ' &
Request.Form('name') & vbcrlf ObjMail.Body = ObjMail.Body & 'Last Name
: ' & Request.Form('lastname') & vbcrlf ObjMail.Body = ObjMail.Body
& 'House No. & Street : ' & Request.Form('street') & vbcrlf
ObjMail.Body = ObjMail.Body & 'Town/City : ' & Request.Form('town')
& vbcrlf ObjMail.Body = ObjMail.Body & 'State/County : ' &
Request.Form('state') & vbcrlf ObjMail.Body = ObjMail.Body & 'Country :
' & Request.Form('country') & vbcrlf ObjMail.Body = ObjMail.Body &
'Zip/Post Code : ' & Request.Form('postcode') & vbcrlf ObjMail.Body =
ObjMail.Body & 'Phone Number : ' & Request.Form('number') & vbcrlf
ObjMail.Body = ObjMail.Body & 'E-Mail Address : ' &
Request.Form('email') & vbcrlf ObjMail.Body = ObjMail.Body & 'Date of
Birth : ' & Request.Form('dob') & vbcrlf ObjMail.Body = ObjMail.Body
& 'Occupation : ' & Request.Form('occupation') & vbcrlf
ObjMail.Body = ObjMail.Body & 'Driving Licence Number : ' &
Request.Form('licenceno') & vbcrlf ObjMail.Body = ObjMail.Body &
'Number of Endorsements within 5yrs/Bans within 10yrs : ' &
Request.Form('endorse') & vbcrlf ObjMail.Body = ObjMail.Body & 'Offense
Codes and Dates : ' & Request.Form('codes') & vbcrlf ObjMail.Body =
ObjMail.Body & 'Additional Drivers : ' & Request.Form('adddrivers')
& vbcrlf ObjMail.Body = ObjMail.Body & 'Dates of Birth : ' &
Request.Form('dobs') & vbcrlf ObjMail.Body = ObjMail.Body & 'Licence
No's : ' & Request.Form('addlicno') & vbcrlf ObjMail.Body =
ObjMail.Body & 'Motorhome Details' & vbcrlf & vbcrlf ObjMail.Body =
ObjMail.Body & vbcrlf & chr(13) & Chr(10) & Chr(13) &
Chr(10) ObjMail.Body = ObjMail.Body & 'Date From : ' &
Request.Form('datefrom') & vbcrlf ObjMail.Body = ObjMail.Body & 'Date
To : ' & Request.Form('dateto') & vbcrlf ObjMail.Body = ObjMail.Body
& 'Motor Home Model : ' & Request.Form('model') & vbcrlf
ObjMail.Body = ObjMail.Body & 'Number of Adults in Party : ' &
Request.Form('noadults') & vbcrlf ObjMail.Body = ObjMail.Body & 'Number
of Juniors in Party : ' & Request.Form('nojuniors') & vbcrlf
ObjMail.Body = ObjMail.Body & 'Will you be Travelling outside the UK ? : '
& Request.Form('abroad') & vbcrlf ObjMail.Body = ObjMail.Body & 'If
Yes which Countries and Dates? : ' & Request.Form('countries') & vbcrlf
ObjMail.Body = ObjMail.Body & 'Additional Requirments/Comments : ' &
Request.Form('comments') & vbcrlf ObjMail.Body = ObjMail.Body & 'How
Did you find Us ? : ' & Request.Form('how') & vbcrlf ObjMail.Body =
ObjMail.Body & 'Do You Agree to the Rental Terms & Conditions ? : '
& Request.Form('agree') & vbcrlf ObjMail.Send If ObjMail.Send Then
Msg = 'Thank you for your provisional booking. We will contact you as
soon as possible to confirm Press Back on your browser to continue'
Else Msg = 'Request was not sent succesfully - please try submitting
again' Msg = Msg & ObjMail.Response & ' ' End If
Response.Write Msg Set ObjMail = Nothing %>

Randy Edmunds

2004-11-16, 6:51 pm

Martin,

I see a couple problems right off the bat.

First off all, you have not stated the difference between your
expectations and your results.

Second, your sample code is an unformatted, indecipherable mess. Note: I
normally would truncate the unnecessary part of the original post, but I
thought it might help you see how ridiculous it looks.

Please start over.

Hope this helps,
Randy

SCUBAMART wrote:
> Hi Can anyone tell me what I'm doing wrong here? Any help gratefully recievd
> Martin <% Set ObjMail = Server.CreateObject('CDONTS.NewMail') ObjMail.From =
> 'email from' ObjMail.To = 'email to' ObjMail.Subject = 'Provisional Booking
> Form' ObjMail.Body = 'The following is a request for a Provisional Booking.'
> & vbcrlf & vbcrlf ObjMail.Body = ObjMail.Body & vbcrlf &
> chr(13) & Chr(10) ObjMail.Body = ObjMail.Body & 'Hirer Details.' &
> vbcrlf & vbcrlf ObjMail.Body = ObjMail.Body & vbcrlf & chr(13)
> & Chr(10) ObjMail.Body = ObjMail.Body & 'First Name : ' &
> Request.Form('name') & vbcrlf ObjMail.Body = ObjMail.Body & 'Last Name
> : ' & Request.Form('lastname') & vbcrlf ObjMail.Body = ObjMail.Body
> & 'House No. & Street : ' & Request.Form('street') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'Town/City : ' & Request.Form('town')
> & vbcrlf ObjMail.Body = ObjMail.Body & 'State/County : ' &
> Request.Form('state') & vbcrlf ObjMail.Body = ObjMail.Body & 'Country :
> ' & Request.Form('country') & vbcrlf ObjMail.Body = ObjMail.Body &
> 'Zip/Post Code : ' & Request.Form('postcode') & vbcrlf ObjMail.Body =
> ObjMail.Body & 'Phone Number : ' & Request.Form('number') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'E-Mail Address : ' &
> Request.Form('email') & vbcrlf ObjMail.Body = ObjMail.Body & 'Date of
> Birth : ' & Request.Form('dob') & vbcrlf ObjMail.Body = ObjMail.Body
> & 'Occupation : ' & Request.Form('occupation') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'Driving Licence Number : ' &
> Request.Form('licenceno') & vbcrlf ObjMail.Body = ObjMail.Body &
> 'Number of Endorsements within 5yrs/Bans within 10yrs : ' &
> Request.Form('endorse') & vbcrlf ObjMail.Body = ObjMail.Body & 'Offense
> Codes and Dates : ' & Request.Form('codes') & vbcrlf ObjMail.Body =
> ObjMail.Body & 'Additional Drivers : ' & Request.Form('adddrivers')
> & vbcrlf ObjMail.Body = ObjMail.Body & 'Dates of Birth : ' &
> Request.Form('dobs') & vbcrlf ObjMail.Body = ObjMail.Body & 'Licence
> No's : ' & Request.Form('addlicno') & vbcrlf ObjMail.Body =
> ObjMail.Body & 'Motorhome Details' & vbcrlf & vbcrlf ObjMail.Body =
> ObjMail.Body & vbcrlf & chr(13) & Chr(10) & Chr(13) &
> Chr(10) ObjMail.Body = ObjMail.Body & 'Date From : ' &
> Request.Form('datefrom') & vbcrlf ObjMail.Body = ObjMail.Body & 'Date
> To : ' & Request.Form('dateto') & vbcrlf ObjMail.Body = ObjMail.Body
> & 'Motor Home Model : ' & Request.Form('model') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'Number of Adults in Party : ' &
> Request.Form('noadults') & vbcrlf ObjMail.Body = ObjMail.Body & 'Number
> of Juniors in Party : ' & Request.Form('nojuniors') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'Will you be Travelling outside the UK ? : '
> & Request.Form('abroad') & vbcrlf ObjMail.Body = ObjMail.Body & 'If
> Yes which Countries and Dates? : ' & Request.Form('countries') & vbcrlf
> ObjMail.Body = ObjMail.Body & 'Additional Requirments/Comments : ' &
> Request.Form('comments') & vbcrlf ObjMail.Body = ObjMail.Body & 'How
> Did you find Us ? : ' & Request.Form('how') & vbcrlf ObjMail.Body =
> ObjMail.Body & 'Do You Agree to the Rental Terms & Conditions ? : '
> & Request.Form('agree') & vbcrlf ObjMail.Send If ObjMail.Send Then
> Msg = 'Thank you for your provisional booking. We will contact you as
> soon as possible to confirm Press Back on your browser to continue'
> Else Msg = 'Request was not sent succesfully - please try submitting
> again' Msg = Msg & ObjMail.Response & ' ' End If
> Response.Write Msg Set ObjMail = Nothing %>
>

SnakEyez

2004-11-16, 6:51 pm

This is the problem with the online forums. They don't parse paragraphs. If
you can just, make a text file with the code and link to it because it seems
that Macromedia STILL has NOT fixed the forums and only continues to make them
worse.

SCUBAMART

2004-11-16, 6:51 pm

Hi Thanks for the comments - I did try, but not until after to option to edit
my post had gone. I got it sorted in the end through a mixture of changes and
it's working, but I would be interested to know how to improve on what I've
done already. I will update this post when I get home with the code (as an
attachment this time!) and look forward to your comments. Thanks for your time
Regards Martin

Randy Edmunds

2004-11-16, 6:51 pm

I am using the Netscape newsreader, so it does not seem to have anything
to do with the Macromedia web-based application.

It is a well known fact that newsreaders are a superior application for
using these newsgroups, but Macromedia still provides the web-based app
for those who choose to use it. I don't know why anyone who knows the
difference would continue to use the web-based app since newsreaders
come free with all browsers. Please let us know if you need any help
setting it up.

Hope this helps,
Randy Edmunds
Dreamweaver Engineer

> This is the problem with the online forums. They don't parse paragraphs. If
> you can just, make a text file with the code and link to it because it seems
> that Macromedia STILL has NOT fixed the forums and only continues to make them
> worse.

Murray *TMM*

2004-11-16, 6:51 pm

> I don't know why anyone who knows the difference would continue to use
> the web-based app since newsreaders come free with all browsers.

A) They don't have a clue about newsreaders.
B) They work in an environment where access to Usenet is not an option

The number of (B) posters is quite large, I think.

--
Murray --- ICQ 71997575
Team Macromedia Volunteer for Dreamweaver
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.dreamweavermx-templates.com - Template Triage!
http://www.projectseven.com/go - DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs, Tutorials & Resources
http://www.macromedia.com/support/search/ - Macromedia (MM) Technotes
==================

"Randy Edmunds" <randy_nospam@macromedia.com> wrote in message
news:4194E560.1040109@macromedia.com...
>I am using the Netscape newsreader, so it does not seem to have anything to
>do with the Macromedia web-based application.
>
> It is a well known fact that newsreaders are a superior application for
> using these newsgroups, but Macromedia still provides the web-based app
> for those who choose to use it. I don't know why anyone who knows the
> difference would continue to use the web-based app since newsreaders come
> free with all browsers. Please let us know if you need any help setting it
> up.
>
> Hope this helps,
> Randy Edmunds
> Dreamweaver Engineer
>
>
>

SCUBAMART

2004-11-16, 6:53 pm

SCUBAMART

2004-11-16, 6:53 pm

Hi Anyone want to help me with this - I found the problem with posting code and
have amended it in the first post, so just need to find out if there are any
pointers on how to improve what i've done and/or ensure it works correctly. It
seems to fall over at the If statement, up to there it appears to work (just
requires a few formatting changes to the output). Any help/suggestions
appreciated. Regards Martin

Murray *TMM*

2004-11-16, 6:53 pm

For what it's worth, editing posts doesn't propage into the NNTP forum,
which is where most of the answers come from. Wanna try again?

--
Murray --- ICQ 71997575
Team Macromedia Volunteer for Dreamweaver
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.dreamweavermx-templates.com - Template Triage!
http://www.projectseven.com/go - DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs, Tutorials & Resources
http://www.macromedia.com/support/search/ - Macromedia (MM) Technotes
==================

"SCUBAMART" <webforumsuser@macromedia.com> wrote in message
news:cnalcs$jgs$1@forums.macromedia.com...
> Hi Anyone want to help me with this - I found the problem with posting
> code and
> have amended it in the first post, so just need to find out if there are
> any
> pointers on how to improve what i've done and/or ensure it works
> correctly. It
> seems to fall over at the If statement, up to there it appears to work
> (just
> requires a few formatting changes to the output). Any help/suggestions
> appreciated. Regards Martin
>

SCUBAMART

2004-11-16, 6:53 pm

Murray/All
Maybe this time?
Martin

Murray *TMM*

2004-11-16, 6:53 pm

Sorry - I don't see anything substantive to which I could respond.

Please restate your question.

--
Murray --- ICQ 71997575
Team Macromedia Volunteer for Dreamweaver
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.dreamweavermx-templates.com - Template Triage!
http://www.projectseven.com/go - DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs, Tutorials & Resources
http://www.macromedia.com/support/search/ - Macromedia (MM) Technotes
==================

"SCUBAMART" <webforumsuser@macromedia.com> wrote in message
news:cnauj2$gb$1@forums.macromedia.com...
> Murray/All
> Maybe this time?
> Martin

SCUBAMART

2004-11-16, 6:53 pm

Third time lucky!

<%
Dim ObjMail
Dim strMailText
Dim strEmailFrom

strEmailFrom = "xyz@xyz.co.uk"

strMailText = "The following is a request for a Provisional Booking." & vbcrlf
& vbcrlf
strMailText = strMailText & vbcrlf & chr(13) & Chr(10)
strMailText = strMailText & "Hirer Details." & vbcrlf & vbcrlf
strMailText = strMailText & vbcrlf & chr(13) & Chr(10)
strMailText = strMailText & "First Name : " & Request.Form("name") & vbcrlf
strMailText = strMailText & "Last Name : " & Request.Form("lastname") & vbcrlf
strMailText = strMailText & "House No. & Street : " & Request.Form("street") &
vbcrlf
strMailText = strMailText & "Town/City : " & Request.Form("town") & vbcrlf
strMailText = strMailText & "State/County : " & Request.Form("state") & vbcrlf
strMailText = strMailText & "Country : " & Request.Form("country") & vbcrlf
strMailText = strMailText & "Zip/Post Code : " & Request.Form("postcode") &
vbcrlf
strMailText = strMailText & "Phone Number : " & Request.Form("number") & vbcrlf
strMailText = strMailText & "E-Mail Address : " & Request.Form("email") &
vbcrlf
strMailText = strMailText & "Date of Birth : " & Request.Form("dob") & vbcrlf
strMailText = strMailText & "Occupation : " & Request.Form("occupation") &
vbcrlf
strMailText = strMailText & "Driving Licence Number : " &
Request.Form("licenceno") & vbcrlf
strMailText = strMailText & "Number of Endorsements within 5yrs/Bans within
10yrs : " & Request.Form("endorse") & vbcrlf
strMailText = strMailText & "Offense Codes and Dates : " &
Request.Form("codes") & vbcrlf
strMailText = strMailText & "Additional Drivers : " &
Request.Form("adddrivers") & vbcrlf
strMailText = strMailText & "Dates of Birth : " & Request.Form("dobs") & vbcrlf
strMailText = strMailText & "Licence No's : " & Request.Form("addlicno") &
vbcrlf
strMailText = strMailText & "Motorhome Details" & vbcrlf & vbcrlf
strMailText = strMailText & vbcrlf & chr(13) & Chr(10) & Chr(13) & Chr(10)
strMailText = strMailText & "Date From : " & Request.Form("datefrom") & vbcrlf
strMailText = strMailText & "Date To : " & Request.Form("dateto") & vbcrlf
strMailText = strMailText & "Motor Home Model : " & Request.Form("model") &
vbcrlf
strMailText = strMailText & "Number of Adults in Party : " &
Request.Form("noadults") & vbcrlf
strMailText = strMailText & "Number of Juniors in Party : " &
Request.Form("nojuniors") & vbcrlf
strMailText = strMailText & "Will you be Travelling outside the UK ? : " &
Request.Form("abroad") & vbcrlf
strMailText = strMailText & "If Yes which Countries and Dates? : " &
Request.Form("countries") & vbcrlf
strMailText = strMailText & "Additional Requirments/Comments : " &
Request.Form("comments") & vbcrlf
strMailText = strMailText & "How Did you find Us ? : " & Request.Form("how") &
vbcrlf
strMailText = strMailText & "Do You Agree to the Rental Terms & Conditions ? :
" & Request.Form("agree") & vbcrlf

Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.Body = strMailText
ObjMail.FromAddress = Request.Form("email")
ObjMail.To = strEmailFrom
ObjMail.Subject = "Provisional Booking Form"

ObjMail.Send

If ObjMail.Send Then
Msg = "Thank you for your provisional booking. We will contact
you as soon as possible to confirm Press Back on your browser to
continue"
Else
Msg = "Request was not sent succesfully - please try submitting again"
Msg = Msg & ObjMail.Response & " "
End If

Response.Write Msg

Set ObjMail = Nothing
%>

Murray *TMM*

2004-11-16, 6:53 pm

And the question is?

--
Murray --- ICQ 71997575
Team Macromedia Volunteer for Dreamweaver
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.dreamweavermx-templates.com - Template Triage!
http://www.projectseven.com/go - DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs, Tutorials & Resources
http://www.macromedia.com/support/search/ - Macromedia (MM) Technotes
==================

"SCUBAMART" <webforumsuser@macromedia.com> wrote in message
news:cnaum6$j2$1@forums.macromedia.com...
> Third time lucky!
>
> <%
> Dim ObjMail
> Dim strMailText
> Dim strEmailFrom
>
> strEmailFrom = "xyz@xyz.co.uk"
>
> strMailText = "The following is a request for a Provisional Booking." &
> vbcrlf
> & vbcrlf
> strMailText = strMailText & vbcrlf & chr(13) & Chr(10)
> strMailText = strMailText & "Hirer Details." & vbcrlf & vbcrlf
> strMailText = strMailText & vbcrlf & chr(13) & Chr(10)
> strMailText = strMailText & "First Name : " & Request.Form("name") &
> vbcrlf
> strMailText = strMailText & "Last Name : " & Request.Form("lastname") &
> vbcrlf
> strMailText = strMailText & "House No. & Street : " &
> Request.Form("street") &
> vbcrlf
> strMailText = strMailText & "Town/City : " & Request.Form("town") & vbcrlf
> strMailText = strMailText & "State/County : " & Request.Form("state") &
> vbcrlf
> strMailText = strMailText & "Country : " & Request.Form("country") &
> vbcrlf
> strMailText = strMailText & "Zip/Post Code : " & Request.Form("postcode")
> &
> vbcrlf
> strMailText = strMailText & "Phone Number : " & Request.Form("number") &
> vbcrlf
> strMailText = strMailText & "E-Mail Address : " & Request.Form("email") &
> vbcrlf
> strMailText = strMailText & "Date of Birth : " & Request.Form("dob") &
> vbcrlf
> strMailText = strMailText & "Occupation : " & Request.Form("occupation") &
> vbcrlf
> strMailText = strMailText & "Driving Licence Number : " &
> Request.Form("licenceno") & vbcrlf
> strMailText = strMailText & "Number of Endorsements within 5yrs/Bans
> within
> 10yrs : " & Request.Form("endorse") & vbcrlf
> strMailText = strMailText & "Offense Codes and Dates : " &
> Request.Form("codes") & vbcrlf
> strMailText = strMailText & "Additional Drivers : " &
> Request.Form("adddrivers") & vbcrlf
> strMailText = strMailText & "Dates of Birth : " & Request.Form("dobs") &
> vbcrlf
> strMailText = strMailText & "Licence No's : " & Request.Form("addlicno") &
> vbcrlf
> strMailText = strMailText & "Motorhome Details" & vbcrlf & vbcrlf
> strMailText = strMailText & vbcrlf & chr(13) & Chr(10) & Chr(13) &
> Chr(10)
> strMailText = strMailText & "Date From : " & Request.Form("datefrom") &
> vbcrlf
> strMailText = strMailText & "Date To : " & Request.Form("dateto") & vbcrlf
> strMailText = strMailText & "Motor Home Model : " & Request.Form("model")
> &
> vbcrlf
> strMailText = strMailText & "Number of Adults in Party : " &
> Request.Form("noadults") & vbcrlf
> strMailText = strMailText & "Number of Juniors in Party : " &
> Request.Form("nojuniors") & vbcrlf
> strMailText = strMailText & "Will you be Travelling outside the UK ? : " &
> Request.Form("abroad") & vbcrlf
> strMailText = strMailText & "If Yes which Countries and Dates? : " &
> Request.Form("countries") & vbcrlf
> strMailText = strMailText & "Additional Requirments/Comments : " &
> Request.Form("comments") & vbcrlf
> strMailText = strMailText & "How Did you find Us ? : " &
> Request.Form("how") &
> vbcrlf
> strMailText = strMailText & "Do You Agree to the Rental Terms & Conditions
> ? :
> " & Request.Form("agree") & vbcrlf
>
> Set ObjMail = Server.CreateObject("CDONTS.NewMail")
> ObjMail.Body = strMailText
> ObjMail.FromAddress = Request.Form("email")
> ObjMail.To = strEmailFrom
> ObjMail.Subject = "Provisional Booking Form"
>
> ObjMail.Send
>
> If ObjMail.Send Then
> Msg = "Thank you for your provisional booking. We will
> contact
> you as soon as possible to confirm Press Back on your browser to
> continue"
> Else
> Msg = "Request was not sent succesfully - please try submitting
> again"
> Msg = Msg & ObjMail.Response & " "
> End If
>
> Response.Write Msg
>
> Set ObjMail = Nothing
> %>
>

SCUBAMART

2004-11-16, 6:54 pm

Murray/All My question was above: Hi Anyone want to help me with this - just
need to find out if there are any pointers on how to improve what i've done
and/or ensure it works correctly. It seems to fall over at the If statement, up
to there it appears to work (just requires a few formatting changes to the
output). Any help/suggestions appreciated. Regards Martin Regards Martin

SCUBAMART

2004-11-21, 4:15 am

Murray *TMM*

2004-11-21, 4:15 am

Murray *TMM*

2004-11-21, 7:14 am

SCUBAMART

2004-11-21, 7:14 am

SCUBAMART

2004-11-21, 7:14 am

Murray/All
Maybe this time?
Martin

Murray *TMM*

2004-11-21, 7:14 am

SCUBAMART

2004-11-22, 4:14 am