<% @ 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 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 do while not rs.eof Response.Write"" & rs("maptype") & ", || " rs.movenext loop response.write "

This is the grouping as defined on the map... Click here for alphabetical listing. or here for the category listing." response.write "
back" rs.close strSQL.Close strSQL = Nothing strSQL= "SELECT * From members WHERE [Active] = True ORDER by [maptype], [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("maptype") & "" response.write "
" & rs("maptype") & "" response.write "
" objIT = rs("category") Dim ct ct = 0 do while not rs.eof ct=ct+1 if UCase(objIT) = UCase(rs("maptype")) 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("maptype") 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("maptype") & " 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") & "