<%@language="vbscript" %>
<%
'recupera i dati dalla querystring

check=request.form("check")

'modalità di controllo attiva ?
if (check="") then check="off" end if

'se si sta eseguendo il controllo
if(check="on") then

			' blocco asp per il controllo della consistenza dei campi
			' del form di prenotazione e invio della mail
			
			'preleva i campi dal form
			
			'dati nascosti
			hotelID=request.form("hotelID")
			season=request.form("season")
			IDroom=request.form("IDroom")
			roomdesc=request.form("roomdesc")
			Price=request.form("Price")
			City_name=request.form("City_name")
			
			'query per i dati dell'hotel
			
			set hotel = Server.CreateObject("ADODB.Recordset")
			hotel.ActiveConnection = "dsn=chinahotel;"
			hotel.Source = "SELECT * FROM hotel where ID="&hotelID
			hotel.CursorType = 0
			hotel.CursorLocation = 2
			hotel.LockType = 3
			hotel.Open
			
			hotelnome=hotel.fields.item("nome").value
			hoteladdress=hotel.fields.item("indirizzo").value
			
			hotel.close
			set hotel=nothing
			
			'inizializza contatore e indice errori
			ercount=0
			er=0
			
			'dati inseriti dall'utente - controlla che i campi richiesti non siano vuoti
			
			arrMonth=request.form("arrmonth")
			if (arrMonth="000") then
				er=1
				ercount=ercount+1
			'	arrMonth="blank"
			end if
			
			arrDay=request.form("arrDay")
			if (arrDay="000") then
				er=1
				ercount=ercount+1
			' 	arrDay="blank"
			end if
			
			arrYear=request.form("arrYear")
			if (arrYear="000") then
				er=1
				ercount=ercount+1
			'	arrYear="blank"
			end if
			
			depMonth=request.form("depmonth")
			if (depMonth="000") then
				er=1
				ercount=ercount+1
			'	depMonth="blank"
			end if
			
			depDay=request.form("depDay")
			if (depDay="000") then
				er=1
				ercount=ercount+1
			'	depDay="blank"
			end if
			
			depYear=request.form("depYear")
			if (depYear="000") then
				er=1
				ercount=ercount+1
			'	depYear="blank"
			end if
			
			guests=request.form("guests")
			if (guests="000") then
				er=1
				ercount=ercount+1
			'	guests="blank"
			end if
			
			rooms=request.form("rooms")
			if (rooms="000") then
				er=1
				ercount=ercount+1
			'	rooms="blank"
			end if
			
			cognome=request.form("cognome")
			if (cognome="") then
				er=1
				ercount=ercount+1
				cognome="zzzblank"
			end if
			
			nome=request.form("nome")
			if (nome="") then
				er=1
				ercount=ercount+1
				nome="zzzblank"
			end if
			
			email=request.form("email")
			if (email="") then
				er=1
				ercount=ercount+1
				email="zzzblank"
			end if
			
			address=request.form("address")
			if (address="") then
				er=1
				ercount=ercount+1
				address="zzzblank"
			end if
			
			city=request.form("city")
			if (city="") then
				er=1
				ercount=ercount+1
				city="zzzblank"
			end if
			
			paese=request.form("country")
			if (paese="000") then
				er=1
				ercount=ercount+1
				paese="blank"
			end if
			
			tel=request.form("tel")
			if (tel="") then
				er=1
				ercount=ercount+1
				tel="blank"
			end if
			
			fax=request.form("fax")
			if (fax="") then
			'il fax non è obbligatorio
			'	er=1
			'	ercount=ercount+1
				fax="blank"
			end if
			
			notes=request.form("notes") 'no controllo
			
			
			
			'valida indirizzo email
			%>
			<!--#include file="support/checkmail.asp"-->
			<%
			
			if ((chkEmail(email)=1)or(email="zzzblank")) then
				er=1
				email="badmail"
			end if
			
			' ??? controlla che la partenza non sia prima dell'arrivo
			
			depString=depYear&depMonth&depDay
			arrString=arrYear&arrMonth&arrDay
			
			if(int(depString)<int(arrString))then
				er=1
				baddate=1
			end if
			
			if(int(depString)=int(arrString))then
				er=1
				baddate=1
			end if

			' se non ci sono errori, invio mail e redirect alla pagina di conferma
			
			if er=0 then
			
			
				'riempi campi per la mail
				strfrom = nome&" "&cognome&" <"&email&">"
				strto = "reservation@chinahotelsreservation.com"
				strsubject = "HOTEL RESERVATION: "&hotelnome
				strbody = "CHINAVACATIONS.NET"&chr(13)&"Reservation Send date: "&date&" Time:  "&time&chr(13)&"---------------------------------------------------------"&chr(13)&chr(13)&"HOTEL NAME:  "&hotelnome&chr(13)&"HOTEL ADDRESS: "&hoteladdress&chr(13)&"Hotel City: "&City_name&chr(13)&"Date Arrive (dd/mm/aaaa): "&arrDay&"/"&arrMonth&"/"&arrYear&chr(13)&"Date Leaving (gg/mm/aaaa): "&depDay&"/"&depMonth&"/"&depYear&chr(13)&chr(13)&"Type of Room: "&roomdesc&chr(13)&"Price(USD): "&Price&chr(13)&chr(13)&"N¡ã of Person: "&guests&chr(13)&"N¡ã of Room: "&rooms&chr(13)&chr(13)&"---------------------------------------------------------"&chr(13)&"Client Information : "&chr(13)&chr(13)&"Name: "&nome&chr(13)&"Surname:  "&cognome&chr(13)&"Address:  "&address&chr(13)&"City:  "&city&chr(13)&"Country: "&paese&chr(13)&"Tel: "&tel&chr(13)&"Fax: "&fax&chr(13)&"E-Mail:  "&email&chr(13)&"-------------------------Client NOTES -------------------------"&chr(13)&notes&chr(13)&"---------------------------------------------------------"
				
				lngImportance = "1"
				
				
				'spedisci email
				
				 Set myCDONTSMail = CreateObject("CDONTS.NewMail")
					myCDONTSMail.bcc=""
				         myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
				         Set myCDONTSMail  = Nothing
				
				'redirect alla pagina di OK
				destpage="bookok.asp?hotelid="&cstr(hotelID)
				response.redirect(destpage)
			
			end if
			

'fine della validazione del form
end if

'se ci sono stati errori nella validazione salta recupero dati da querystring
if check="off" then
	hotelID=request.querystring("hotel")
	seas=request.querystring("seas")
	IDroom=request.querystring("room")
end if

'if check="on" then
'hotelID=request.form("hotelID")
'seas=request.form("season")
'IDroom=request.form("room")
'end if

'recupera dati hotel

'query per i dati dell'hotel

set hotel = Server.CreateObject("ADODB.Recordset")
hotel.ActiveConnection = "dsn=chinahotel;"
hotel.Source = "SELECT * FROM hotel where ID="&hotelID
hotel.CursorType = 0
hotel.CursorLocation = 2
hotel.LockType = 3
hotel.Open

hotelnome=hotel.fields.item("nome").value
hoteladdress=hotel.fields.item("indirizzo").value
hotelcity=hotel.fields.item("idcitta").value

hotel.close
set hotel=nothing

'query per i dati di Citta

set citta = Server.CreateObject("ADODB.Recordset")
citta.ActiveConnection = "dsn=chinahotel;"
citta.Source = "SELECT * FROM citta where ID="&hotelcity
citta.CursorType = 0
citta.CursorLocation = 2
citta.LockType = 3
citta.Open

City_name=citta.fields.item("citta").value

citta.close
set citta=nothing

'recupera i dati della stanza

set room = Server.CreateObject("ADODB.Recordset")
room.ActiveConnection = "dsn=chinahotel;"
room.Source = "SELECT * FROM stanze where ID="&IDroom
room.CursorType = 0
room.CursorLocation = 2
room.LockType = 3
room.Open

roomdesc=room.fields.item("tipostanza").value
'PriceHigh=room.fields.item("prezzoalta").value
'PriceLow=room.fields.item("prezzobassa").value
if (seas = "LO") then
Price=room.fields.item("prezzobassa").value
end if
if (seas = "HI") then
Price=room.fields.item("prezzoalta").value
end if

room.close
set room=nothing

%>

<html>
<head>
<title>China Hotels Reservation.com - <%=hotelnome %></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><META HTTP-EQUIV="Content-Language" CONTENT="En"><META NAME="Language" CONTENT="EN, en, English">
<style type="text/css">
.error{color:red}
.style1 {	font-size: 12px;
	font-family: Arial, Helvetica, sans-serif;
}
.style2 {	font-size: 18px;
	font-family: Arial, Helvetica, sans-serif;
}
.style4 {font-size: 12px; font-family: Arial, Helvetica, sans-serif; font-weight: bold; }
</style>
</head>
<body bgcolor="#FFFFFF">
<!--<h3><font color="red">debug <%=check %>&nbsp;errori:<%=ercount %>&nbsp;check:<%=er %> </font></h3>-->
<div align="center">
<table width="690"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="55" colspan="2" background="/images/head.gif"><blockquote>
<h1 class="style2"><%=hotelnome %></h1>
</blockquote></td>
</tr>
<tr>
<td width="140" valign="top" bgcolor="#E5F2FF"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#99CCFF"><div align="center" class="style1"><strong>China Vacations</strong></div></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4">&nbsp;</td>
</tr>        <tr>
<td width="140" height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/index.htm">China Vacations</a> </td>
</tr>        <tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr><tr>
<td width="140" height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_hotels.htm">China Hotels</a> </td>
</tr>
<tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_briefing.htm">China Briefing</a> </td>
</tr>
<tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_business.htm">China Business </a></td>
</tr>
<tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_culture.htm">China Culture </a></td>
</tr>
<tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_economy.htm">China Economy</a> </td>
</tr>
<tr>
<td class="style4"><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF" class="style4"><img src="/images/fre.gif" width="14" height="14" hspace="8"><a href="/china_market.htm">China Market</a> </td>
</tr>
<tr>
<td><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF"><img src="/images/fre.gif" width="14" height="14" hspace="8"><span class="style4"><a href="/china_travel.htm">China Travel</a> </span></td>
</tr>
<tr>
<td><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF"><img src="/images/fre.gif" width="14" height="14" hspace="8"><span class="style4"><a href="/china_tourism.htm">China Tourism</a></span></td>
</tr>
<tr>
<td><img src="/images/line.gif" width="138" height="1"></td>
</tr>
<tr>
<td height="20" bgcolor="#E5F2FF"><br>
</td>
</tr>
</table></td>
<td width="550" valign="top"><table width="550"  border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="50%"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" background="/images/menu_b_l.gif"><span class="style4">&nbsp;&nbsp;<%=hotelnome %></span></td>
</tr>
<tr>
<td height="20" class="style1"><table width="100%" border="0">
<tr>
<td class="style1"> <br>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bb"><b class="style4">&nbsp;Form for requesting the availability of rooms</b></td>
</tr>
<%
'scrivi messaggio di errore
if (er=1) then
%>
<tr>
<td class="style1" align="center"><font color="red">There are missing or wrong data in the form (shown in red)</font></td>
</tr>
<%
'indirizzo posta non valido
if (email="badmail") then
%>
<tr>
<td class="style1" align="center"><font color="red">The email address is not valid</font></td>
</tr>
<% end if %>
<%
'date non valide
if (baddate=1) then
%>
<tr>
<td class="style1" align="center"><font color="red">The departure date is before the arrival date !</font></td>
</tr>
<% end if %>
<% end if %>
<tr>
<td><img src="images/punto.gif" width="535" height="1"></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="style1" valign="top" rowspan="9" width="238">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bb"><b>&nbsp;Hotel</b> data</td>
</tr>
<form method="post" action="hotelform.asp">
</table>

<!-----------INIZIO FORM PRENOTAZIONE------------->

<input type="hidden" name="hotelID" value="<%=hotelID %>">
<input type="hidden" name="season" value="<%=seas %>">
<input type="hidden" name="IDroom" value="<%=IDroom %>">
<input type="hidden" name="roomdesc" value="<%=roomdesc%>">
<input type="hidden" name="Price" value="<%=Price%>">
<input type="hidden" name="City_name" value="<%=City_name%>">
<input type="Hidden" name="check" value="on">

<br>
<%=hotelnome %><br><%=hoteladdress %><br>

<br>
<div class="bb"><b>Your</b> stay:</div><br>
<b> Arrival:</b><br>
<select <%if ((arrMonth="000") or (baddate=1)) then %> class="error" <% end if %> name="arrMonth">
<option <%if ((arrMonth="000")) then %> selected <% end if %> value="000">Month
<option <%if (int(arrMonth)=1) then %> selected <% end if %> value="01">January
<option <%if (int(arrMonth)=2) then %> selected <% end if %> value="02">February
<option <%if (int(arrMonth)=3) then %> selected <% end if %> value="03">March
<option <%if (int(arrMonth)=4) then %> selected <% end if %> value="04">April
<option <%if (int(arrMonth)=5) then %> selected <% end if %> value="05">May
<option <%if (int(arrMonth)=6) then %> selected <% end if %> value="06">June
<option <%if (int(arrMonth)=7) then %> selected <% end if %> value="07">July
<option <%if (int(arrMonth)=8) then %> selected <% end if %> value="08">August
<option <%if (int(arrMonth)=9) then %> selected <% end if %> value="09">September
<option <%if (int(arrMonth)=10) then %> selected <% end if %> value="10">October
<option <%if (int(arrMonth)=11) then %> selected <% end if %> value="11">November
<option <%if (int(arrMonth)=12) then %> selected <% end if %> value="12">December
</select>

<select <%if ((arrDay="000") or (baddate=1)) then %> class="error" <% end if %> name="arrDay">
<option <%if ((arrDay="000")) then %> selected <% end if %>value="000">Day
<% for cont=1 to 31  %>
<option <%if (int(arrDay)=cont) then %> selected <% end if %> value="<%=right("00"&Cstr(cont),2) %>"><%=cont %>
<% next %>
</select>

<select <%if ((arrYear="000") or (baddate=1)) then %> class="error" <% end if %> name="arrYear">
<option value="000" <%if ((arrYear="000")) then %> selected <% end if %>>Year </option>
<option <%if (int(arrYear)=2005) then %> selected <% end if %> value="2005">2005</option>
<option <%if (int(arrYear)=2006) then %> selected <% end if %> value="2006">2006</option>
<option <%if (int(arrYear)=2007) then %> selected <% end if %> value="2007">2007</option>
<option <%if (int(arrYear)=2008) then %> selected <% end if %> value="2008">2008</option>
</select>
<br><br>

<b>Departure:</b><br>
<select <%if ((depMonth="000") or (baddate=1)) then %> class="error" <% end if %> name="depMonth">
<option <%if ((depMonth="000")) then %> selected <% end if %> value="000">Month
<option <%if (int(depMonth)=1) then %> selected <% end if %> value="01">January
<option <%if (int(depMonth)=2) then %> selected <% end if %> value="02">February
<option <%if (int(depMonth)=3) then %> selected <% end if %> value="03">March
<option <%if (int(depMonth)=4) then %> selected <% end if %> value="04">April
<option <%if (int(depMonth)=5) then %> selected <% end if %> value="05">May
<option <%if (int(depMonth)=6) then %> selected <% end if %> value="06">June
<option <%if (int(depMonth)=7) then %> selected <% end if %> value="07">July
<option <%if (int(depMonth)=8) then %> selected <% end if %> value="08">August
<option <%if (int(depMonth)=9) then %> selected <% end if %> value="09">September
<option <%if (int(depMonth)=10) then %> selected <% end if %> value="10">October
<option <%if (int(depMonth)=11) then %> selected <% end if %> value="11">November
<option <%if (int(depMonth)=12) then %> selected <% end if %> value="12">December
</select>

<select <%if ((depDay="000") or (baddate=1)) then %> class="error" <% end if %> name="depDay">
<option <%if ((depDay="000")) then %> selected <% end if %>value="000">Day
<% for cont=1 to 31  %>
<option <%if (int(depDay)=cont) then %> selected <% end if %> value="<%=right("00"&Cstr(cont),2) %>"><%=cont %>
<% next %>
</select>

<select <%if ((depYear="000") or (baddate=1)) then %> class="error" <% end if %> name="depYear">
<option value="000" <%if ((depYear="000")) then %> selected <% end if %>>Year </option>
<option <%if (int(depYear)=2005) then %> selected <% end if %> value="2005">2005</option>
<option <%if (int(depYear)=2006) then %> selected <% end if %> value="2006">2006</option>
<option <%if (int(depYear)=2007) then %> selected <% end if %> value="2007">2007</option>
<option <%if (int(depYear)=2008) then %> selected <% end if %> value="2008">2008</option>
</select>
<br>
<b><span <%if (guests="000") then %> class="error" <% end if %>>How many guests:</span></b><br>
<select name="guests">
<option <%if ((guests="000")) then %> selected <% end if %>value="000">n° of Persons
<% for cont=1 to 20  %>
<option <%if (int(guests)=cont) then %> selected <% end if %> value="<%=cont %>"><%=cont %>
<% next %>
</select>
<br>
<b><span <%if (rooms="000") then %> class="error" <% end if %>>How many rooms:</span></b><br>
<select name="Rooms">
<option <%if (rooms="000") then %> selected <% end if %>value="000">n° of Rooms
<% for cont=1 to 20  %>
<option <%if (int(rooms)=cont) then %> selected <% end if %> value="<%=cont %>"><%=cont %>
<% next %>
</select>
<br><b>Room type:</b> <%=roomdesc %><br></td>
<td class="style1" valign="top" colspan="2"><b>Your</b> data</td>
</tr>
<tr>
<td width="105" class="style1"><span<%if (nome="zzzblank") then %> class="error" <% end if %>> First name: </span><br></td>
<td width="168" class="style1" >
<input type="text" name="nome" <% if not(nome="zzzblank") then %> value="<%=nome %>" <% end if %>></td>
</tr>
<tr>
<td class="style1"><span<%if (cognome="zzzblank") then %> class="error" <% end if %>> Last name: </span></td>
<td class="style1" >
<input type="text" name="cognome" <% if not(cognome="zzzblank") then %> value="<%=cognome %>" <% end if %>></td>
</tr>
<tr>
<td class="style1"><span<%if (email="badmail") then %> class="error" <% end if %>>e-mail address: </span></td>
<td class="style1" >
<input type="text" name="email" <% if not(email="badmail") then %> value="<%=email %>" <% end if %>></td>
</tr>
<tr>
<td class="style1"><span<%if (address="zzzblank") then %> class="error" <% end if %>>Address: </span></td>
<td class="style1" >
<input type="text" name="address" <% if not(address="zzzblank") then %> value="<%=address %>" <% end if %>></td>
</tr>
<tr>
<td class="style1"><span<%if (city="zzzblank") then %> class="error" <% end if %>>City:</span> </td>
<td class="style1" >
<input type="text" name="city" <% if not(city="zzzblank") then %> value="<%=city %>" <% end if %>></td>
</tr>
<tr>
<td class="style1"><span<%if (paese="blank") then %> class="error" <% end if %>>Country:</span> </td>
<td class="style1" >
<select name="Country">
<option <%if (paese="blank") then %> selected <% end if %> value="000">Select your Country
<%
set paesi = Server.CreateObject("ADODB.Recordset")
paesi.ActiveConnection = "dsn=chinahotel;"
paesi.Source = "SELECT * FROM paesi"
paesi.CursorType = 0
paesi.CursorLocation = 2
paesi.LockType = 3
paesi.Open
while not(paesi.eof)
%>
<option <% if(paese = paesi.fields.item("paese").value) then %>selected <% end if %> value="<%=paesi.fields.item("paese").value %>"><%=paesi.fields.item("paese").value %>

<%
paesi.movenext()
wend
paesi.close()
set paesi=nothing
%>

</select></td>
</tr>
<tr>
<td class="style1"><span<%if (tel="blank") then %> class="error" <% end if %>>Phone:</span></td>
<td class="style1" >
<input type="text" name="tel" <% if not(tel="blank") then %> value="<%=tel %>" <% end if %>></td>
</tr>
<tr>
<td class="style1">Fax (optional):  </td>
<td class="style1" >
<input type="text" name="fax" <% if not(fax="blank") then %> value="<%=fax %>" <% end if %>></td>
</tr>
<tr align="center">
<td class="tx" colspan="3">Other Requirements: (optional)<br>
<textarea name="notes" cols="45" rows="6"><% if not(fax="blank") then %><%=notes %><% end if %></textarea></td>
</tr>
<tr align="center">
<td class="style1" colspan="3">As soon as we receive your request, we will process it quickly, <br>
and after a few hours you'll receive an e-mail confirmation of the room availability<br>
and the confirmed price for the room.</td>
</tr>
<tr align="center">
<td class="tx" colspan="3">
<input type="submit" name="Submit" value="Send request">
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#99CCFF">
<td height="20" colspan="2"><div align="center" class="style1">| <a href="/index.htm">Home</a> | <a href="/china_hotels.htm">Hotels</a> | <a href="/china_briefing.htm">Briefing</a> | <a href="/china_business.htm">Business</a> | <a href="/china_culture.htm">Culture</a> | <a href="/china_economy.htm">Economy</a> | <a href="/china_market.htm">Market</a> | <a href="/china_travel.htm">Travel</a> | <a href="/china_tourism.htm">Tourism</a> | </div></td>
</tr>
<tr>
<td height="20" colspan="2"><div align="center" class="style1"> Copyright (C)2005 China Hotels Reservation All rights reserved </div></td>
</tr>
</table>
</div>
</body>
</html>