<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsRateInfo__MMColParam rsRateInfo__MMColParam = "1" If (Request.QueryString("RateName") <> "") Then rsRateInfo__MMColParam = Request.QueryString("RateName") End If %> <% Dim rsRateInfo Dim rsRateInfo_numRows Set rsRateInfo = Server.CreateObject("ADODB.Recordset") rsRateInfo.ActiveConnection = MM_connHarrisburgWest_STRING rsRateInfo.Source = "SELECT RateName, RateStartDate, RateEndDate, Rate1, Rate1Desc, Rate2, Rate2Desc, Rate3, Rate3Desc, Rate4, Rate4Desc, ShortDesc, LongDesc FROM tblRates WHERE RateName = '" + Replace(rsRateInfo__MMColParam, "'", "''") + "'" rsRateInfo.CursorType = 0 rsRateInfo.CursorLocation = 2 rsRateInfo.LockType = 1 rsRateInfo.Open() rsRateInfo_numRows = 0 %> Make Reservations at Harrisburg West Inn & Conference Center
 
<%=(rsRateInfo.Fields.Item("RateName").Value)%>
Below you will find specific information about the particular rates.
Dates Of Special Rates
Long Description
<%=(rsRateInfo.Fields.Item("RateStartDate").Value)%>-<%=(rsRateInfo.Fields.Item("RateEndDate").Value)%>
<%=(rsRateInfo.Fields.Item("LongDesc").Value)%>
Price Rate 1
<%= FormatCurrency((rsRateInfo.Fields.Item("Rate1").Value), 2, -2, -2, -2) %>
  Rate 1 Description
<%=(rsRateInfo.Fields.Item("Rate1Desc").Value)%>
Price Rate 2
<%= FormatCurrency((rsRateInfo.Fields.Item("Rate2").Value), 2, -2, -2, -2) %>
  Rate 2 Description
<%=(rsRateInfo.Fields.Item("Rate2Desc").Value)%>
Price Rate 3
<%= FormatCurrency((rsRateInfo.Fields.Item("Rate3").Value), 2, -2, -2, -2) %>
  Rate 3 Description
<%=(rsRateInfo.Fields.Item("Rate3Desc").Value)%>
Price Rate 4
<%= FormatCurrency((rsRateInfo.Fields.Item("Rate4").Value), 2, -2, -2, -2) %>
  Rate 4 Description
<%=(rsRateInfo.Fields.Item("Rate4Desc").Value)%>
 
 
<% rsRateInfo.Close() Set rsRateInfo = Nothing %>