" 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 "Company | " response.write "Address | " response.write "Mailing | " response.write "Phone | " response.write "Web | " ' response.write "
| " & ct & " | " response.write "" & rs("coname") & " " & rs("description") & " | "
response.write "" & rs("address") & " | " response.write "" & rs("ad2") & " | " response.write "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & " | " response.write "" & rs("email") & " | " response.write "" & rs("website") & " | " response.write "