Cascas Poll

Skulle behöva hjälp med en sak..
Fick en poll av casca igår, fast den har bara 2 svarsaltenatiiv, jag vill ha 6, hur ska den se då se ut?

<!-- #include file="adovbs.inc" -->

<% IF Session("voted") = "ja" Then %>
<%
Dim Path, Ja, Nej, Totalt, ProcJa, ProcNej
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vote.mdb") & ";pwd=lösenordet;"

SQL = "SELECT * FROM poll ORDER BY id DESC"
objRec.Open SQL, objConn, adOpenStatic, adLockOptimistic

Totalt = objRec("Ja") + objRec("Nej")
ProcJa = objRec("Ja") / Totalt * 100
ProcNej = objRec("Nej") / Totalt * 100

%>
<table width="200" border="0" cellspacing="1" cellpadding="0" class="sprit">
<tr><td colspan="3">What clan will win STC?</td></tr>
<tr><td width="30" height="10"><b>Ja:</td><td width="100" bgcolor="#eeeeee"><img src="ja.gif" height="100%" width="<%=ProcJa%>%"></td><td width="70">&nbsp;<%=ProcJa%> % (<%=objRec("Ja")%> )</td></tr>
<tr><td width="30"><b>Nej:</td><td width="100" bgcolor="#eeeeee"><img src="nej.gif" height="100%" width="<%=ProcNej%>%"></td><td width="70">&nbsp;<%=ProcNej%> % (<%=objRec("Nej")%> )</td></tr>
<tr><td colspan="3"><b>Totalt:</b> <%=Totalt%> röster</td></tr>
</table>
<%
objRec.Close
objConn.Close
Set objConn = nothing
Set objRec = nothing
%> 
<% Else %>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vote.mdb") & ";pwd=lösenordet;"

SQL = "SELECT * FROM poll ORDER BY id DESC"
objRec.Open SQL, objConn, adOpenStatic, adLockOptimistic

IF Request.Querystring("vote") = "ja" THEN
Ja = objRec("Ja")
objRec("Ja") = ja -- 1
objRec.Update
Session("voted") = "ja"
Session.TimeOut = "1000"
ELSEIF Request.Querystring("vote") = "nej" THEN
Nej = objRec("Nej")
objRec("Nej") = Nej -- 1
objRec.Update
Session("voted") = "ja"
Session.TimeOut = "1000"
ELSE
END IF

Totalt = objRec("Ja") + objRec("Nej")
ProcJa = Round(objRec("Ja") / Totalt * 100, 0)
ProcNej = Round(objRec("Nej") / Totalt * 100, 0)

%>

<table width="200" border="0" cellspacing="1" cellpadding="0" class="sprit">
<tr><td colspan="3">Drömmer du om en vit jul?</td></tr>
<tr><td width="30" height="10"><b><a href="voting.asp?vote=ja">Ja</a>:</td><td width="100"><img src="ja.gif" height="100%" width="<%=ProcJa%>%"></td><td width="70">&nbsp;<%=ProcJa%> % (<%=objRec("Ja")%> )</td></tr>
<tr><td width="30"><b><a href="voting.asp?vote=nej">Nej</a>:</td><td width="100"><img src="nej.gif" height="100%" width="<%=ProcNej%>%"></td><td width="70">&nbsp;<%=ProcNej%> % (<%=objRec("Nej")%> )</td></tr>
<tr><td colspan="3"><b>Totalt:</b> <%=Totalt%> röster</td></tr>
</table>   
<%
objRec.Close
objConn.Close
Set objConn = nothing
Set objRec = nothing
%>
<% End If %>

Databas:
id - ja - nej