---
title: "röstnings mojs..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69767-röstnings-mojs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2003-03-01T16:31:09.000Z"
updated: "2003-03-04T21:11:26.000Z"
replies: 18
views: 369
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/69767-röstnings-mojs"
---

# röstnings mojs...

## #1 — Rodan, 2003-03-01T16:31Z

Hej

jag har problem med en röstnings funktion till ett community med ca 2000 medlemmar

felmeddelandet är
Feltyp:
Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'Round'
/whois.asp, line 341

det meddelandet får jag hos medlemmar som inte har några röster.

men dom som har röster får jag inget fel meddelande...

här e där den visar hur många röster man har.

```
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databas")&";pwd=lååångt lösenord" 
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid")
Set RecSet = Conn.Execute(SQL) 

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

Poang = 0 + Poang
TotalaRoster = 0 + TotalaRoster

    Snitt = Round(Poang / TotalaRoster,2)

RecSet.Close 
Conn.Close 

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

hoppas nån som kan hjälpa mig..

H/rodan

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

## #2 — Sebbe, 2003-03-01T16:58Z

```
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databas")&";pwd=lååångt lösenord" 
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid")
Set RecSet = Conn.Execute(SQL) 

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

Poang = 0 + Poang
TotalaRoster = 0 + TotalaRoster

If NOT IsNull(Poang) Then
    Snitt = Round(Poang / TotalaRoster,2)
End If

RecSet.Close 
Conn.Close 

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

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

## #3 — Rodan, 2003-03-01T18:12Z

nej... det funkar inte

för att spill det fixar decimal teckent

typ man får 1 röst

vanligt vis= 1
me spill = 1,00

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

## #4 — Rodan, 2003-03-03T10:46Z

ingen ?

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

## #5 — solbulle, 2003-03-03T14:40Z

> **Rodan skrev:**
>
> nej... det funkar inte
> 
> för att spill det fixar decimal teckent
> 
> typ man får 1 röst
> 
> vanligt vis= 1
> me spill = 1,00

Jag fattar inte...

Spill?

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

## #6 — Rodan, 2003-03-03T14:42Z

va säger jag :P 

snitt mena jag :P

Snitt = Round(Poang / TotalaRoster,2)

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

## #7 — solbulle, 2003-03-03T14:58Z

Kanske:

```
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databas")&";pwd=lååångt lösenord" 
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid")
Set RecSet = Conn.Execute(SQL) 

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

Poang = 0 + Poang
TotalaRoster = 0 + TotalaRoster

If TotalaRoster > 0 Then
    Snitt = Round(Poang / TotalaRoster,2)
	Response.Write "<b>Genomsnittligt betyg:</b> "&Snitt&" (på "&TotalaRoster&" röster)"
Else
	Response.Write "<b>Genomsnittligt betyg:</b> Du får inget betyg eftersom ingen röstat på dig!"
End If

RecSet.Close 
Conn.Close
```

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

## #8 — Rodan, 2003-03-03T15:41Z

nu funkar det nästan :(
jag får inget felmeddelande.. men problemet är att när jag röstar på nån som inte har några poäng... så händer det inget... alltså jag skickas vidare som den ska göra men personen får inga poäng...

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

## #9 — solbulle, 2003-03-03T16:58Z

Hur ser koden som lägger till rösten ut då?

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

## #10 — Rodan, 2003-03-03T17:38Z

```

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=lååååånngg lösenord"
SQL = "UPDATE members SET Poang2 = Poang2+"&Request.Form("betyg")&", TotalaRoster = TotalaRoster+1 WHERE ID = "&Request.Querystring("checkid")&"" 
Conn.Execute(SQL) 

Conn.Close 

Response.Redirect "whois.asp?checkid=" &session("id")
```

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

## #11 — Sebbe, 2003-03-03T19:50Z

```
strSQL = "SELECT * FROM members WHERE ID = " & Request.QueryString("checkid")
Set Koll = Conn.Execute(strSQL)
If Koll("Poang2") = 0 OR IsNull(Koll("Poang2")) Then
  strSQL = "UPDATE members SET Poang2 = " & Request.Form("betyg") & ", TotalaRoster = 1 WHERE ID = " & Request.Querystring("checkid")
Else
  strSQL = "UPDATE members SET Poang2 = Poang2 + " & Request.Form("betyg") & ", TotalaRoster = TotalaRoster + 1 WHERE ID = " & Request.Querystring("checkid")
End If
Set Koll = Nothing
Conn.Execute(strSQL)
```

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

## #12 — Rodan, 2003-03-04T14:23Z

nepp, funkar inte :(

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

## #13 — solbulle, 2003-03-04T14:43Z

Hur var det nu? Tar för givet att Poäng2 samt TotalaRoster är av typen tal i databasen?
Tror nog att du ska ha 0 som standardvärde.

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

## #14 — solbulle, 2003-03-04T14:45Z

kanske:

```
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=lååååånngg lösenord"
SQL = "UPDATE members SET Poang2 = Poang2+" & cint(Request.Form("betyg")) & ", TotalaRoster = TotalaRoster+1 WHERE ID = "&Request.Querystring("checkid")&"" 
Conn.Execute(SQL) 

Conn.Close 

Response.Redirect "whois.asp?checkid=" &session("id")
```

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

## #15 — Rodan, 2003-03-04T17:33Z

nope.. men jag märkte nyss att förut så hade jag satt 0 på poäng,totaltröster men eftersom communityn växte..så har andra (nya )halvan inte en nolla så det är tomt... där ligger problemet

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

## #16 — @nders, 2003-03-04T17:38Z

Om jag vore du hade jag sett till att det inte fanns några nullvärden i poäng-fältet (och ev. andra fält du gör liknande beräkningar / uppdateringar på).

```
UPDATE members SET Poang2 = 0 WHERE Poang2 IS NULL
```

Sedan är det bara att köra update-satser som räknar upp.

Mvh,

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

## #17 — solbulle, 2003-03-04T18:35Z

Men @nders... om man sätter 0 som defaultvärde i access så måste det väl gå utan en sån modifikation? Eller?

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

## #18 — @nders, 2003-03-04T18:41Z

Jo, om man sätter 0 som defaultvärde så gäller det för alla nya poster. Men om man har en drös poster som redan har nullvärde, så förändras inte de i och med att man sätter defaultvärdet, utan dessa måste uppdateras till 0 med en SQL-fråga.

Mvh,

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

## #19 — solbulle, 2003-03-04T21:11Z

Ah, det var så du menade. Jo det förstår jag iofs att det blir så.
Jag hakade iofs upp mig på att Rodan skrev att den nya halvan inte hade en nolla.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/69767-röstnings-mojs