<% @ 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 [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.

" response.write "'Map' indicates the location on the Annandale Summer Guide map.
'Expo' indicates registration has been received for next Expo (applicable after about March 15th for that year's Expo.)

" response.write "This is the Alphabetical listing...Click here for category grouped listing." response.write "
back" dim mt mt=date() '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 "" response.write "" ' response.write "

Company

Contact

Address

Mailing

Phone

Fax

E-mail

Web

Map

Expo

" 'response.write "" 'objIT = rs("Item Type") Dim ct ct = 0 do while not rs.eof ' if rs("active") = True then ct = ct + 1 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" if (date() >= #3/1# and date() <= #4/21#) then if rs("Expo") = "True" then response.write "" else response.write "" end if else response.write "" end if response.write "" ' end if rs.MoveNext loop rs.Close 'Clean Up 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") & "

" & rs("mapcor") & "

Yes

see note