<% ' Set Connection Params dim mySQL Set oConn = Server.CreateObject("ADODB.connection") oConn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverID=790;" & _ "DBQ=D:\websites\tunstallfd\pers\members.xls;" & _ "DefaultDir=D:\websites\tunstallfd\pers\" Set RS=Server.CreateObject("ADODB.recordset") Set RS2=Server.CreateObject("ADODB.recordset") ' Write the SQL Query RS.open "SELECT * FROM members AND ORDER BY UnitN;", oConn RS2.open "SELECT Count(*) AS intTotal FROM members", oConn 'RS2.open "SELECT count(DISTINCT namedesc) AS intTotal FROM range", oConn 'RS2.open "Select Count(*) from (SELECT DISTINCT namedesc From range) As q", oConn ' Display result 'response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 'response.write "

Picture	First Name	Last Name	Unit	Title	Date Joined	Life Member	FF	EMT	EMT-E	EMT-I	EMT-P	Instructor

" 'do until RS.EOF while not rs.eof 'response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 'Response.Write ( RS("namedesc") & " -- " & RS("race") & " -- " & RS("sex") & " -- " & RS("age") & " -- " & RS("wa_chrg") & " -- " & RS("fel_misd") & " -- " & RS("streetnbr") & " -- " & RS("street") & " -- " & RS("apt_flr") & " -- " & RS("city") & " -- " & RS("state") & " -- " & RS("zip") & "
" & "") 'RS.movenext 'Loop rs.movenext wend 'response.write "" response.write "" response.write "

" response.write ( RS("Pic")) 'response.write "" response.write " " 'response.write "" response.write "

" response.write ( RS("FirstN")) response.write " " response.write "

" Response.Write ( RS("LastN")) response.write " " response.write "

" Response.Write ( RS("UnitN")) response.write " " response.write "

" Response.Write ( RS("Title")) response.write "

" Response.Write ( RS("DateJ")) response.write "

" response.Write ( RS("LifeM")) response.write " " response.write "

" Response.Write ( RS("FF")) response.write " " response.write "

" Response.Write ( RS("EMT")) response.write " " response.write "

" response.Write ( RS("EMTE")) response.write " " response.write "

" response.Write ( RS("EMTI")) response.write " " response.write "

" response.Write ( RS("EMTP")) response.write " " response.write "

" response.Write ( RS("Instructor")) response.write " " response.write "

" response.write "" 'response.write "This information taken from warrants on file with the Pittsylvania County Sheriff's Office.
" 'response.write "This page last updated March 11th, 2008." 'Close the recordset/connection RS.Close RS2.Close oConn.Close Set RS = Nothing Set RS2 = Nothing %> <% Dim fs,f Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile("D:/websites/tunstallfd/pers/members.xls") 'Response.Write("This information taken from warrants on file with the Pittsylvania County Sheriff's Office as of: " & f.DateCreated) Response.Write("This information is current as of: " & f.DateLastModified) set f=nothing set fs=nothing %>