Around The 'Nati - Business

<%@ Language=VBScript %> <% Const iWidth = 115 Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("/fpdb/poll.mdb") & ";" objConn.Open Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") 'Determine if this person has already voted today... Dim strVoted strVoted = Request.Cookies("Voted") Dim strSQL %> Around The 'Nati - Business

Business Directory | Discounts & Coupons | Events | Professional Organizations | Jobs

<% if strVoted = "Yes" then strSQL = "SELECT PollOption.PollOptionID, PollOption.QuestionText, PollOption.Votes, " & _ "Poll.PollQuestion " & _ "FROM Poll INNER JOIN PollOption ON Poll.PollID = PollOption.PollID " & _ "WHERE Poll.DateStart <= #" & Date & "# AND Poll.DateEnd >= #" & Date & "#;" objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly 'We need to create a dynamic array just big enough to hold all of our voting options Dim PollOptions() Redim PollOptions(objRS.RecordCount,2) Dim iCount, iTotalVotes, strPollName iCount = 0 iTotalVotes = 0 strPollName = CStr(objRS("PollQuestion")) Do While Not objRS.EOF PollOptions(iCount,1) = CInt(objRS("Votes")) PollOptions(iCount,2) = CStr(objRS("QuestionText")) iTotalVotes = iTotalVotes + PollOptions(iCount,1) iCount = iCount + 1 objRS.MoveNext Loop %>
align=center>

<%=strPollName%>

<% Dim iLoop For iLoop = 0 to iCount-1 %> <%=PollOptions(iLoop,2)%> (<%=FormatPercent(PollOptions(iLoop,1)/iTotalVotes,1)%>)

BGCOLOR=#660000>

<% Next %> Total Votes: <%=iTotalVotes%>

<% else strSQL = "SELECT PollOption.PollOptionID, PollOption.QuestionText, Poll.PollQuestion " & _ "FROM Poll INNER JOIN PollOption ON Poll.PollID = PollOption.PollID " & _ "WHERE Poll.DateStart <= #" & Date & "# AND Poll.DateEnd >= #" & Date & "#;" objRS.Open strSQL, objConn %>

<% end if %> <% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>

BUSINESS DISCOUNTS

Print out this page of discounts and reimburse them at the participating business. Don't forget to tell them that you heard it on AroundTheNati.com

ABC Shoppe Hair Salon

10% Off Discount First Visit

Not valid with other discounts. Offer expires 8/31/00.

AroundTheNati.com

Al's Dry Cleaning

$1.00 Dress Shirts

Not valid with other discounts. Offer expires 8/31/00.

AroundTheNati.com

Good Eats Restaurant

Buy One Entree Get One Free

Not valid with other discounts. Offer expires 8/31/00.

AroundTheNati.com

ABC Shoppe Hair Salon

10% Off Discount First Visit

Not valid with other discounts. Offer expires 8/31/00.

AroundTheNati.com