<% @ 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 "Confirmed Annandale Expo Registrants 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 [Expo] = True and [Post] = True" rs.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText response.write "Annandale Chamber of Commerce Home Page

" response.write "The following businesses are confirmed for this year's Expo..." dim mt mt=date() if (date() >= #3/1# and date() <= #4/30#) then 'Show response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" ' response.write "
#CompanyAddressMailingPhoneE-mailWeb

" '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 "" ' end if rs.MoveNext loop rs.Close else response.write "This information is valid only for the upcoming Expo and is available after March 1st for the current year. Please check back later." end if 'Clean Up strSQL.Close strSQL = Nothing rs.Close set rs=nothing Conn.Close set Conn=nothing %>
" & ct & "" & rs("coname") & "
" & rs("description") & "		" & rs("address") & "" & rs("ad2") & "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & "" & rs("email") & "" & rs("website") & "