<% Response.Buffer = True %> Welcome to: E & L Service, Inc.
E & L Service, Inc.

Employment
Opportunities

810-664-8811

 Hours of Service 
Repair Service
8 AM - 5:30 PM
Mon - Fri
Towing & Recovery
24 / 7 / 365
Vehicle Release
8 AM - 5:30 PM
Mon - Fri
8 AM - 3 PM
Saturday


<% Dim gsRootURL Dim gsCommand gsRootURL = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME") gsCommand = UCase(Trim(Request.QueryString("CMD"))) If Len(Trim(gsCommand)) = 0 Then gsCommand = "INTRO" End If Select Case gsCommand Case "VIEW": DisplayPhotos Case "INTRO": DoIntroPage Case Else DoIntroPage End Select %>

Welcome to the photo gallery.

 

E & L Service Fleet
.


ACCIDENTS E & L HAS HELPED CLEAN-UP

.


All Site Design & Contents © 2000 E & L Service, Inc. All Rights Reserved.
Question or Trouble With This Web Site? Please Email: webmaster@eandlservice.com
Back to the homepage. Company History Auto & Truck Repair Towing & Recovery Photo Album Contact Information <% Sub DoIntroPage %> <% End Sub Sub DisplayPhotos Dim sGallery Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var ' Get parameters iPageSize = 4 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If sGallery = Trim(Request.QueryString("TYPE")) If Len(sGallery) = 0 Then sGallery = "Accidents" End If sqlString = "SELECT * FROM Pictures WHERE Gallery = " & SQLStr(sGallery) & " ORDER BY PicGroup ASC, PicOrder ASC, ID ASC" Set gobjConn = Server.CreateObject("ADODB.Connection") gobjConn.Open "DSN=eandlservice;" Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = iPageSize rs.CacheSize = iPageSize rs.Open sqlString, gobjConn, adOpenStatic, adLockReadOnly, adCmdText ' Get the count of the pages using the given page size iPageCount = rs.PageCount ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "No photos found!" Else ' Move to the selected page rs.AbsolutePage = iPageCurrent ' Start output with a page x of n line %> <% End Sub %>