hjælp til afstemning?
Jeg har en afstemning på siden der er sådan lavet at vælger man 0 i db'en er filmen ikke med, vælger man 1 er den med, og vælger man 2 er filmen udkommet og derfor ikke med i afstemningen.Men hvis jeg sætter en film på 2 og filmen har været med i afstemningen fjernes den ikke fra TOP 5 som er på min mainpage.asp men den fjerner sig fra en anden side hvor alle afstemningsresultateren er.
Er der en som kan se hvad problemet er? De 2 forskellige koder står neden under adskilt af en streg
<%
Function GetStats()
Dim S,C
Dim A(4)
Dim B(4)
s = -1
'createdataobject server.mappath("data/film.mdb")
createdataobject "d:\home\dirchpasserdk\db\film.mdb"
Set rs = DBConn.Execute ("SELECT dvdcounter, Titel FROM film ORDER BY dvdcounter DESC;")
'opentable "SELECT dvdcounter,Titel FROM Film ORDER BY dvdcounter DESC;"
do while not (rs.eof or rs.bof)
if not isNull(rs("dvdcounter")) then
if rs("dvdcounter") > 0 then
s = s + 1
if s <= ubound(a) then
a(s) = rs("Titel")
b(s) = rs("dvdcounter")
end if
end if
end if
if not isNull(rs("dvdcounter")) then
c = c + rs("dvdcounter")
end if
rs.movenext
loop
'closetable
closedataobject
GetStats = GetStats & "<table style=""font-family: Verdana; font-size: 8pt"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
for i=0 to ubound(a)
if p = " bgcolor = ""#DEDFBD""" then
p = ""
else
p = " bgcolor = ""#DEDFBD"""
end if
if b(i) > 0 then
GetStats = GetStats & "<tr" & p & ">" & vbcrlf
GetStats = GetStats & "<td>" & vbcrlf
GetStats = GetStats & a(i) & " " & vbcrlf
GetStats = GetStats & "</td>" & vbcrlf
GetStats = GetStats & "<td>" & vbcrlf
GetStats = GetStats & formatNumber(((100/c) * b(i)),2) & "% " & vbcrlf
GetStats = GetStats & "</td>" & vbcrlf
GetStats = GetStats & "<td>" & vbcrlf
GetStats = GetStats & "(" & b(i) & " stemmer)" & vbcrlf
GetStats = GetStats & "</td>" & vbcrlf
GetStats = GetStats & "</tr>" & vbcrlf
end if
next
GetStats = GetStats & "<tr><td colspan=""3""> </td>" & vbcrlf
GetStats = GetStats & "<tr><td align=""center"" colspan=""3"">" & c & " stemmer ialt.</td></tr>" & vbcrlf
GetStats = GetStats & "</table>" & vbcrlf
End Function
%>
----------------------------------------------
<%
'createdataobject server.mappath("data/film.mdb")
'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
createdataobject "mySQL"
'Get total votes
Set rs = DBConn.Execute ("SELECT * FROM film WHERE tilladStemme = 1;")
do while not (rs.eof or rs.bof)
if not isnull(rs("dvdcounter")) then
e = e + rs("dvdcounter")
end if
rs.movenext
loop
'closetable
%>
<tr>
<td colspan="5" align="center">
<%=e%> har stemt ialt.
</td>
</tr>
<%
Set rs = DBConn.Execute ("SELECT * FROM film WHERE tilladStemme = 1 ORDER BY dvdcounter DESC;")
do while not (rs.eof or rs.bof)
if not isnull(rs("Year")) then
if not clng(rs("Year")) = 0 then
if z = " bgcolor=""#DEDFBD""" then
z = ""
else
z = " bgcolor=""#DEDFBD"""
end if %>
<tr<%=z%>>
<td>
<%=rs("Year")%>
</td>
<td>
-
</td>
<td>
<%=rs("Titel")%>
</td>
<td valign="top">
<%=format(rs("dvdcounter"))%> Stemmer
</td>
<td></td>
</tr>
<%
end if
end if
rs.movenext
loop
'closetable
closedataobject
%>
<!--</table>
<table class="normaltable" border="0" cellborder="0" cellspacing="0" cellpadding="0" width="386">
-->
<tr>
<td colspan="5" align="center" width="100%">
<p style="margin-top: 0; margin-bottom: 0">
<p style="margin-top: 0; margin-bottom: 0">
</p>
<p style="margin-top: 0; margin-bottom: 0">
<b>Disse film er udkommet på DVD & kan købes her: </b>
<b><a href="http://www.dvdmekka.dk" target="_blank">www.dvdmekka.dk</a></b>
</p>
<p align="left" style="margin-top: 0; margin-bottom: 0"> </p>
<p align="left" style="margin-top: 0; margin-bottom: 0"> </p>
</td> <!--ny-->
</tr> <!--ny-->
<!-- <table border="0" width="100%" height="40" cellspacing="0" cellpadding="0"> -->
<%
if sort = "1" then
sort = "Titel"
else
sort = "Year"
end if
' Make list of all movies
'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
createdataobject "mySQL"
Set rs = DBConn.Execute ("SELECT * FROM film WHERE (tilladStemme = 2) AND (Year > 0) ORDER BY " & Sort & ";")
do while not (rs.eof or rs.bof)
if z = " bgcolor=""#DEDFBD""" then
z = ""
else
z = " bgcolor=""#DEDFBD"""
end if
%>
<tr<%=z%>>
<%
if len("" & rs("link")) > 0 then
link1 = "<a href=""" & rs("link") & """ target=""_blank"">"
link2 = "</a>"
else
link1 = ""
link2 = ""
end if
%>
<td>
<%=rs("Year")%>
</td>
<td>- </td>
<td>
<%=link1%><%=rs("Titel")%><%=link2%>
</td>
<td> </td>
<td> </td>
<%
rs.movenext
loop
'closetable
'closedataobject
%>
<!-- </table> -->
<p align="left" style="margin-top: 0; margin-bottom: 0"> </p>
<!-- </td>
</tr>-->
</table>
<%
'Set rs = DBConn.Execute ("SELECT * FROM film WHERE tilladStemme = 1 ORDER BY dvdcounter DESC;")
'do while not (rs.eof or rs.bof)
' if not isnull(rs("Year")) then
' if not clng(rs("Year")) = 0 then
' if z = " bgcolor=""#DEDFBD""" then
' z = ""
' else
' z = " bgcolor=""#DEDFBD"""
' end if
'
' end if
' end if
' rs.movenext
'loop
'closetable
closedataobject
%>
</div>
</body>
</html>
<%
function Format(s)
if not s = vbnullstring then
x = trim(cstr(s))
if len(x) = 1 then
x = "0" & cstr(s)
end if
else
x = "00"
end if
format = x
end function
%>
