---
title: "Fixa koden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/67621-fixa-koden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2003-02-08T17:06:03.000Z"
updated: "2003-02-08T18:30:20.000Z"
replies: 1
views: 189
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/67621-fixa-koden"
---

# Fixa koden

## #1 — Rodan, 2003-02-08T17:06Z

Hej

den här koden funkar nästan... men jag har lite problem ...

undrar om nån vänlig själ där ute kan fixa den så att om man inte fått några röster så kommer det fram typ ingen har röstat... och sen att man bara kan rösta en gång.... hoppas nån kan fixa den.. den är väldigt viktig

\<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=losenordet" 
SQL = "SELECT \* FROM members WHERE id = " &Request.QueryString("checkid")
Set RecSet = Conn.Execute(SQL) 

TotalaRoster = RecSet("TotalaRoster")
Poang = RecSet("Poang2") 

Snitt = Round(Poang/TotalaRoster,2) 

RecSet.Close
Conn.Close 

Response.Write "\<b\>Genomsnittligt betyg:\</b\> "&Snitt&" (på "&TotalaRoster&" röster)"
%\> 

mvh //Rodan

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

## #2 — Sebbe, 2003-02-08T18:30Z

```
<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=losenordet" 
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid") 
Set RecSet = Conn.Execute(SQL) 

TotalaRoster = RecSet("TotalaRoster") 
Poang = RecSet("Poang2") 

Snitt = Round(Poang/TotalaRoster,2) 

RecSet.Close 
Conn.Close 

If TotalaRoster <> 0 Then

Response.Write "<b>Genomsnittligt betyg:</b> "&Snitt&" (på "&TotalaRoster&" röster)" 

Else

Response.Write "Ingen har röstat"

End If
%>
```

Sedan, där man röstar (när rösten läggs in i databasen) får du väl lägga till:

```
<%
If Request.Cookies("rostat")  <> "" Then

Response.Write "Du har redan röstat"

Else

Response.Cookies("rostat") = "ja"
Response.Write "Nu har du röstat"

End If
%>
```

Jag vet ju inte hur resten av din kod ser ut, men jag hoppas du förstår var du ska lägga in det. Säg till om det är totalt fel! :p

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/67621-fixa-koden