Fejl i min afstemning system.
Hejsa.Jeg fandt et vote system på nettet et sted... men jeg har bare et lille problem...
Nå man klikker på de antal kasser man skal vote, så husker den godt nok og sender også brugeren videre til den side som skal opdatere afstemningen...
Men jeg kan ikke få koden til at finde ud af hvor mange kasser brugeren har valgt at gi..
Her er koden til selve det med af stemning altså makere antal kasser:
------------------------------------------
<%
Response.Write "<Font Class=""text"">Din vurdering :<br>" & vbCrLf
Response.Write "(Hold musen over kasserne)</Font><br>" & vbCrLf
Response.Write "<a href=""java script:setrating(1);"" onmouseover=""java script:hoverrating(1);"" onmouseout=""java script:hoverrating(0);""><img" & vbCrLf
Response.Write "src=""/iconer/00_star_rating.gif"" name=""button1"" width=14 height=12 border=0 alt=""1 kasse - klik for at låse her"" align=""absbottom""></a><a" & vbCrLf
Response.Write "href=""java script:setrating(2);"" onmouseover=""java script:hoverrating(2);"" onmouseout=""java script:hoverrating(0);""><img" & vbCrLf
Response.Write "src=""/iconer/00_star_rating.gif"" name=""button2"" width=14 height=12 border=0 alt=""2 kasser - klik for at låse her"" align=""absbottom""></a><a" & vbCrLf
Response.Write "href=""java script:setrating(3);"" onmouseover=""java script:hoverrating(3);"" onmouseout=""java script:hoverrating(0);""><img" & vbCrLf
Response.Write "src=""/iconer/00_star_rating.gif"" name=""button3"" width=14 height=12 border=0 alt=""3 kasser - klik for at låse her"" align=""absbottom""></a><a" & vbCrLf
Response.Write "href=""java script:setrating(4);"" onmouseover=""java script:hoverrating(4);"" onmouseout=""java script:hoverrating(0);""><img" & vbCrLf
Response.Write "src=""/iconer/00_star_rating.gif"" name=""button4"" width=14 height=12 border=0 alt=""4 kasser - klik for at låse her"" align=""absbottom""></a><a" & vbCrLf
Response.Write "href=""java script:setrating(5);"" onmouseover=""java script:hoverrating(5);"" onmouseout=""java script:hoverrating(0);""><img" & vbCrLf
Response.Write "src=""/iconer/00_star_rating.gif"" name=""button5"" width=14 height=12 border=0 alt=""5 kasser - klik for at låse her"" align=""absbottom""></a> - <a href=""java script:dorate("& objRS("ID") & "); "" Class=Menu>Vurdér</a>" & vbCrLf
%>
Og her er så den js fil jeg har som laver det med at makere antal kasser og kan huske antallet af kasser og sende brugeren til den side og så vil updatere afstemningen, men kan ikke få koden til at regi, antallet selvom det står i adresse linie hvor man der er valgt. nogen der kan hjælpe mig...?
--------------------------------------------------
js fil:
var rating = 0;
if (document.images) {
ButtonUp = new Image
ButtonDn = new Image
ButtonUp.src = '/iconer/00_star_rating.gif'
ButtonDn.src = '/iconer/11_star_rating.gif'
}
else {
ButtonUp = ""
ButtonDn = ""
document.button1 = ""
document.button2 = ""
document.button3 = ""
document.button4 = ""
document.button5 = ""
}
function hoverrating(r) {
if (r >= 1) {
document.button1.src = ButtonDn.src;
}
else {
document.button1.src = ButtonUp.src;
}
if (r >= 2) {
document.button2.src = ButtonDn.src;
}
else {
document.button2.src = ButtonUp.src;
}
if (r >= 3) {
document.button3.src = ButtonDn.src;
}
else {
document.button3.src = ButtonUp.src;
}
if (r >= 4) {
document.button4.src = ButtonDn.src;
}
else {
document.button4.src = ButtonUp.src;
}
if (r >= 5) {
document.button5.src = ButtonDn.src;
}
else {
document.button5.src = ButtonUp.src;
}
if (r == 0) {
if (rating >= 5) {
document.button5.src = ButtonDn.src;
}
else {
document.button5.src = ButtonUp.src;
}
if (rating >= 4) {
document.button4.src = ButtonDn.src;
}
else {
document.button4.src = ButtonUp.src;
}
if (rating >= 3) {
document.button3.src = ButtonDn.src;
}
else {
document.button3.src = ButtonUp.src;
}
if (rating >= 2) {
document.button2.src = ButtonDn.src;
}
else {
document.button2.src = ButtonUp.src;
}
if (rating >= 1) {
document.button1.src = ButtonDn.src;
}
else {
document.button1.src = ButtonUp.src;
}
}
}
function setrating(r) {
rating = r;
hoverrating(rating);
}
function dorate(srcID) {
if (rating == 0) {
alert('Desværre kan du kun afsætte 1 kasse som laveste bud.');
}
else {
document.location = "vote_update.asp?id=" + srcID + "&rate=" + rating;
}
}
Og her er så den side som man bliver sent til og som skal opdatere afstemningen..
-----------------
<%
Sub GemCatData
Dim strSQL
Dim intVote
strSQL = "UPDATE sourcecode SET "
'' her i denne linie her:
strSQL = strSQL & "Vote='" & + setrating & "' "
''der står "+ setrating &" som skal modtage afstemningen, men
''det er forkert, ved bare ikke lige hvad der skal stå.
strSQL = strSQL & "Vote='" & + setrating & "' "
strSQL = strSQL & " WHERE ID=" & Request.QueryString("ID")
Call OpenDataBase
response.write strsql
objConn.Execute strSQL
Call CloseDataBase
'' response.redirect "back.asp?id=" & Request.QueryString("ID")
End Sub
Call GemCatData
Response.End
Sub DumpFelterne
End Sub
%>
