<% Option Explicit Response.Buffer = True %> <% Const adCmdText = &H0001 Dim query, connStr query = "select * from comm" connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("shelbygas.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, connStr, 3, , adCmdText Dim intRnd Randomize Timer intRnd = (Int(RND * rs.RecordCount)) rs.Move intRnd %>

Select a Service:  Residential  Commercial  Duct Cleaning  R.S.V.P.		We are committed to providing quality products and services to you, our customer. You have our personal guarantee that Shelby Air-Conditioning and Heating will meet or exceed your expectations. Please select the service that best suits your needs from the menu at the left.		"> "> Contact Info: 1340 N. Michigan Rd. Shelbyville, IN 46176 1-800-845-4434 317-392-2013

Copyright © <%Response.Write(Year(Date))%> Shelby Air-Conditioning & Heating. All Rights Reserved.	Site Development | Flynn Media

<% rs.Close Set rs = Nothing %>