.asp contact form

xirokx · 17 Apr 2011 at 06:26

This is my .asp code for a contact page:

<%
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Mobile
Dim Date
Dim Time
Dim Pickup
Dim Dropoff
Dim Vehicle
Dim Flight_Number
Dim Pax
Dim Luggages
Dim Comments

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = ""my email address"
Subject = "website enquiry"
Name = Trim(Request.Form("Name"))
Mobile = Trim(Request.Form("Mobile"))
Date = Trim(Request.Form("Date"))
Time = Trim(Request.Form("Time"))
Pickup = Trim(Request.Form("Pickup"))
Dropoff = Trim(Request.Form("Dropoff"))
Vehicle = Trim(Request.Form("Vehicle"))
Flight_Number = Trim(Request.Form("Flight_Number"))
Pax = Trim(Request.Form("Pax"))
Luggages = Trim(Request.Form("Luggages"))
Comments = Trim(Request.Form("Comments"))

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.html" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Mobile: " & Mobile & VbCrLf
Body = Body & "Date: " & Date & VbCrLf
Body = Body & "Time: " & Time & VbCrLf
Body = Body & "Pickup: " & Pickup & VbCrLf
Body = Body & "Dropoff: " & Dropoff & VbCrLf
Body = Body & "Vehicle: " & Vehicle & VbCrLf
Body = Body & "Flight_Number: " & Flight_Number & VbCrLf
Body = Body & "Pax: " & Pax & VbCrLf
Body = Body & "Luggages: " & Luggages & VbCrLf
Body = Body & "Comments: " & Comments & VbCrLf

' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

' redirect to success page
Response.Redirect("thankyou.html" & EmailFrom)
%>

when the user presses submit button they see this error:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/contactusprocess.asp, line 248

800401f3

why is that?

how can I fix it?

please help

thanks in advance

sist_si · 17 Apr 2011 at 09:47

CDONTS is an old component. Use CDO.Message instead.

It's very similar syntax. Have a quick Google for "Classic ASP, CDO.Message" and you'll be right as rain

xirokx · 17 Apr 2011 at 17:51

thank you so much

as I know very little about .asp even when I google these things I dont understand them

I know i am close to completing this is there any chance you can hold my hand as it were and tell me what I need to replace this with so that the form work:

' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

thank you

markeh · 17 Apr 2011 at 18:16

w3schools has this:

Code:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

just change: myMail.TextBody="This is a message."
to: myMail.TextBody=Body

I presume line: 248 in your original script was:
Set mail = Server.CreateObject("CDONTS.NewMail")
Seems like you don't have cdonts on the server, there's a chance you won't have cdo.sys either (depends on the server).

xirokx · 17 Apr 2011 at 18:27

thank you for your reply

2 lil questions:

like this?

myMail.TextBody="Body"

and

myMail.From="[email protected]"
myMail.To="[email protected]"

what should I replace these two fields with?

like where does my email address go and what part of this code picks up the email addy that the user inputs?

thank you for your help

I presume line: 248 in your original script was:
Set mail = Server.CreateObject("CDONTS.NewMail")

yes thats true it was until you advised me to change it

xirokx · 17 Apr 2011 at 18:32

I changed the code to:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="Body"
myMail.Send
set myMail=nothing

and now recieve this error:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/contactusprocess.asp, line 249

800401f3

line 249 is this:

myMail.Subject="Sending email with CDO"

markeh · 17 Apr 2011 at 18:32

1) no do it as I did it (without the double quotes):

myMail.TextBody=Body

2) In you case, like this:

myMail.From=EmailFrom
myMail.To=EmailTo

This going on a live website?

Line 249 is not what you've said it is, it's: Set myMail=CreateObject("CDO.Message")

Seems whatever server your hosting on doesn't have cdo.sys either, is it windows hosting?

xirokx · 17 Apr 2011 at 18:36

I now added a little extra code so it looks like this:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="Body"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

I now recieve this error:

error '8004020f'

/contactusprocess.asp, line 262

line 262 is this:

myMail.Send

I reckon its because these two lines are not configured , what should I input there:

myMail.From="[email protected]"
myMail.To="[email protected]"

am so close can feel it

please help

xirokx · 17 Apr 2011 at 18:38

it is windows hosting yep

this is going on a live website yep

2) In you case, like this:

Quote:
myMail.From=EmailFrom
myMail.To=EmailTo

so am I putting an email address here or does the code automatically pick it up?

can I send you both files for you to correct? please am so close, its something so small

markeh · 17 Apr 2011 at 18:42

are you sending the mail from the local machine or via a remote smtp service?

xirokx · 17 Apr 2011 at 18:46

I am uploading the files to my host and then go to the website online and complete the form and get that error now:

I now recieve this error:

error '8004020f'

/contactusprocess.asp, line 262
line 262 is this:

myMail.Send

I reckon its because these two lines are not configured , what should I input there:

myMail.From="[email protected]"
myMail.To="[email protected]"

the whole code currently looks like this:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody=Body
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send <----------------LINE 262
set myMail=nothing

still get that line 262 error

markeh · 17 Apr 2011 at 19:18

the error has nothing to do with the to and from email addresses (which is all those 2 lines are).

what it is I don't know but I do know you'll need to input the right configuration options in the configuration fields (anything starting with: myMail.Configuration.Fields.Item) and that's not something I can really help with as it's server dependant.

xirokx · 17 Apr 2011 at 20:53

the error is fixed, just had to direct it to my smtp server lol

thanks