help me format these email form results

**antonyx** · May 31, 2006 10:17

ok my next attempt, the error is

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'RemoteHost'

but this remote host was given to me by my web host to send emails from asp forms...

what can i do..

Code:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head> 
<body> 
 

<% 


Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From= Request.Form("Email")
myMail.RemoteHost = "mrvnet.kundenserver.de"		  
myMail.To="antonyx@gmail.com"




strEmailText = "<html><body>"

strEmailText = strEmailText & "<img src=""http://www.heathrowminicab.com/exec.jpg"">"
strEmailText = strEmailText & "Day: " & Request.Form("day") & vbCrLf
strEmailText = strEmailText & "Month: " & Request.Form("month") & vbCrLf
strEmailText = strEmailText & "Year: " & Request.Form("year") & vbCrLf
strEmailText = strEmailText & "Time - Hours: " & Request.Form("hour") & vbCrLf
strEmailText = strEmailText & "Time - Minutes: " & Request.Form("minutes") & vbCrLf
strEmailText = strEmailText & "Single or Return: " & Request.Form("journey_type") & vbCrLf
strEmailText = strEmailText & "Special Requirements: " & Request.Form("special") & vbCrLf
strEmailText = strEmailText & "Pickup Address: " & Request.Form("padd") & vbCrLf
strEmailText = strEmailText & "Pickup Airport: " & Request.Form("pairport") & vbCrLf
strEmailText = strEmailText & "Pick. Flight No: " & Request.Form("pflight") & vbCrLf
strEmailText = strEmailText & "Destination Address: " & Request.Form("dadd") & vbCrLf
strEmailText = strEmailText & "Destination Airport: " & Request.Form("dairport") & vbCrLf
strEmailText = strEmailText & "Dest. Flight No: " & Request.Form("dflight") & vbCrLf
strEmailText = strEmailText & "Title: " & Request.Form("title") & vbCrLf
strEmailText = strEmailText & "Name: " & Request.Form("myname") & vbCrLf
strEmailText = strEmailText & "Email: " & Request.Form("Email") & vbCrLf
strEmailText = strEmailText & "Phone: " & Request.Form("Phone") & vbCrLf
strEmailText = strEmailText & "No of Passengers: " & Request.Form("passengers") & vbCrLf
strEmailText = strEmailText & "Baby Seat: " & Request.Form("tick") & vbCrLf
strEmailText = strEmailText & "Luggage: " & Request.Form("luggage") & vbCrLf
strEmailText = strEmailText & "Car Type: " & Request.Form("car") & vbCrLf
strEmailText = strEmailText & "Payment Type: " & Request.Form("pay") & vbCrLf
strEmailText = strEmailText & "Contact me By: " & Request.Form("contact") & vbCrLf
strEmailText = strEmailText & "</body></html>"

myMail.BodyText = strEmailText
myMail.Send
set myMail=nothing
%>


</body>

</html>

**FFCus** · May 31, 2006 10:54

What happens if you comment out the line that is causing the error? Will the message still send?

**antonyx** · May 31, 2006 16:54

new problem

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

the error line is bolded

Code:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head> 
<body> 
 

<% 


Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From= Request.Form("Email")

myMail.To="antonyx@gmail.com"




strEmailText = "<html><body>"

strEmailText = strEmailText & "<img src=""http://www.heathrowminicab.com/exec.jpg"">"
strEmailText = strEmailText & "Day: " & Request.Form("day") & vbCrLf
strEmailText = strEmailText & "Month: " & Request.Form("month") & vbCrLf
strEmailText = strEmailText & "Year: " & Request.Form("year") & vbCrLf
strEmailText = strEmailText & "Time - Hours: " & Request.Form("hour") & vbCrLf
strEmailText = strEmailText & "Time - Minutes: " & Request.Form("minutes") & vbCrLf
strEmailText = strEmailText & "Single or Return: " & Request.Form("journey_type") & vbCrLf
strEmailText = strEmailText & "Special Requirements: " & Request.Form("special") & vbCrLf
strEmailText = strEmailText & "Pickup Address: " & Request.Form("padd") & vbCrLf
strEmailText = strEmailText & "Pickup Airport: " & Request.Form("pairport") & vbCrLf
strEmailText = strEmailText & "Pick. Flight No: " & Request.Form("pflight") & vbCrLf
strEmailText = strEmailText & "Destination Address: " & Request.Form("dadd") & vbCrLf
strEmailText = strEmailText & "Destination Airport: " & Request.Form("dairport") & vbCrLf
strEmailText = strEmailText & "Dest. Flight No: " & Request.Form("dflight") & vbCrLf
strEmailText = strEmailText & "Title: " & Request.Form("title") & vbCrLf
strEmailText = strEmailText & "Name: " & Request.Form("myname") & vbCrLf
strEmailText = strEmailText & "Email: " & Request.Form("Email") & vbCrLf
strEmailText = strEmailText & "Phone: " & Request.Form("Phone") & vbCrLf
strEmailText = strEmailText & "No of Passengers: " & Request.Form("passengers") & vbCrLf
strEmailText = strEmailText & "Baby Seat: " & Request.Form("tick") & vbCrLf
strEmailText = strEmailText & "Luggage: " & Request.Form("luggage") & vbCrLf
strEmailText = strEmailText & "Car Type: " & Request.Form("car") & vbCrLf
strEmailText = strEmailText & "Payment Type: " & Request.Form("pay") & vbCrLf
strEmailText = strEmailText & "Contact me By: " & Request.Form("contact") & vbCrLf
strEmailText = strEmailText & "</body></html>"

if myMail.Send then
  Response.Redirect "index.htm"
else
  Response.Write "Mail send failure. Error was " & Mail.Response
end if 
Set myMail = Nothing
%> 


</body>

</html>

**FFCus** · May 31, 2006 18:02

Hmmm...that doesn't help. Can you follow the simplest example shown at http://www.w3schools.com/asp/asp_send_email.asp and see if the mail will send? Once that starts working, you can try to plug in the rest of the inormation.

I find that sometimes working simple to complex is best when trying debug some errors like this.

User Tag List

Thread: help me format these email form results

Thread Tools

Display

help me format these email form results

Bookmarks

Bookmarks

Posting Permissions