---
title: "Betyg system"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/157240-betyg-system"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Trumpf"
published: "2007-02-15T12:14:18.000Z"
updated: "2007-02-15T14:58:46.000Z"
replies: 3
views: 398
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/157240-betyg-system"
---

# Betyg system

## #1 — Trumpf, 2007-02-15T12:14Z

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\> &nbsp; 
\<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.........

Permalänk: https://www.webforum.nu/p/157240

## #2 — @nders, 2007-02-15T12:21Z

Snälla, använd \[kod\]-taggar när du skriver kod, så slipper vi börja gråta av dina inlägg!

mvh

Permalänk: https://www.webforum.nu/p/1935199

## #3 — Trumpf, 2007-02-15T14:55Z

Hur gör man \[kod\]-taggar då?

Permalänk: https://www.webforum.nu/p/1935248

## #4 — silfver, 2007-02-15T14:58Z

Du gjode ju en precis? ;) Och så en avslutande,

Permalänk: https://www.webforum.nu/p/1935249

---

Tråden på webben: https://www.webforum.nu/amne/asp/157240-betyg-system