<% @ LANGUAGE="VBScript" %> <% 'Option Explicit Session.Abandon Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 on error resume next Dim strFileName Dim dtmLastModified Dim dtmLastModifiedDate Dim dtmLastModifiedTime dim objFileSystemObject dim objFile Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystemObject.GetFile(Server.MapPath("/fpdb/members.mdb")) dtmLastModified = objFile.DateLastModified Set objFile = Nothing Set objFileSystemObject = Nothing dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1) dtmLastModifiedTime = FormatDateTime(dtmLastModified, 4) Response.Write "(Current) Annandale Chamber Members Last Updated: " & (dtmLastModifiedDate & " at " & dtmLastModifiedTime) & "

" Dim objConn Dim objRS Dim strSQL Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adUseClient = 3 Const adCmdText = 1 Dim conn, rs, connString, qString, objIT connString = "Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.MapPath("/fpdb/members.mdb")&";Uid=Admin;Pwd=Admin;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open connString Set rs = Server.CreateObject("ADODB.RecordSet") 'strSQL= "SELECT * From members WHERE [Active] = True and [Post] = True ORDER by [category], [coname]" 'rs.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText response.write "Annandale Chamber of Commerce Home Page

" Response.Write".You can use CTRL+F to find certain keyword(s) on this page or select from these categories:
" strSQL= "SELECT DISTINCT members.Category FROM members" rs.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText response.write "This is the Category grouping... Click here for alphabetical listing. or here for the map grouping list." response.write "
back" dim lpcnt lpcnt = -1 response.write "" response.write "" do while not rs.eof lpcnt = lpcnt + 1 if lpcnt => 4 then lpcnt = 0 response.write "" end if response.write "" rs.movenext loop response.write "
" & rs("category") & "
" rs.close strSQL.Close strSQL = Nothing strSQL= "SELECT * From members WHERE [Active] = True and [Post] = True ORDER by [category], [coname]" rs.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText 'Show response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" ' response.write "
#CompanyContactAddressMailingPhoneFaxE-mailWeb

" 'response.write "" 'response.write "
" & rs("category") & "" response.write "
" & rs("category") & "" response.write "
" objIT = rs("category") Dim ct ct = 0 do while not rs.eof ct=ct+1 if UCase(objIT) = UCase(rs("category")) then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs.movenext else objIT = rs("category") response.write "
" & ct & "" & rs("coname") & "
" & rs("description") & "		" & rs("contact") & "" & rs("address") & "" & rs("ad2") & "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & "(" & left(rs("fax"),3) & ") " & Right(rs("fax"),7) & "" & rs("email") & "" & rs("website") & "
" response.write "
" & rs("category") & " Top index" 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.MoveNext end if loop rs.Close 'Clean Up rs=Nothing strSQL.Close strSQL = Nothing rs.Close set rs=nothing Conn.Close set Conn=nothing %>
" & ct & "" & rs("coname") & "
" & rs("description") & "		" & rs("contact") & "" & rs("address") & "" & rs("ad2") & "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & "(" & left(rs("fax"),3) & ") " & Right(rs("fax"),7) & "" & rs("email") & "" & rs("website") & "