<%@LANGUAGE="VBSCRIPT"%> <% Const NUMBER_OF_IMAGES = 4 Randomize Dim intImageNumber intImageNumber = Int((NUMBER_OF_IMAGES * Rnd) + 1) %> <% set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_connTownSite_STRING rsEvents.Source = "SELECT dbo.tblCalendar.fID, dbo.tblCalendar.fDepartment, dbo.tblCalendar.fTitle, dbo.tblCalendar.fReport, dbo.tblCalendar.fMessage, dbo.tblCalendar.fDate, dbo.tblCalendar.fDate_Stop_Hold, dbo.tblCalendar.fApproved FROM dbo.tblCalendar WHERE (dbo.tblCalendar.fReport <> 'Yes') AND (dbo.tblCalendar.fApproved <> 'Hold') AND ((DATEDIFF(day, fDate_Stop_Hold, getdate()) >= 0) OR (fApproved = 'Yes')) AND (dbo.tblCalendar.fDate >= GetDate()) ORDER BY fDate ASC" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 3 rsEvents.Open() rsEvents_numRows = 0 %> <% set rsReports = Server.CreateObject("ADODB.Recordset") rsReports.ActiveConnection = MM_connTownSite_STRING rsReports.Source = "SELECT dbo.tblCalendar.fID AS calID, dbo.tblCalendar.fDepartment, dbo.tblCalendar.fTitle, dbo.tblCalendar.fReport, dbo.tblCalendar.fReport_ID, dbo.tblCalendar.fMessage, dbo.tblCalendar.fDate_Stop_Hold, dbo.tblCalendar.fApproved, dbo.tblReport_Titles.fPost_Until, dbo.tblReport_Titles.fDate_Released FROM dbo.tblCalendar LEFT OUTER JOIN dbo.tblReport_Titles ON dbo.tblCalendar.fReport_ID = dbo.tblReport_Titles.fID WHERE (dbo.tblCalendar.fReport = 'Yes') AND (dbo.tblCalendar.fApproved <> 'Hold') AND ((DATEDIFF(day, dbo.tblCalendar.fDate_Stop_Hold, getdate()) >= 0) OR (dbo.tblCalendar.fApproved = 'Yes')) AND (dbo.tblReport_Titles.fPost_Until >= GetDate()) ORDER BY dbo.tblReport_Titles.fDate_Released DESC" rsReports.CursorType = 0 rsReports.CursorLocation = 2 rsReports.LockType = 3 rsReports.Open() rsReports_numRows = 0 %> <% set rsSearchDepartments = Server.CreateObject("ADODB.Recordset") rsSearchDepartments.ActiveConnection = MM_connTownSite_STRING rsSearchDepartments.Source = "SELECT fName FROM dbo.tblDepartments WHERE fForms = 'Yes' OR fMeetings = 'Yes' OR fViscal = 'Yes' OR fFaqs = 'Yes' ORDER BY fName ASC" rsSearchDepartments.CursorType = 0 rsSearchDepartments.CursorLocation = 2 rsSearchDepartments.LockType = 3 rsSearchDepartments.Open() rsSearchDepartments_numRows = 0 %> <% set rsTopForms = Server.CreateObject("ADODB.Recordset") rsTopForms.ActiveConnection = MM_connTownSite_STRING rsTopForms.Source = "SELECT fViewed, fID, fDepartment, fTitle FROM dbo.tblForms WHERE (fApproved <> 'Hold') AND ((DATEDIFF(day,getdate(),fDate_Stop_Hold) < 0) OR (fApproved = 'Yes')) ORDER BY fViewed DESC" rsTopForms.CursorType = 0 rsTopForms.CursorLocation = 2 rsTopForms.LockType = 3 rsTopForms.Open() rsTopForms_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 6 Dim Repeat1__index Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 5 Dim Repeat2__index Repeat2__index = 0 rsTopForms_numRows = rsTopForms_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rsReports_numRows = rsReports_numRows + Repeat3__numRows %> Town of Mammoth Lakes - Official Web Site
 

 

 

Town of Mammoth Lakes Recycling Program  

1.  Town of Mammoth Lakes - for all recycling questions, please contact Michael Grossblatt, Personnel Director &  Assistant to the Town Manager, 760-934-8989 ext. 266
 
2.  Mammoth Disposal - for recycling questions related to the Mammoth Disposal Transfer Station, please contact Michelle Erwin, General Manager, 760-934-2201 ext. 23
 
3.  Sierra Conservation Project - for business, commercial, home, and residential recycling services, please contact Brian Robinette, Manager, 760-914-0115

 

©2003 Town of Mammoth Lakes

 Main Phone: 760-934-8989 • Fax: 760-934-8608
Location: 437 Old Mammoth Rd, (Minaret Shopping Center) Mammoth Lakes, CA, 93546
Mailing Address: PO Box 1609, Mammoth Lakes, CA, 93546
Questions or Comments: Contact the Webmaster Dan Dennis

 

 
<% rsEvents.Close() %> <% rsSearchDepartments.Close() %> <% rsTopForms.Close() %>