Jag har läst artikeln om betygsystem och jag får inte ihop det direkt.
Har följande kod:
<form action="betyg.asp?ID=<%=RecSet("id")%>" method="post">
<b>Rösta på denna säljare</b><br>
<br>
Du kan ge ett betyg på respektive säljare efter ditt köp.<br>
<br>
1 = strulig<br>
2 = Ok.<br>
3 = Kanon säljare<br>
<br>
<select name="betyg">
<option value="3" selected>3<option>
<option value="2">2<option>
<option value="1">1<option>
</select>
<input type="submit" value="Rösta!"> ( <font color="red">Rösta en gång endast tack</font> )
</form>
Sen iföljande beyg.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/betyg.mdb")
SQL = "UPDATE betyg SET Poang = Poang+"&Request.Form("betyg")&", TotalaRoster = TotalaRoster+1 WHERE ID = "&Request.Querystring("ID")&""
Conn.Execute(SQL)
Conn.Close
Response.Write "Ditt betyg är registrerat! <a href='index.asp'>Tillbaka till förstasidan!</a>"
%>
<br>
<br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/db/betyg.mdb")
' Ettan byter du ut mot kursens ID-nummer från databasen.
SQL = "SELECT * FROM betyg WHERE ID = 1"
Set RecSet = Conn.Execute(SQL)
If RecSet("TotalaRoster") = 0 Then
Response.Write "Inga röster än."
Else
TotalaRoster = RecSet("TotalaRoster")
Poang = RecSet("Poang")
Snitt = Round(Poang/TotalaRoster,2)
Response.Write "<b>Genomsnittligt betyg:</b> "&Snitt&" (på "&TotalaRoster&" röster)"
End If
RecSet.Close
Conn.Close
%>
Mitt problem är att den skriver inga röster ännu hela tiden.........