Jag har ett litet länksystem där man kan rösta på länkar. Om man röstat på en länk ska man inte kunna rösta på den igen förrän nästa dag men man ska ändå kunna rösta på andra länkar.
Jag har kommit till att om man röstar på en länk så spärras röstningen för den länken till dess att man röstar på en annan länk igen och så vill jag ju inte ha det..
Koden här nedan fungerar så här; om man röstar på en länk med ex. id-nummer 1 så kan man inte rösta på den igen om man enbart försöker rösta på den länken.
Om man däremot röstar på en annan länk i stället kan man återigen rösta på länk nr 1 igen.
Hur ska jag lösa det?
<%
If Len(Request.Querystring("action"))>0 Then
Dim CookieValue, VoteId, Betyg, AllaBetyg, AllaRoster, voCn, voRs, vostrSQL, VoteSQL
VoteId = Request.Querystring("id")
CookieValue = Request.Cookies("voted")("id-nummer")
If VoteId = CookieValue Then
Response.Redirect "default.asp?cat=links&subcat=" & VisaLink & ""
Else
Betyg = Request.Querystring("nr")
Set voCn = Server.CreateObject("ADODB.Connection")
Set voRs = Server.CreateObject("ADODB.Recordset")
voCn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links/db_links.mdb") & ";pwd=;"
vostrSQL = "Select * From tbl_links Where Id=" & VoteId
voRs.Open vostrSQL, voCn
AllaBetyg = voRs("Votes")--Betyg
AllaRoster = voRs("allVotes")--1
VoteSQL = "Update tbl_links Set Votes='" & AllaBetyg & "',allVotes='" & AllaRoster & "' Where Id=" & VoteId
voCn.Execute(VoteSQL)
voRs.Close
voCn.Close
Set voRs = Nothing
Set voCn = Nothing
Response.Cookies("voted")("id-nummer")= VoteId
Response.Cookies("voted").Expires = Date + 1
End If
Response.Redirect "default.asp?cat=links&subcat=" & VisaLink
End If
%>
