<% strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) set rs = Server.CreateObject("ADODB.recordset") Dim Sql: Sql = "SELECT TOP 5 * from Vote_Questions;" set rs = conn.Execute(sql) Dim intVoteQuestionID 'rs("Voteid") Dim strQuestion 'rs("VoteQuestion") %>

VOTE HIGHLIGHTS <%While NOT rs.EOF%> <%=rs("VoteQuestion")%> )"> <% rs.MoveNext Wend rs.Close() set rs = nothing %>

<% Conn.Close set conn =nothing %>