<% numID = clng(request.querystring("ID")) strSQL="SELECT * FROM tblPoll WHERE status = TRUE AND ID=" & numID set rsPoll = adoCon.execute(strSQL) if rsPoll.EOF then Response.Write "No Active Survey." rsPoll.close else strQuestion = rsPoll.fields("Question") rsPoll.close strSQL = "SELECT * FROM tblAnswers WHERE ID=" & numID set rsPoll = adoCon.execute(strSQL) %>
<%=strQuestion%>
">
<%=rsPoll.fields("Answer1")%>
<%=rsPoll.fields("Answer2")%>
<%=rsPoll.fields("Answer3")%>
<%=rsPoll.fields("Answer4")%>
 
','RESULTS','scrollbarsPoll=NO,width=180,height=450')">Results
Powered By ASP Poll
<% rsPoll.close End If SET rsPoll = nothing adoCon.close SET adoCon = Nothing %>