Guest Comments - Hotel Green Park

<% if Request.Form("txtroomno") <> "" then Response.Write "dsfsdf" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("txtEmail") objCDOMail.To = "vizag@hotelgreenpark.com" objCDOMail.Subject = "GuestBook Details From Vizag Website" objCDOMail.Body = "Atn : Sales : Details of theGuest Comment / Suggestion as follows " & "," & "

" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "

" & "Nature :" & "	" & Request.Form("chknature") & "
" & "Area :" & "	" & Request.Form("chkarea") & "
" & "Room No / Restaurant Visited :" & "	" & Request.Form("txtroomno") & "
" & "Date of Visit :" & "	" & Request.Form("txtdatearrival") & "
" & "Comments :" & "	" & Request.Form("txtcomments") & "
" & "Guest Name :" & "	" & Request.Form("txtGuestName") & "
" & "Area Code/Tel No.:" & "	" & Request.Form("txtareacode") & " " & Request.Form("txtphone") & "
" & "Email Address :" & "	" & Request.Form("txtemail") & "
" & "Address :" & "	" & Request.Form("txtaddress") & "

" & _ "" & _ "" objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing Session("StrMsg") = "Dear " & Request.Form("txtguestname") & "
" & _ "Your comment has been Received and we will get back you soon." & "
" & "--Green Park-" & Request.Form("PROP") End if %> Guest Comments - Hotel Green Park - Hyderabad :

		Online Reservation
		Guest Comments
		Fact Sheet
		Facilities
		Services
		Tariff Card
		Careers
		Contact us

<% = Session("StrMsg") %><% Session("StrMsg")=""%>

Nature :	Comment Suggestion
Area :	Room Restaurant
Room No / Restaurant Visited :
Date Of Visit :	(mm/dd/yyyy)
Details of the Comment / Suggestion :
Guest Name :
Telephone No :	Area Code	Telephone No.

Email Address :
Postal Address :