Første udgave af koden, som du kan se af kommentarne skal det flettes ind i den kode du har som udskiver filmne.. I første omgang kan dette eks bare copy/pasted ind i en ny fil med navnet spm263120.asp og så skal database forbindelsen rettes til.
En tabel med navnet stemmeTbl:
id : autonummer
stemmer : tal
totalStjerner : tal
givetTil : tal
<html>
<head>
<title>Stem</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db9.mdb")
Conn.Open ConnStr
Set rs = Server.CreateObject("ADODB.RecordSet")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
stempaa = Request.Form("stempaa")
karakter = Request.Form("karakter")
strSQL = "SELECT id FROM stemmeTbl WHERE givetTil = " & stempaa
set rs = Conn.Execute (strSQL)
'Tjek om der er stem på filmen før eller det er føtste gang.
if rs.EOF then
strSQL = "INSERT INTO stemmeTbl (stemmer, totalStjerner, givetTil) VALUES (1, " & karakter & ", " & stempaa & ")"
else
strSQL = "UPDATE stemmeTbl SET stemmer = stemmer + 1, totalStjerner = totalStjerner + " & karakter & " WHERE givetTil = " & stempaa
end if
Conn.Execute (strSQL)
end if
%>
<%
'Denne del udskriver stemmebox og antal stjerne givet..:
'Finder med en SQL antal stjerner for en film.
'Denne SQL skal nok indarbejes i den SQL du har som hendter de film som skal vises på en side
'så man kun hendter data en gang.
strSQL = "SELECT stemmer, totalStjerner FROM stemmeTbl WHERE givetTil = 1"
set rs = conn.Execute (strSQL)
if rs.EOF then
billede = "s0"
else
stemmer = 1*rs("stemmer")
totalStjerner = 1*rs("totalStjerner")
if stemmer = 0 then
billede = "s0"
else
snit = Round(totalStjerner / stemmer,3) * 2
snit = round(snit) / 2
snit = replace(snit, ".", "k")
snit = replace(snit, ",", "k")
billede = "s" & snit
end if
end if
Response.Write "<img src=""" & billede & ".gif"">"
%>
<%
'Stemme formen den skal også bygges ind i den fil hvor du udskriver filmene
'Bland andet skal hidden feltet stempaa's values ændre til ID på den film som vises
%>
<form action="spm263120.asp" method="post">
<input type="hidden" name="stempaa" value="1">
<input type="radio" name="karakter" value="1">1
<input type="radio" name="karakter" value="2">2
<input type="radio" name="karakter" value="3" checked>3
<input type="radio" name="karakter" value="4">4
<input type="radio" name="karakter" value="5">5<br>
<input type="submit" name="Stem" value="Stem">
</form>
<%
Conn.Close
%>
</body>
</html>
