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

13 svar · 213 visningar · startad av MoonCow 26 juni 2001

MoonCowMedlem sedan juni 2001223 inlägg

Frågan26 juni 2001 18:22#1

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å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.

------------------
:: är inte gul snö ::

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 18:24#2

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

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.

------------------
:: är inte gul snö ::

PatrikBMedlem sedan mars 20002 836 inlägg

26 juni 2001 18:26#3

Hur ser felmeddelandet ut?

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

@ndersMedlem sedan juni 200032 967 inlägg

26 juni 2001 18:29#4

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. ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

[Redigerat av @nders den 26 jun 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

26 juni 2001 18:37#5

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.

------------------
essentitia preter non sans multiplicandum

@ndersMedlem sedan juni 200032 967 inlägg

26 juni 2001 18:50#6

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. ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 19:11#7

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

------------------
:: är inte gul snö ::

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 19:22#8

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...

------------------
:: är inte gul snö ::

@ndersMedlem sedan juni 200032 967 inlägg

26 juni 2001 19:32#9

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???

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 19:39#10

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

------------------
:: är inte gul snö ::

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 19:53#11

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 =(.......

------------------
:: är inte gul snö ::

@ndersMedlem sedan juni 200032 967 inlägg

26 juni 2001 20:00#12

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...

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 20:03#13

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...

------------------
:: är inte gul snö ::

MoonCowMedlem sedan juni 2001223 inlägg

26 juni 2001 20:08#14

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

------------------
:: är inte gul snö ::