%@LANGUAGE="VBSCRIPT"%>
<%
' *** Send Form Values From Same Page to Webmaster - CDO NewMail
' *** UltraSuite Server Behavior - CDOMail_111 - version 1.0
' *** Created by Jag S. Sidhu - www.ultrasuite.com
Dim usxCDO
Set usxCDO = Server.CreateObject("CDONTS.NewMail")
usxCDO.From = "alex@classiccarriage.com.au"
usxCDO.To = "alex@classiccarriage.com.au"
usxCDO.Subject = "Booking Request Form"
usxCDO.Body = Chr(13) & Chr(10) &_
"Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_
"Address: " & cStr(Request("Address")) & Chr(13) & Chr(10) &_
"Suburb: " & cStr(Request("Suburb")) & Chr(13) & Chr(10) &_
"Post Code: " & cStr(Request("Postcode")) & Chr(13) & Chr(10) &_
"day: " & cStr(Request("day")) & Chr(13) & Chr(10) &_
"month: " & cStr(Request("month")) & Chr(13) & Chr(10) &_
"year: " & cStr(Request("year")) & Chr(13) & Chr(10) &_
"Phone: " & cStr(Request("phone")) & Chr(13) & Chr(10) &_
"email: " & cStr(Request("email")) & Chr(13) & Chr(10) &_
"Pick up Time: " & cStr(Request("putime")) & Chr(13) & Chr(10) &_
"Pick up Address: " & cStr(Request("puaddress")) & Chr(13) & Chr(10) &_
"Marriage Service: " & cStr(Request("mservice")) & Chr(13) & Chr(10) &_
"Marriage Service Time: " & cStr(Request("mstime")) & Chr(13) & Chr(10) &_
"Photograph Location: " & cStr(Request("plocation")) & Chr(13) & Chr(10) &_
"Destination Time: " & cStr(Request("dtime")) & Chr(13) & Chr(10) &_
"Reception Address: " & cStr(Request("raddress")) & Chr(13) & Chr(10) &_
"Comments: " & cStr(Request("comments"))
If (cStr(Request("Submit")) <> "") Then
usxCDO.Send
Set usxCDO = Nothing
Response.Redirect "thanks.htm"
End If
%>
Welcome to Classic Carriage Co.
|
|
Quote
Request
Factory 2 12 Fogarty St North Melbourne
VIC 3051 Tel: 03 9326 4909 Mob: 0425 709911
|