ive looked at the w3 site and im still struggling to format my own email system i have right now.. if someone could possibly show me within my code one example of formating.. (bold, line breaks... etc)
infact im not even sure if my email type is correct.. i want to turn this code into a html email so i can add pictures and format the text..
infact im not even sure if my email type is correct.. i want to turn this code into a html email so i can add pictures and format the text..
Code:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.FromName = "Heathrow Minicab Website Booking"
Mail.FromAddress= Request.Form("Email")
Mail.RemoteHost = "mrvnet.kundenserver.de"
Mail.AddRecipient "Mr Karim", "info@londonairportcars.co.uk"
Mail.Subject = "Website - Booking"
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
Mail.BodyText = strEmailText
if Mail.SendMail then
Response.Redirect "index.htm"
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
Set Mail = Nothing
%>
</body>
</html>