 |
www.palmmanor.com |
|
||||||||||
|
||||||||||||
|
|
Reservation Form<% dim gender, lastname, firstname, area, phone1, phone2, email, monthA, monthD, comment, dayA, dayD if (request.form("lastname")="") or _ (request.form("firstname")="") or _ (request.form("email")="") or _ (request.form("area")="") or _ (request.form("phone1")="") or _ (request.form("phone2")="") then %>Please fill out the form, we will send you information or confirm reservation by e-mail or telephone.<% else gender = request.form("gender") lastname = request.form("lastname") firstname = request.form("firstname") area = request.form("area") phone1 = request.form("phone1") phone2 = request.form("phone2") email = request.form("email") comment = request.form("comment") monthA = request.form("month-arrival") dayA = request.form("day-arrival") monthD = request.form("month-depart") dayD = request.form("day-depart") Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= email MyCDONTSMail.To= "palmmanor@comcast.net" MyCDONTSMail.Subject= "Reservation for Palm Manor Resort" MyCDONTSMail.Cc= "marc@marcaube.com" MyBody = "Reservation for : " &vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & gender & firstname & " " & lastname & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & "E-mail : " & email &vbCrLf MyBody = MyBody & "Phone : " &"("& area &") "&phone1 &"-"& phone2 & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & "Date of arrival : " & "month = "& monthA & " day = " & dayA MyBody = MyBody & vbCrLf MyBody = MyBody & "Date of departure : " & "month = " & monthD & " day = " & dayD MyBody = MyBody & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & "Comments :" & comment MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing Msg = "Dear "&gender &" "&Lastname&", your demand was sent to us and we will reply to you shortly. " response.write Msg response.write ("Thank you ! ") end if %> |
|
|
