Omröstnings problem

ragnaredMedlem sedan apr. 2003152 inlägg

Trådstart18 juni 2003 06:27#1

Jag har ett litet problem med denna röstnings sida. Problemet är att när man har röstat en gång så ska man inte kunna rösta igen om två dagar men i mitt IIS funkar det men när jag lägger ut det på internet fungerar det ej.

<%Response.Buffer = "True"%>

<%
'############################################################################################################
'----------------------------------------------------SENASTE OMRÖSTNINGEN----------------------------------------------------------------------------------
'############################################################################################################

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

Storlek = breddF/100

If Request.Querystring("do") = "" Then

Set RecSet = Conn.Execute("SELECT Top 1 * From fraga Order by PollId desc")%>
<body link="#000000" vlink="#000000" alink="#000000">

\<table border="0" cellpadding="1" cellspacing="1" align="center" width="360"\>

<%If RecSet.EOF Then%>

  \<tr\>
    \<td colspan="2" width="356"\>\<b\>\<font size="1" face="Verdana"\>Ingen fråga inlagd\</font\>\</b\>\</td\>
  \</tr\>

<%Else%>
<tr>
<td colspan="2" width="356"><b><font size="1" face="Verdana"><%=RecSet("Fraga")%></b></td>
</tr>

\<%Set Svar = Conn.Execute("SELECT \* From svar Where pollID="& RecSet("PollId") & " Order By svarnr")

Set RS = Conn.Execute("SELECT sum(klick) As tot From svar Where pollID="& RecSet("PollId"))
totalt = RS("tot")

RS.Close
Set RS = nothing

If Svar.EOF Then%\>    
  \<tr\>
    \<td colspan="2" width="356"\>\<b\>\<font size="1" face="Verdana"\>Inga frågor!\</font\>\</b\>\</td\>
  \</tr\>

<%End If

  Do Until Svar.EOF
    stat     = Svar("klick")
    If stat \<\> 0 Then
       res      = (stat/totalt)\* BreddF / Storlek
    Else
       res = "0"
    End If
   If Request.Cookies(sessionnamn1) = sessionnamn Then%\>
   \<tr\>
      \<td width="313"\>\<font size="1" face="Verdana"\>\<%=Svar("svar")%\>\</td\>
      \<td rowspan="2" width="40" valign="bottom" align="right"\>
      \<p align="center"\>\<font size="1" face="Verdana"\>(\<%For i=1 to Len(stat)%\>\<%=Mid(stat,i,1)%\>\<%Next%\>)\</td\>
    \</tr\>
    \<tr\>
      \<td width="313" bgcolor="#d0d0d0" height="5"\>\<img src="bilder/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
    \</tr\>
   \<%Else%\>
   \<tr\>
      \<td width="313"\>\<font size="1" face="Verdana"\>\<a href="\<%=sidan%\>?do=rosta&id=\<%=Svar("id")%\>&val=\<%=Svar("svarnr")%\>"\>\<%=Svar("svar")%\>\</a\>\</td\>
      \<td rowspan="2" width="40" valign="bottom" align="right"\>
      \<p align="center"\>\<font size="1" face="Verdana"\>(\<%For i=1 to Len(stat)%\>\<%=Mid(stat,i,1)%\>\<%Next%\>)\</td\>
    \</tr\>
    \<tr\>
      \<td width="313" bgcolor="#d0d0d0" height="5"\>\<img src="bilder/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
    \</tr\>
    \<%End If
   Svar.MoveNext
   Loop%\>
    \<tr\>
      \<td colspan="2" width="356"\>&nbsp;\</td\>
    \</tr\>

<%Svar.Close
Set Svar = nothing

End If%>

    \<tr\>
      \<td colspan="2" width="356"\>\<font size="1" face="Verdana"\>Antal röster: \<%For i=1 to Len(totalt)%\>\<%=Mid(totalt,i,1)%\>\<%Next%\>\</td\>
    \</tr\>
    \<tr\>
      \<td colspan="2" width="356"\>&nbsp;\</td\>
    \</tr\>

</table>

<%End If

'############################################################################################################
'----------------------------------------------------KOLLAR OM MAN RÖSTAT-----------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "rosta" Then

If Request.Cookies(sessionnamn2) = sessionnamn then
Response.Redirect sidan
Else
Response.Redirect sidan & "?do=spara&id=" & Request.Querystring("id") & "&val=" & Request.QueryString("val")
End If

End If
'############################################################################################################
'----------------------------------------------------SPARAR RÖSTEN---------------------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "spara" Then

Set RecSet = Conn.Execute("Select * From svar Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("val"))

Conn.Execute("Update svar Set klick=klick+1 Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("val"))

Response.Cookies(sessionnamn2) = sessionnamn
Response.Cookies(sessionnamn2).Expires = date + 2
Response.Redirect sidan & "?id=" & Request.QueryString("id")

End If

'############################################################################################################
'----------------------------------------------------ALLA OMRÖSTNINGAR---------------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "gamla" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/poll.mdb")
SQL = "Select PollId, Fraga From fraga Order By PollId desc"
Set RecSet = Conn.Execute(SQL)

Do Until RecSet.EOF
PollId = RecSet("PollID")
Fraga = RecSet("Fraga")%>

<table width="<%=Bredd%>" cellspacing="1" cellpadding="1" align="center" border="0">
<tr>
<td colspan="2"><b><%=Fraga%></b></td>
</tr>

<%Set RS = Conn.Execute("SELECT sum(klick) As tot From svar Where pollID="& PollId)
roster = RS("tot")
RS.Close
Set RS = nothing
Set RS = Conn.Execute("Select * From svar Where PollID = " & PollId &" Order By svarnr")

Do Until RS.EOF
stat = RS("klick")
If stat <> 0 Then
res = (stat/roster) * BreddF / Storlek
Else
res = "0"
End If%>
<tr>
<td width="<%=bredd%>"><%=RS("svar")%></td>
<td rowspan="2" width="<%=breddR%>" valign="bottom" align="right">(<%For i=1 to Len(stat)%><%=Mid(stat,i,1)%><%Next%>)</td>
</tr>
<tr>
<td width="<%=BreddF%>" bgcolor="#d0d0d0" height="5"><img src="bilder/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
</tr>
<%RS.MoveNext
Loop
Set RS = nothing%>,nm,nm,n
<tr>
<td colspan="2">Antal röster: <%For i=1 to Len(roster)%><%=Mid(roster,i,1)%><%Next%></td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>

<%RecSet.MoveNext
Loop
Set RecSet = nothing%>

\<tr\> 
\<td colspan="2"\>\<b\>«\</b\> \<a href="\<%=sidan%\>"\>Tillbaka\</a\>\</td\>

</tr>
</table>

<%End If

Conn.Close
Set Conn = nothing%>

ragnaredMedlem sedan apr. 2003152 inlägg

18 juni 2003 06:28#2

Jag igen

Jag glömde att säga att ute på internet så kan man hela tiden rösta det blir ingen spärr alls hur ska jag göra och hur kan man istället göra för att det ska fungera ?