|
<%
'option explicit
'Response.Buffer = False
'Response.CacheControl = "private"
Dim intVoteId
Dim strVoteQuestion
Dim strChoice
Dim IntQuestionId
Dim strConnection
Dim adoLatestId
Dim Conn
Dim adoChoice
Dim SqlSelectTopIdViaDate
Dim SqlFormDataChoice
%>
<%
Set adoLatestId = Server.CreateObject("ADODB.Recordset")
Sub Display_Poll()
' SqlSelectTopIdViaDate = "select top 1 a.* from vote_questions as a order by a.datecaptured desc"
'Mysql query
SqlSelectTopIdViaDate = "select * from vote_questions as a order by a.datecaptured desc LIMIT 0,1;"
Set adoLatestId = Conn.Execute(SqlSelectTopIdViaDate)
If not adoLatestId.EOF then
IntQuestionId = adoLatestId("VoteId")
strVoteQuestion = adoLatestId("VoteQuestion")
end if
adoLatestId.Close()
set adoLatestId = nothing
SqlFormDataChoice = "select a.*"
SqlFormDataChoice = SqlFormDataChoice & " from vote_choices as a "
SqlFormDataChoice = SqlFormDataChoice & "where a.voteId = "&trim(IntQuestionId)&""
set adoChoice = Conn.Execute(SqlFormDataChoice)
If not adoChoice.EOF Then
%>
<%
End If
adoChoice.Close()
set adoChoice = nothing
End Sub
call Display_Poll()
%>
<%
' Conn.Close
' set conn = nothing
%>
|