<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open ("provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\v-hosts\ggc-jer\fpdb\booking.mdb")
'''''''''''''''
''' Rooms Rates
SQLTypes = "SELECT * from RoomsPrices"
Set RSSrchTypes = Connection.Execute(SQLTypes)
dim dates(3)
dim singleRoom(3)
dim doubleRoom(3)
dim tripleRoom(3)
dim i
i = 0
Do While Not RSSrchTypes.EOF
If Not RSSrchTypes.eof Then
dates(i) = RSSrchTypes("dates")
singleRoom(i) = RSSrchTypes("singlePrice")
doubleRoom(i) = RSSrchTypes("doublePrice")
tripleRoom(i) = RSSrchTypes("triplePrice")
i = i + 1
RSSrchTypes.MoveNext
end if
Loop
'''''''''''''''
%>
Rates & Reservation
Rates
Season
Single Rooms
Double Rooms
Triple Rooms
High
$<%= singleRoom(0) %>
$<%= doubleRoom(0) %>
$<%= tripleRoom(0) %>
Regular
$<%= singleRoom(1) %>
$<%= doubleRoom(1) %>
$<%= tripleRoom(1) %>
Low
$<%= singleRoom(2) %>
$<%= doubleRoom(2) %>
$<%= tripleRoom(2) %>
High Season
04-14 Apr, 20-03 Jan
Regular Season
01 Mar, 04-15 Nov
Low Season
16 Nov - 28 Feb
<% action = Request("action") %>
<% if action="send" then %>
<%
inday = Request("inday")
outday = Request("outday")
RoomTypeSingle = Request("RoomTypeSingle")
RoomTypeDouble = Request("RoomTypeDouble")
RoomTypeTriple = Request("RoomTypeTriple")
if RoomTypeSingle = "ON" then
RoomTypeSingle = "on"
end if
if RoomTypeDouble = "ON" then
RoomTypeDouble = "on"
end if
if RoomTypeTriple = "ON" then
RoomTypeTriple = "on"
end if
NoOfRoomsSingle = Request("NoOfRoomsSingle")
NoOfRoomsDouble = Request("NoOfRoomsDouble")
NoOfRoomsTriple = Request("NoOfRoomsTriple")
FirstName = Request("FirstName")
LastName = Request("LastName")
Address1 = Request("Address1")
Address2 = Request("Address2")
Zip = Request("Zip")
City = Request("City")
Country = Request("Country")
Telephone = Request("Telephone")
Email = Request("Email")
comments = Request("comments")
FromEmail = "christmashotel@bezeqint.net"
ToEmail = "christmashotel@bezeqint.net"
Subject = "Order Request"
EmailMessage = "Christmas Hotel RESERVATION SYSTEM " & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Below is a new order request details:" & CHR(13)
EmailMessage = EmailMessage & "Personal Information: " & CHR(13)
EmailMessage = EmailMessage & "First Name: " & FirstName & CHR(13)
EmailMessage = EmailMessage & "Last Name: " & LastName & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Address: " & Address1 & CHR(13)
EmailMessage = EmailMessage & " " & Address2 & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "City: " & City & CHR(13)
EmailMessage = EmailMessage & "Country: " & Country & CHR(13)
EmailMessage = EmailMessage & "Postal Code: " & Zip & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Telephone: " & Telephone & CHR(13)
EmailMessage = EmailMessage & "Email: " & Email & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Reservation Information: " & CHR(13)
EmailMessage = EmailMessage & "Day of Arrival: " & inday & CHR(13)
EmailMessage = EmailMessage & "Day of Departure: " & outday & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Room(s) details: " & CHR(13)
if RoomTypeSingle = "on" then
EmailMessage = EmailMessage & "Single: " & NoOfRoomsSingle & " room(s)" & CHR(13)
end if
if RoomTypeDouble = "on" then
EmailMessage = EmailMessage & "Double: " & NoOfRoomsDouble & " room(s)" & CHR(13)
end if
if RoomTypeTriple = "on" then
EmailMessage = EmailMessage & "Triple: " & NoOfRoomsTriple & " room(s)" & CHR(13) & CHR(13)
end if
EmailMessage = EmailMessage & CHR(13)
EmailMessage = EmailMessage & "Comments: " & CHR(13)
EmailMessage = EmailMessage & " " & comments & CHR(13)
Impt = 1
Dim objMail
set objMail = CreateObject("CDONTS.NewMail")
objMail.Send FromEmail,ToEmail,Subject,EmailMessage,Impt
set objMail = Nothing
SQL = "insert into reservations(inday,outday,RoomTypeSingle,NoOfRoomsSingle,RoomTypeDouble,NoOfRoomsDouble,RoomTypeTriple,NoOfRoomsTriple,FirstName,LastName,address1,address2,zip,city,country,telephone,email,comments)"
SQL = SQL & "values(#" & inday & "#,#" & outday & "#,'" & RoomTypeSingle & "'," & NoOfRoomsSingle & ",'" & RoomTypeDouble & "'," & NoOfRoomsDouble & ",'" & RoomTypeTriple & "'," & NoOfRoomsTriple & ",'" & FirstName & "','"
SQL = SQL & LastName & "','" & address1 & "','" & address2 & "','" & zip & "','" & city & "','" & country & "','" & telephone & "','" & email & "','" & comments & "')"
Set RSInsert = Connection.Execute(SQL)
%>