webForumDet fria alternativet
Logga in / Bli medlem

Omröstningsproblem

2 svar · 141 visningar · startad av ReloadMaster

ReloadMasterMedlem sedan aug. 2001239 inlägg
#1

Hej,
jag skulle behöva ha hjälp med en omröstningskod
den skriver bara ut alternativen om dom har röster inte annars :/

<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("../omrostning/omrostning.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT TOP 1 * FROM omrostning ORDER BY ID DESC" 
RecSet.Open SQL, Conn

fraga = RecSet("fraga")

%>
<html>
<title>Cruel!</title>
<body bgcolor="#99CCFF" link="#000099">
<font face="verdana" size="1">
<b>Fråga: <%=fraga%></b>
<%
If RecSet.EOF Then
Response.Write"Det finns ingen omröstning"
Else

All	= RecSet("roster1")+RecSet("roster2")+RecSet("roster3")+RecSet("roster4")+RecSet("roster5")+RecSet("roster6")+RecSet("roster7")+RecSet("roster8")+RecSet("roster9")+RecSet("roster10")
		roster1	= RecSet("roster1")
		roster2	= RecSet("roster2")
		roster3	= RecSet("roster3")
		roster4	= RecSet("roster4")
		roster5	= RecSet("roster5")
		roster6	= RecSet("roster6")
		roster7	= RecSet("roster7")
		roster8	= RecSet("roster8")
		roster9	= RecSet("roster9")
		roster10	= RecSet("roster10")

Dim All, roster1, roster2, roster3, roster4, roster5, roster6, roster7, roster8, roster9, roster10, Procent1, Procent2, Procent3, Procent4, Procent5, Procent6, Procent7, Procent8, Procent9, Procent10

If All=0 Then
			Dim Procent
			Redim Procent(10)
			Procent(1) = 0
			Procent(2) = 0
			Procent(3) = 0
			Procent(4) = 0
			Procent(5) = 0
			Procent(6) = 0
			Procent(7) = 0
			Procent(8) = 0
			Procent(9) = 0
			Procent(10) = 0
Else
			Redim Procent(10)
			Procent(1) = (roster1/All)*100
			Procent(2) = (roster2/All)*100
			Procent(3) = (roster3/All)*100
			Procent(4) = (roster4/All)*100
			Procent(5) = (roster5/All)*100
			Procent(6) = (roster6/All)*100
			Procent(7) = (roster7/All)*100
			Procent(8) = (roster8/All)*100
			Procent(9) = (roster9/All)*100
			Procent(10) = (roster10/All)*100

End If
		
%>

<table border="0" cellpadding="0" cellspacing="0">

<%
Dim i
For i = 1 To RecSet("antal")

contr = Request.Cookies("voted")("check")
If cdbl(contr) = cdbl(RecSet("ID")) Then
%>
<tr>
<td><font face="verdana" size="1"><%=RecSet("svar" & i)%></font> &nbsp;</td>
<td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
</tr>
<%Else%>
<tr>
<td><a href="omrostning/omrostning_rosta.asp?id=<%=RecSet("ID")%>&alternativ=<%=i%>"><font face="verdana" size="1"><%=RecSet("svar" & i)%></font></a> &nbsp;</td>
<td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
</tr>

<%End If%>		

<% Next %>
</table>

<br>
Antal roster: <%=Alla%>

<%
End If
%>

</font>
</body>
</html>

<%
RecSet.Close 
Set RecSet = Nothing 
Conn.close 
Set Conn = Nothing 
%>

Tänkte tipsa om:
http://www.webforum.nu/showthread.php?s=&threadid=75926
där jag fortfarande inte fått något svar :/

Engine^Medlem sedan dec. 20003 887 inlägg
#2

Några små ändringar...

<%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../omrostning/omrostning.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT TOP 1 * FROM omrostning ORDER BY ID DESC" 
RecSet.Open SQL, Conn
%>
<html>
<title>Cruel!</title>
<body bgcolor="#99CCFF" link="#000099">
<font face="verdana" size="1">
<%
Dim All, contr, i, roster(11), Procent(11)

If RecSet.EOF Then
  Response.Write"Det finns ingen omröstning"
Else
  fraga = RecSet("fraga")
%>
<b>Fråga: <%=fraga%></b>
<%
  All = RecSet("roster1")+RecSet("roster2")+RecSet("roster3")+RecSet("roster4")+RecSet("roster5")
  All = All + RecSet("roster6")+RecSet("roster7")+RecSet("roster8")+RecSet("roster9")+RecSet("roster10")
  roster(1) = RecSet("roster1")
  roster(2) = RecSet("roster2")
  roster(3) = RecSet("roster3")
  roster(4) = RecSet("roster4")
  roster(5) = RecSet("roster5")
  roster(6) = RecSet("roster6")
  roster(7) = RecSet("roster7")
  roster(8) = RecSet("roster8")
  roster(9) = RecSet("roster9")
  roster(10) = RecSet("roster10")

  If All = 0 Then
    Procent(1) = 0
    Procent(2) = 0
    Procent(3) = 0
    Procent(4) = 0
    Procent(5) = 0
    Procent(6) = 0
    Procent(7) = 0
    Procent(8) = 0
    Procent(9) = 0
    Procent(10) = 0
  Else
    Procent(1) = roster(1) / All *100
    Procent(2) = roster(2) / All *100
    Procent(3) = roster(3) / All *100
    Procent(4) = roster(4) / All *100
    Procent(5) = roster(5) / All *100
    Procent(6) = roster(6) / All *100
    Procent(7) = roster(7) / All *100
    Procent(8) = roster(8) / All *100
    Procent(9) = roster(9) / All *100
    Procent(10) = roster(10) / All *100
  End If
%>
<table border="0" cellpadding="0" cellspacing="0">
<%
  contr = Request.Cookies("voted")("check")

  For i = 1 To RecSet("antal")
    If cdbl(contr) = cdbl(RecSet("ID")) Then
%>
  <tr>
    <td><font face="verdana" size="1"><%=RecSet("svar" & i)%></font></td>
    <td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
  </tr>
<%
    Else
%>
  <tr>
    <td><a href="omrostning/omrostning_rosta.asp?id=<%=RecSet("ID")%>&alternativ=<%=i%>"><font face="verdana" size="1"><%=RecSet("svar" & i)%></font></a></td>
    <td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
  </tr>
<%
    End If
  Next
%>
</table>
<br>
Antal roster: <%=All%>
<%
End If

RecSet.Close 
Set RecSet = Nothing 
Conn.close 
Set Conn = Nothing 
%>
</font>
</body>
</html>
solbulleMedlem sedan mars 20015 287 inlägg
#3

Ännu lite ändringar...

<%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../omrostning/omrostning.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT TOP 1 * FROM omrostning ORDER BY ID DESC" 
RecSet.Open SQL, Conn
%>
<html>
<title>Cruel!</title>
<body bgcolor="#99CCFF" link="#000099">
<font face="verdana" size="1">
<%
Dim All, contr, i, roster(11), Procent(11)

If RecSet.EOF Then
  Response.Write"Det finns ingen omröstning"
Else
  fraga = RecSet("fraga")
%>
<b>Fråga: <%=fraga%></b>
<%

For i = 1 to 10
  All = All + RecSet("roster"&i)
  roster(i) = RecSet("roster"&i)
Next

  If All = 0 Then
	For i = 1 to 10
  		Procent(i) = 0
	Next
  Else
	For i = 1 to 10
  		Procent(i) = roster(i) / All *100
	Next
  End If
%>
<table border="0" cellpadding="0" cellspacing="0">
<%
  contr = Request.Cookies("voted")("check")

  For i = 1 To RecSet("antal")
    If cdbl(contr) = cdbl(RecSet("ID")) Then
%>
  <tr>
    <td><font face="verdana" size="1"><%=RecSet("svar" & i)%></font></td>
    <td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
  </tr>
<%
    Else
%>
  <tr>
    <td><a href="omrostning/omrostning_rosta.asp?id=<%=RecSet("ID")%>&alternativ=<%=i%>"><font face="verdana" size="1"><%=RecSet("svar" & i)%></font></a></td>
    <td><img src="omrostning/omrostning.gif" border="0" vspace="2" hspace="0" height="11" width="<%=FormatNumber(Procent(i),0)%>" valign="top" align="absmiddle"><font face="verdana" size="1"> <%=FormatNumber(Procent(i),1)%>%</font></td>
  </tr>
<%
    End If
  Next
%>
</table>
<br>
Antal roster: <%=All%>
<%
End If

RecSet.Close 
Set RecSet = Nothing 
Conn.close 
Set Conn = Nothing 
%>
</font>
</body>
</html>
133 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)