<%@ Language="VBScript"%> <% ' Declare variables Dim iPageSize 'How big our pages are Dim strPageCount 'The number of pages we get back Dim strRecordCount 'The number of records returned Dim strPageCurrent 'The page we want to show Dim strSql 'SQL select to limit fields Dim conn 'The connection object Dim rs 'The recordset object Dim x 'Standard looping var Dim strSqlWhere Dim strSqlGroupBy Dim strSqlOrderBy Dim strSearchCriteria Dim strSearchSort Dim strSearch_authorize Dim strSearch_property Dim srtErrMsg Dim ConnString Dim strBackURL Dim strForwardURL Dim strFirstURL Dim strLastURL Dim strNumPages Dim strOrderBy_authorize Dim strOrderBy_property Dim ID ID = CStr(Request("ID")) ' using a DSN-less connection. ConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("data\gsi.mdb") 'set page size iPageSize = 75 If Request("page") = "" Then strPageCurrent = 1 Else strPageCurrent = CInt(Request("page")) End If ' default sql statements strSql = "SELECT time_stamp, file_url, authorize, subdate, property, management, propaddress, city, state, zip, phone, fax, website, guestrooms, auditmanager, title, email, quest01, quest02, quest03, quest04, quest05a, quest05b, quest05c, quest05d, quest05e, quest05f, quest06, quest07a, quest07b, quest08a, quest08b, quest09a, quest09b, quest10a, quest10b, quest10c, quest11a, quest11b, quest11c, quest12, quest13, quest14, quest15, quest16, quest17, quest18, quest19a, quest19b, quest19c, quest19d, quest20a, quest20b, quest20c, quest21, quest22, quest23, quest24, quest25, additionalinfo, disclaimer, pointtotal, modgrandtotal, percentagescore " strSql = strsql & "FROM survey" strSqlWhere = " WHERE ID =" & ID ' strSqlGroupBy = " GROUP BY time_stamp, file_url, authorize, subdate, property, management, propaddress, city, state, zip, phone, fax, website, guestrooms, auditmanager, title, email, quest01, quest02, quest03, quest04, quest05a, quest05b, quest05c, quest05d, quest05e, quest05f, quest06, quest07a, quest07b, quest08a, quest08b, quest09a, quest09b, quest10a, quest10b, quest10c, quest11a, quest11b, quest11c, quest12, quest13, quest14, quest15, quest16, quest17, quest18, quest19a, quest19b, quest19c, quest19d, quest20a, quest20b, quest20c, quest21, quest22, quest23, quest24, quest25, additionalinfo, disclaimer, pointtotal, modgrandtotal, percentagescore " strSqlOrderBy = "" ' default back and forward URLs strBackURL = "index.asp?page=" & strPageCurrent - 1 strForwardURL = "index.asp?page=" & strPageCurrent + 1 strSearch_authorize = CStr(Request("authorize")) strSearch_property = CStr(Request("property")) strSearchSort = CStr(Request("sortby")) strSearchStartPage = "index.asp" If len (strSearchSort) > 0 Then strSqlOrderBy = " Order by " & strSearchSort End If If strSearchSort = "authorize asc" Then strOrderBy_authorize = "index.asp?sortby=authorize desc" Else strOrderBy_authorize = "index.asp?sortby=authorize asc" End If If strSearchSort = "property asc" Then strOrderBy_property = "index.asp?sortby=property desc" Else strOrderBy_property = "index.asp?sortby=property asc" End If strBackURL = strBackURL & "&sortby=" & strSearchSort & "&authorize" & strSearch_authorize & "&property" & strSearch_property strForwardURL = strForwardURL & "&sortby=" & strSearchSort & "&authorize" & strSearch_authorize & "&property" & strSearch_property strOrderBy_authorize = strOrderBy_authorize& "&authorize" & strSearch_authorize & "&property" & strSearch_property strOrderBy_property = strOrderBy_property& "&authorize" & strSearch_authorize & "&property" & strSearch_property 'Open the connection string Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString set cmd = server.CreateObject("adodb.command") set cmd.ActiveConnection = conn ' set where and order by clauses if necessary strSql = strSql & strSqlWhere & strSqlGroupBy If len(strSqlOrderBy) > 0 Then strSql = strSql & strSqlOrderBy End If 'Response.Write ("
" & strSql & "
") With cmd .CommandType = adCmdText .CommandText = strSQL End With Set rs = Server.CreateObject("ADODB.Recordset") ' Set cursor location and pagesize rs.CursorLocation = adUseClient rs.PageSize = iPageSize ' Open Recordset object and rs.Open cmd 'Disconnect from database cmd.ActiveConnection = nothing Set conn = Nothing If (rs.eof and rs.bof) Then 'No Data rs.Close Set rs = Nothing %> No Data Available...
 
There is no data available for your search selection.

<% Response.Flush Response.End End If ' Get the count of the pages using the given page size strPageCount = rs.PageCount strRecordCount = rs.RecordCount strCurrentPageMinRecord = strPageCurrent * iPageSize - (iPageSize -1) strCurrentPageMaxRecord = strPageCurrent * iPageSize If strRecordCount < strCurrentPageMaxRecord Then strCurrentPageMaxRecord = strRecordCount strFirstURL = "index.asp?page=1" strLastURL = "index.asp?page=" & strPageCount ' If the request page falls outside the range, ' give them the closest match (1 or max) If 1 > strPageCurrent Then strPageCurrent = 1 If strPageCurrent > strPageCount Then strPageCurrent = strPageCount ' Move to the selected page rs.AbsolutePage = strPageCurrent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''' Error on line above with empty recordset ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> Green Suites International
 
This is your Green Suites Certified Green Hotel selection:

 
<% Dim leaf_rating if rs("percentagescore") >= 90 then leaf_rating="4leaf.gif WIDTH=64 HEIGHT=17" end if if rs("percentagescore") >= 75 AND rs("percentagescore") <= 89 then leaf_rating="3leaf.gif WIDTH=48 HEIGHT=17" end if if rs("percentagescore") >= 50 AND rs("percentagescore") <= 74 then leaf_rating="2leaf.gif WIDTH=32 HEIGHT=17" end if if rs("percentagescore") >= 25 AND rs("percentagescore") <= 49 then leaf_rating="1leaf.gif WIDTH=16 HEIGHT=17" end if if rs("percentagescore") <= 24 then leaf_rating="0leaf.gif WIDTH=16 HEIGHT=17" end if %>
<%=rs("property")%>

>
<%=rs("propaddress")%>
<%=rs("city")%>, <%=rs("state")%>   <%=rs("zip")%>		          Phone: 
Fax: 		 <%=rs("phone")%>
<%=rs("fax")%>
<% If (rs("website") <> "") Then Response.Write " 
Website: " & rs("website") & "
" End If %>  
Number of Guest Rooms: <%=rs("guestrooms")%>

Environmental Issues Implemented

<% If (rs("quest01") = "YES") Then Response.Write "" End If If (rs("quest02") = "YES") Then Response.Write "" End If If (rs("quest03") = "YES") Then Response.Write "" End If If (rs("quest04") = "YES") Then Response.Write "" End If If (rs("quest05a") = "YES") Then Response.Write "" End If If (rs("quest05b") = "YES") Then Response.Write "" End If If (rs("quest05c") = "YES") Then Response.Write "" End If If (rs("quest05d") = "YES") Then Response.Write "" End If If (rs("quest05e") = "YES") Then Response.Write "" End If If (rs("quest05f") = "YES") Then Response.Write "" End If If (rs("quest06") = "YES") Then Response.Write "" End If If (rs("quest07a") = "YES") Then Response.Write "" End If If (rs("quest07b") = "YES") Then Response.Write "" End If If (rs("quest08a") = "YES") Then Response.Write "" End If If (rs("quest08b") = "YES") Then Response.Write "" End If If (rs("quest09a") = "YES") Then Response.Write "" End If If (rs("quest09b") = "YES") Then Response.Write "" End If If (rs("quest10a") = "YES") Then Response.Write "" End If If (rs("quest10b") = "YES") Then Response.Write "" End If If (rs("quest10c") = "YES") Then Response.Write "" End If If (rs("quest11a") = "YES") Then Response.Write "" End If If (rs("quest11b") = "YES") Then Response.Write "" End If If (rs("quest11c") = "YES") Then Response.Write "" End If If (rs("quest12") = "YES") Then Response.Write "" End If If (rs("quest13") = "YES") Then Response.Write "" End If If (rs("quest14") = "YES") Then Response.Write "" End If If (rs("quest15") = "YES") Then Response.Write "" End If If (rs("quest16") = "YES") Then Response.Write "" End If If (rs("quest17") = "YES") Then Response.Write "" End If If (rs("quest18") = "YES") Then Response.Write "" End If If (rs("quest19a") = "YES") Then Response.Write "" End If If (rs("quest19b") = "YES") Then Response.Write "" End If If (rs("quest19c") = "YES") Then Response.Write "" End If If (rs("quest20a") = "YES") Then Response.Write "" End If If (rs("quest20b") = "YES") Then Response.Write "" End If If (rs("quest20c") = "YES") Then Response.Write "" End If If (rs("quest21") = "YES") Then Response.Write "" End If If (rs("quest22") = "YES") Then Response.Write "" End If If (rs("quest23") = "YES") Then Response.Write "" End If If (rs("quest24") = "YES") Then Response.Write "" End If If (rs("quest25") = "YES") Then Response.Write "" End If If (rs("additionalinfo") <> "") Then Response.Write "" End If %>
  • Environmental Committee which meets at least monthly
  • Has a written Environmental Policy
  • Offers employee incentives for carpooling or taking public transit
  • Offer “green rooms,” featuring over a dozen environmental products
  • Recycle plastic
  • Recycle glass
  • Recycle metals
  • Recycle paper
  • Recycle cardboard
  • Recycle cooking grease
  • Purchases facial and bathroom tissue with a minimum of 40% post consumer waste content
  • Have amenity dispensers in bathtub or shower
  • Have amenity dispensers in dispensers in vanity
  • Composts food scraps and grass clippings
  • Sends untouched food items to local shelters
  • Guest option to re-use towels
  • Guest option to re-use bed linens
  • Guest room showerheads are 1.5 gpm
  • Guest room showerheads are 2.0 gpm
  • Guest room showerheads are 2.5 gpm
  • Have established on/off schedules for energy controls
  • Have established programmable guestroom thermostats
  • Have established guest room occupancy sensors for energy controls
  • Installed double-paned or other windows insulation
  • Have L.E.D. (light emitting diode) exit signs
  • Have compact fluorescent, L.E.D., or other low wattage lighting in 70% or more of their common area
  • Have installed compact fluorescent lighting in guest rooms
  • Have replaced T-12 fluorescent lamps with T-8 lamps and electronic ballasts
  • Provide night lights in guest rooms
  • HVAC systems EPA Energy Star approved
  • Have installed 1.6 gallon toilets
  • Have installed early closure toilet flappers
  • Have installed toilet diverter valves
  • Use indigenous landscaping
  • Use drip irrigation
  • Reclaim water
  • Gardens organically, without the use of pesticides, herbicides and synthetic fertilizers
  • Uses cleaning chemicals that have a MSDS health rating of “1” or less and/or are Green Seal certified
  • Guarantees guests a non-smoking room
  • Uses indoor paints with low or zero VOC (volatile organic compounds) or Green Seal certified
  • Has reduced or replaced chlorine usage in swimming pools and fountains
    •  
    Additional Environmental Initiatives, Strategies and Policies
    <%=rs("additionalinfo")%>

     

     
    <% ' Close all objects and clear from Memory rs.Close Set rs = Nothing %>