Udregner procent til 35% uanset hvad
Hej eksperter!Jeg skal lave et system der kan udskrive hvor mange procent at brugerne der har svaret følgende svar, men hvert svar bliver hentet fra en database og divideret med antal svar i alt til spørgsmål... Jeg har følgende kode:
<%
' Her finder den svarmulighederne til spørgsmålet
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/database.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM dropdown WHERE questionId=" & rs("id") & " ORDER BY dropdownText ASC "
rs1.Open Addera, Connect, 3, 3
if rs1.eof then
response.write("<tr><td width'270' height='20'> - Der er i øjeblikket ikke tilføjet nogen spørgsmål!</td></tr>")
else
do until rs1.eof
' Her taeller den hvor mange svar der er tilfojet til dette svar
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/database.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM answers WHERE answer='"&rs1("dropdownText")&"' AND questionId=" & rs("id")
rs2.Open Addera, Connect, 3, 3
dropAnswers = rs2.recordcount
' Regner procent
if dropAnswers = "0" then
calc_answers = "0"
calc_answers_2dec = "0"
else
calc_answers = dropAnswers / answers * 100
calc_answers_2dec = formatnumber(calc_answers, 2, 0)
calc_answers = formatnumber(calc_answers, 0, 0)
end if
%>
<tr>
<td width="270"> - <%=rs1("dropdownText")%></b> (<%=response.write(ialt)%>)</td>
<td style="width:40px;text-align:right;"><%=dropAnswers%> hits</td>
<td style="width:220px;text-align:right;"><div style="width:200px;float:right;border-left: 1px solid #CCCCCC; border-right: 1px solid #CCCCCC; border-top: 1px solid #CCCCCC"><div style="z-index:1;position:relative;left:0px;float:left;color:#666666;"> <%=calc_answers_2dec%> %</div><div style="z-index:2;position:relative;right:0px;background-color:#DDDDDD;background-position:top right;width:<%=calc_answers%>%;"></div></div></td>
</tr>
<%
rs1.movenext
loop
end if
rs1.close
%>
