<%@LANGUAGE="VBSCRIPT"%> <% Dim rsSpecials__MMColParam rsSpecials__MMColParam = "4" if (Request.QueryString("EventCategory") <> "") then rsSpecials__MMColParam = Request.QueryString("EventCategory") %> <% Dim rsSpecials__CurDate rsSpecials__CurDate = "06/22/2002" if (Date <> "") then rsSpecials__CurDate = Date %> <% set rsSpecials = Server.CreateObject("ADODB.Recordset") rsSpecials.ActiveConnection = MM_CleaningCo_STRING rsSpecials.Source = "SELECT * FROM Events WHERE EventCategory = " + Replace(rsSpecials__MMColParam, "'", "''") + " and status = 'A' and EndDate >= #" + Replace(rsSpecials__CurDate, "'", "''") + "# and StartDate <= #" + Replace(rsSpecials__CurDate, "'", "''") + "# ORDER BY EndDate ASC" rsSpecials.CursorType = 0 rsSpecials.CursorLocation = 2 rsSpecials.LockType = 3 rsSpecials.Open() rsSpecials_numRows = 0 %> <% Dim rsCatagory__MMColParam rsCatagory__MMColParam = "1" if (Request.QueryString("EventCategory") <> "") then rsCatagory__MMColParam = Request.QueryString("EventCategory") %> <% set rsCatagory = Server.CreateObject("ADODB.Recordset") rsCatagory.ActiveConnection = MM_CleaningCo_STRING rsCatagory.Source = "SELECT * FROM tblCategories WHERE EventCategory = " + Replace(rsCatagory__MMColParam, "'", "''") + "" rsCatagory.CursorType = 0 rsCatagory.CursorLocation = 2 rsCatagory.LockType = 3 rsCatagory.Open() rsCatagory_numRows = 0 %> <% Dim rsGeneralSpecials__MM_General rsGeneralSpecials__MM_General = "General" if (General <> "") then rsGeneralSpecials__MM_General = General %> <% Dim rsGeneralSpecials__CurDate rsGeneralSpecials__CurDate = "06/22/2002" if (Date <> "") then rsGeneralSpecials__CurDate = Date %> <% set rsGeneralSpecials = Server.CreateObject("ADODB.Recordset") rsGeneralSpecials.ActiveConnection = MM_CleaningCo_STRING rsGeneralSpecials.Source = "SELECT * FROM Events inner join tblCategories on events.eventcategory = tblCategories.eventcategory WHERE tblCategories.CategoryName = '" + Replace(rsGeneralSpecials__MM_General, "'", "''") + "' and status = 'A' and EndDate >= #" + Replace(rsGeneralSpecials__CurDate, "'", "''") + "# and StartDate <= #" + Replace(rsGeneralSpecials__CurDate, "'", "''") + "#" rsGeneralSpecials.CursorType = 0 rsGeneralSpecials.CursorLocation = 2 rsGeneralSpecials.LockType = 3 rsGeneralSpecials.Open() rsGeneralSpecials_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsSpecials_numRows = rsSpecials_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rsGeneralSpecials_numRows = rsGeneralSpecials_numRows + Repeat2__numRows %> The Cleaning Company

<% If Not rsCatagory.EOF Or Not rsCatagory.BOF Then %> <%=(rsCatagory.Fields.Item("CategoryName").Value)%> <% End If ' end Not rsCatagory.EOF Or NOT rsCatagory.BOF %> Specials

 

<% If rsSpecials.EOF And rsSpecials.BOF Then %>

There are no <%=(rsCatagory.Fields.Item("CategoryName").Value)%> specials available at this time. Please call our office for your cleaning needs.

<% End If ' end rsSpecials.EOF And rsSpecials.BOF %> <% If Not rsSpecials.EOF Or Not rsSpecials.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsSpecials.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSpecials.MoveNext() Wend %> <% End If ' end Not rsSpecials.EOF Or NOT rsSpecials.BOF %>
<%=(rsSpecials.Fields.Item("EventName").Value)%> Special Ends: <%=(rsSpecials.Fields.Item("EndDate").Value)%>
 
<%=(rsSpecials.Fields.Item("EventDescription").Value)%>
     
<% If Not rsGeneralSpecials.EOF Or Not rsGeneralSpecials.BOF Then %>

General Specials

<% End If ' end Not rsGeneralSpecials.EOF Or NOT rsGeneralSpecials.BOF %> <% While ((Repeat2__numRows <> 0) AND (NOT rsGeneralSpecials.EOF)) %> <% If Not rsGeneralSpecials.EOF Or Not rsGeneralSpecials.BOF Then %> <% End If ' end Not rsGeneralSpecials.EOF Or NOT rsGeneralSpecials.BOF %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsGeneralSpecials.MoveNext() Wend %>
<%=(rsGeneralSpecials.Fields.Item("EventName").Value)%> Special Ends: <%=(rsGeneralSpecials.Fields.Item("EndDate").Value)%>
 
<%=(rsGeneralSpecials.Fields.Item("EventDescription").Value)%>
     

 
3805 Transportation Dr.
Fort Wayne, IN 46808
(260) 484-7283
(800) 399-2684
Fax (260) 471-5260
customerservice@thecleaningco.net
   
A Division of Building Maintenance Technologies, Incorporated
Visit Majestic Maids for your residential cleaning needs.
  
<% rsSpecials.Close() %> <% rsCatagory.Close() %> <% rsGeneralSpecials.Close() %>