---
title: "Vem annars än MoonCow har krongel? HJÄLP MIG... /me förtvivlad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10268-vem-annars-än-mooncow-har-krongel-hjälp-mig-me-förtvivlad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MoonCow"
published: "2001-06-26T18:22:00.000Z"
updated: "2001-06-26T20:08:00.000Z"
replies: 13
views: 243
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/10268-vem-annars-än-mooncow-har-krongel-hjälp-mig-me-förtvivlad"
---

# Vem annars än MoonCow har krongel? HJÄLP MIG... /me förtvivlad

## #1 — MoonCow, 2001-06-26T18:22Z

Tjena! Max is here again with the dumbest questions. Skämt å sido.
Ok, mitt problem är att... öh, jo jag får massa felmedelande i min kod :).
Mitt script plockar ut bilder med en liten beskrivning som läsarna kan skicka in. Så långt fungerar det och kan nu t.o.m. ta bort poster lätt eftersom @nders hjälpte mig! tack!
ok, men nu så vill jag att folk ska  kunna rejta  (betygsätta) dom med.
har ett formulär som skrivs ut under varje bild med radioknappar med 1 2 3 4 5 ... betygen asså. oxå en osynlig ruta som tar emot id:n på posten för att den måste hänga med till den som lägger till genomsnittsbetyget i databasen. men får felmedelande på den...

Formuläret ser ut så här:

\<form name="betyg" method="post" action="adda.asp"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\> 
\<input type="text" text-color= #FFFFFF with = "2" hight = "2"class="text" name="id" size="1"; textarea style="BACKGROUND-COLOR: #FFFFF; BORDER-BOTTOM: #FFFFF 1px solid; BORDER-LEFT: #FFFFF 1px solid; BORDER-RIGHT: #FFFFF 1px solid; BORDER-TOP: #FFFFF 1px solid; COLOR: #FFFFF; FONT-FAMILY: Verdana; SIZE: 1pt" value="\<%=RecSet("id")%\>"\>
\<b\>D&aring;lig\</b\> 

          \<input type="radio" name="betyg" value="1"\>
          1 
          \<input type="radio" name="betyg" value="2"\>
          2 
          \<input type="radio" name="betyg" value="3"\>
          3 
          \<input type="radio" name="betyg" value="4"\>
          4 
          \<input type="radio" name="betyg" value="5"\>
          5 \<b\>Mega bra! \</b\>\<img src="invisible.gif" width="26" height="7"\>\</font\>\<font face="\<%=font%\>" size="\<%=fontsize%\>"\> 
          \<input style="background-color: #FFCC66; font-family: verdana; size: 1pt; font-weight: normal; BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; COLOR: #333333" type="submit" value="Skicka" name="skicka2"\>
          \</font\> 
        \</form\>

och koden i den jag kallar adda.asp ser ut så här:

\<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")

ID = Request.Form("ID")
betyg = Request.Form("betyg")

Addera = "UPDATE FROM gastboken WHERE id = " & ID 

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
.............................................................................................
RecSet("sammanlagt") = RecSet("sammanlagt") + betyg
RecSet("rostad") = RecSet("rostad") + 1
RecSet("rating") = RecSet("sammanlagt") / RecSet("rostad")
.............................................................................................
det är här jag är mest tveksam... är det möjligt? måste jag göra på nått annat sätt...

	RecSet.Update
	RecSet.Close
	Connect.Close

Response.Redirect "pixelbook.asp"

%\>

Tack på förhand till den som orkar hjälpa mig (?)... och ni ska veta att ni hjälper introx.net vilket jag gör scriptet till.

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

## #2 — MoonCow, 2001-06-26T18:24Z

flå't glömde kod... här kommer det...

Tjena! Max is here again with the dumbest questions. Skämt å sido.
Ok, mitt problem är att... öh, jo jag får massa felmedelande i min kod :).
Mitt script plockar ut bilder med en liten beskrivning som läsarna kan skicka in. Så långt fungerar det och kan nu t.o.m. ta bort poster lätt eftersom @nders hjälpte mig! tack!
ok, men nu så vill jag att folk ska  kunna rejta  (betygsätta) dom med.
har ett formulär som skrivs ut under varje bild med radioknappar med 1 2 3 4 5 ... betygen asså. oxå en osynlig ruta som tar emot id:n på posten för att den måste hänga med till den som lägger till genomsnittsbetyget i databasen. men får felmedelande på den...

Formuläret ser ut så här:

```
<form name="betyg" method="post" action="adda.asp">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<input type="text" text-color= #FFFFFF with = "2" hight = "2"class="text" name="id" size="1"; textarea style="BACKGROUND-COLOR: #FFFFF; BORDER-BOTTOM: #FFFFF 1px solid; BORDER-LEFT: #FFFFF 1px solid; BORDER-RIGHT: #FFFFF 1px solid; BORDER-TOP: #FFFFF 1px solid; COLOR: #FFFFF; FONT-FAMILY: Verdana; SIZE: 1pt" value="<%=RecSet("id")%>">
<b>D&aring;lig</b> 

          <input type="radio" name="betyg" value="1">
          1 
          <input type="radio" name="betyg" value="2">
          2 
          <input type="radio" name="betyg" value="3">
          3 
          <input type="radio" name="betyg" value="4">
          4 
          <input type="radio" name="betyg" value="5">
          5 <b>Mega bra! </b><img src="invisible.gif" width="26" height="7"></font><font face="<%=font%>" size="<%=fontsize%>"> 
          <input style="background-color: #FFCC66; font-family: verdana; size: 1pt; font-weight: normal; BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; COLOR: #333333" type="submit" value="Skicka" name="skicka2">
          </font> 
        </form>
```

och koden i den jag kallar adda.asp ser ut så här:

```
<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")

ID = Request.Form("ID")
betyg = Request.Form("betyg")

Addera = "UPDATE FROM gastboken WHERE id = " & ID 

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
.............................................................................................
RecSet("sammanlagt") = RecSet("sammanlagt") + betyg
RecSet("rostad") = RecSet("rostad") + 1
RecSet("rating") = RecSet("sammanlagt") / RecSet("rostad")
.............................................................................................
det är här jag är mest tveksam... är det möjligt? måste jag göra på nått annat sätt...

	RecSet.Update
	RecSet.Close
	Connect.Close

Response.Redirect "pixelbook.asp"

%>
```

Tack på förhand till den som orkar hjälpa mig (?)... och ni ska veta att ni hjälper introx.net vilket jag gör scriptet till.

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

## #3 — PatrikB, 2001-06-26T18:26Z

Hur ser felmeddelandet ut?

cya,
PatrikB

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

## #4 — @nders, 2001-06-26T18:29Z

adda.asp ser himla konstig ut.
jag tycker **inte** att du ska spara rating i tabellen, utan helt enkelt räkna ut det med sql-frågan när du hämtar från tabellen istället.

skrev om lite grann:

```
<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"

ID = Request.Form("ID")
betyg = Request.Form("betyg")

strSQL = "UPDATE gastboken SET sammanlagt = sammanlagt + " & cInt(betyg) & ", rostad = rostad+1 WHERE id = " & ID 

Connect.execute(strSQL)
Connect.Close
Response.Redirect "pixelbook.asp"
%>
```

mvh,

red: förbannade katten pejst. ;)

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

## #5 — LarsG, 2001-06-26T18:37Z

I stället för det här

```
Addera = "UPDATE FROM gastboken WHERE id = " & ID 

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("sammanlagt") = RecSet("sammanlagt") + betyg
RecSet("rostad") = RecSet("rostad") + 1
RecSet("rating") = RecSet("sammanlagt") / RecSet("rostad")
RecSet.Update
```

så skulle jag nog skriva

```
sql = "update gastboken set betyg = betyg + " & betyg & ",rostad = rostad + 1 where id = " & id
connect.execute sql,,128
connect.close
```

Jag skulle alltså inte lägga in beräkningen av rating i databasen, utan det värdet skulle jag beräkna när man hämtar data i stället.

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

## #6 — @nders, 2001-06-26T18:50Z

> jag tycker inte att du ska spara rating i tabellen, utan helt enkelt räkna ut det med sql-frågan när du hämtar från tabellen istället.

> Jag skulle alltså inte lägga in beräkningen av rating i databasen, utan det värdet skulle jag beräkna när man hämtar data i stället.

det känns som om jag och LarsG är hyfsat överens där. ;)

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

## #7 — MoonCow, 2001-06-26T19:11Z

Öhh.. LOL? vem ska jag gå på?

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

## #8 — MoonCow, 2001-06-26T19:22Z

Oj läste fel... ok får detta med din @nders:

```
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Connect'
/geeloo/pixel/adda.asp, line 3
```

och samma den din fast på rad 4...
vi hade väl det felet i morse @nders, hur var det vi fixade det?

Det är nog rätt att jag kan räkna ut det senare på andra sidan...

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

## #9 — @nders, 2001-06-26T19:32Z

du kanske ska bestämma dig för vad du ska kalla ditt connectionobjekt???

```
Set Conn = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
```

ska det heta Conn eller Connect???

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

## #10 — MoonCow, 2001-06-26T19:39Z

\*pinsamt\*
öh... tänkte ju innan. itne göra det felet igen. men here i am  :)

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

## #11 — MoonCow, 2001-06-26T19:53Z

ok... no far so good...

men mindatabas... <http://www1.trihost.mine.nu/geeloo/pixel/gastboken.mdb> 

kolla den, den är ju tom där rostning och det ska vara =(.......

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

## #12 — @nders, 2001-06-26T20:00Z

om du ska kunna räkna i sql-frågor, så måste du ha ett tal i fältet.

sätt 0 som standardvärde på de fält du ska räkna på, och fyll i 0 manuellt i de poster som redan finns där.

prova sedan igen...

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

## #13 — MoonCow, 2001-06-26T20:03Z

ok.. tänkte att det skulle vara nått sånt, men hur får jag det att alltid vara så.
Kan man ändra det i accsess...

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

## #14 — MoonCow, 2001-06-26T20:08Z

ok det funka...
gick in under tabelldesign och lade in ett standarvärde på dom..
Tack för eran hjälp!!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10268-vem-annars-än-mooncow-har-krongel-hjälp-mig-me-förtvivlad