%@Language=VBScript%> <% option explicit %>
I am over the age of majority in my country: Yes No If you are below the age of majority in your country you may not vote for adult-rated material
Use the drop-down menus to cast your votes. You may vote once in each of the seven Voters' Choice categories. Check here for a list of eligible works
<% Dim oConn Dim oRS Dim iSeq Set oConn=Server.CreateObject("ADODB.connection") oConn.ConnectionTimeout=20 oConn.open "DSN=Viragene" Set oRS=Server.CreateObject("ADODB.recordset") %> Best LotR/The Hobbit ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where LotR = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Silmarillion ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Sil = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Character Piece ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Char = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Drama ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Drama = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Humour ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Humour = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Het ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Het = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close %> Best Slash ---------------------------------------------------------------------------------------------------------- <% oRS.open "Select * From VoterStory Where Slash = True Order By Title", oConn iSeq=0 while not oRS.EOF Response.Write "" & oRS("Title") & ", by " & oRS("Author") & "" oRS.MoveNext wend oRS.close Set oRS=nothing oConn.close Set oConn=nothing %>
Best LotR/The Hobbit
Best Silmarillion
Best Character Piece
Best Drama
Best Humour
Best Het
Best Slash
Check that you have filled in all your votes correctly BEFORE clicking submit! You may only vote once!
If you encounter errors when attempting to use this form, please e-mail the_espresso_addict@fireflyuk.net giving the text of the error message (cut & paste). This will facilitate fixing the problem