SitePoint Sponsor

User Tag List

Results 1 to 4 of 4
  1. #1
    SitePoint Evangelist
    Join Date
    Feb 2005
    Location
    London, UK
    Posts
    422
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    help me format these email form results

    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>
    


  2. #2
    Chive On FFCus's Avatar
    Join Date
    Feb 2006
    Location
    Connecticut
    Posts
    542
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    What happens if you comment out the line that is causing the error? Will the message still send?

  3. #3
    SitePoint Evangelist
    Join Date
    Feb 2005
    Location
    London, UK
    Posts
    422
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    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>

  4. #4
    Chive On FFCus's Avatar
    Join Date
    Feb 2006
    Location
    Connecticut
    Posts
    542
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    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.


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •