Back to Hotels  <% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %> ">Edit  <% End If %> <% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %> ">Delete  <% End If %>

" target="PromoteFirefoxWindow" onclick="openRequestedPopup(this.href, this.target); return false;" title="Quote Request" rel="gb_page_fs[]" >

<% Response.Write x_HotelName %>

<% If Not IsNull(x_HotelCategory) Then sSqlWrk = "SELECT `HotelCategory` FROM `hotelcategory`" sTmp = x_HotelCategory sSqlWrk = sSqlWrk & " WHERE `HotelCategory` = '" & AdjustSql(sTmp) & "'" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then sTmp = rswrk("HotelCategory") End If rswrk.Close Set rswrk = Nothing Else sTmp = Null End If ox_HotelCategory = x_HotelCategory ' Backup Original Value x_HotelCategory = sTmp %> <% Response.Write x_HotelCategory %> <% x_HotelCategory = ox_HotelCategory ' Restore Original Value %>

<% If Not IsNull(x_Governorate) Then sSqlWrk = "SELECT `Governorate` FROM `governorate`" sTmp = x_Governorate sSqlWrk = sSqlWrk & " WHERE `Governorate` = '" & AdjustSql(sTmp) & "'" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then sTmp = rswrk("Governorate") End If rswrk.Close Set rswrk = Nothing Else sTmp = Null End If ox_Governorate = x_Governorate ' Backup Original Value x_Governorate = sTmp %> <% Response.Write x_Governorate %> <% x_Governorate = ox_Governorate ' Restore Original Value %>

Hotel Description

<%= Replace(x_HotelDescription&"", vbLf, " ") %>

Nearby Sightseeing

<%= Replace(x_NearbySightseeing&"", vbLf, "") %>

Hotel Facilities

<% ar_x_HotelFacilities = split(x_HotelFacilities&"",",") If Not IsNull(x_HotelFacilities) Then sSqlWrk = "SELECT `HotelFacilities` FROM `hotelfacilities`" sWhereWrk = "" For ari_x_HotelFacilities = 0 to UBound(ar_x_HotelFacilities) sTmp = Trim(ar_x_HotelFacilities(ari_x_HotelFacilities)) sWhereWrk = sWhereWrk & "`HotelFacilities` = '" & AdjustSql(sTmp) & "' OR " Next If Len(sWhereWrk) > 4 Then sWhereWrk = Mid(sWhereWrk, 1, Len(sWhereWrk)-4) If sWhereWrk <> "" Then sWhereWrk = "(" & sWhereWrk & ")" If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk End If sTmp = "" Set rswrk = conn.Execute(sSqlWrk) rowcntwrk = 0 Do While Not rswrk.Eof sTmp = sTmp & rswrk("HotelFacilities") sTmp1 = ViewOptionSeparator(rowcntwrk) ' Separate Options sTmp = sTmp & sTmp1 rowcntwrk = rowcntwrk + 1 rswrk.MoveNext Loop If Len(sTmp) > 0 Then sTmp = Mid(sTmp, 1, Len(sTmp)-Len(sTmp1)) rswrk.Close Set rswrk = Nothing Else sTmp = Null End If %> <% ox_HotelFacilities = x_HotelFacilities ' Backup Original Value x_HotelFacilities = sTmp %> <% Response.Write x_HotelFacilities %> <% x_HotelFacilities = ox_HotelFacilities ' Restore Original Value %>

Room Facilities

<% ar_x_RoomFacilities = split(x_RoomFacilities&"",",") If Not IsNull(x_RoomFacilities) Then sSqlWrk = "SELECT `RoomFacilities` FROM `roomfacilities`" sWhereWrk = "" For ari_x_RoomFacilities = 0 to UBound(ar_x_RoomFacilities) sTmp = Trim(ar_x_RoomFacilities(ari_x_RoomFacilities)) sWhereWrk = sWhereWrk & "`RoomFacilities` = '" & AdjustSql(sTmp) & "' OR " Next If Len(sWhereWrk) > 4 Then sWhereWrk = Mid(sWhereWrk, 1, Len(sWhereWrk)-4) If sWhereWrk <> "" Then sWhereWrk = "(" & sWhereWrk & ")" If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk End If sTmp = "" Set rswrk = conn.Execute(sSqlWrk) rowcntwrk = 0 Do While Not rswrk.Eof sTmp = sTmp & rswrk("RoomFacilities") sTmp1 = ViewOptionSeparator(rowcntwrk) ' Separate Options sTmp = sTmp & sTmp1 rowcntwrk = rowcntwrk + 1 rswrk.MoveNext Loop If Len(sTmp) > 0 Then sTmp = Mid(sTmp, 1, Len(sTmp)-Len(sTmp1)) rswrk.Close Set rswrk = Nothing Else sTmp = Null End If %> <% ox_RoomFacilities = x_RoomFacilities ' Backup Original Value x_RoomFacilities = sTmp %> <% Response.Write x_RoomFacilities %> <% x_RoomFacilities = ox_RoomFacilities ' Restore Original Value %>

<% If Not IsNull(x_Photo1) Then %> <% End If %> <% If Not IsNull(x_Photo2) Then %> <% End If %> <% If Not IsNull(x_Photo3) Then %> <% End If %> <% If Not IsNull(x_Photo4) Then %> <% End If %> <% If Not IsNull(x_Photo5) Then %> <% End If %> <% If Not IsNull(x_Photo6) Then %> <% End If %>

" target="PromoteFirefoxWindow" onclick="openRequestedPopup(this.href, this.target); return false;" title="Quote Request" rel="gb_page_fs[]" >

 

 

<% conn.Close ' Close Connection Set conn = Nothing %><% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim rs, sSql, sFilter sFilter = ewSqlKeyWhere If Not IsNumeric(x_HotelID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@HotelID", AdjustSql(x_HotelID)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_HotelID = rs("HotelID") x_HotelLogo = rs("HotelLogo") x_HotelName = rs("HotelName") x_HotelCategory = rs("HotelCategory") x_Governorate = rs("Governorate") x_BtriefLocation = rs("BtriefLocation") x_HotelDescription = rs("HotelDescription") x_Photo1 = rs("Photo1") x_Photo2 = rs("Photo2") x_Photo3 = rs("Photo3") x_Photo4 = rs("Photo4") x_Photo5 = rs("Photo5") x_Photo6 = rs("Photo6") x_NearbySightseeing = rs("NearbySightseeing") x_HotelFacilities = rs("HotelFacilities") x_RoomFacilities = rs("RoomFacilities") x_RoomCategory = rs("RoomCategory") x_RoomFacilitiesCategory = rs("RoomFacilitiesCategory") x_RoomFacilitiesSubcategory = rs("RoomFacilitiesSubcategory") End If rs.Close Set rs = Nothing End Function %>