---
title: "fråga..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14119-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2002-01-27T15:03:00.000Z"
updated: "2002-01-31T21:15:00.000Z"
replies: 16
views: 393
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/14119-fråga"
---

# fråga...

## #1 — crisse6, 2002-01-27T15:03Z

hej. jag har följande tabell: fragan och med poster: id, Ja, Nej och Antalsvar.

jag vet inte hur jag ska få ihop detta, hade det förut till ett community, där man kunde rösta på medlemmar, nu vill jag bara ha en enkel fråga.... :)

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Ja = request.form("Ja")
Nej = Request.Form("Nej")
sql = "SELECT betyg, antalRoster FROM fragan where username = '" & username &"'"
Set rsRosta = databas.execute (sql)
%>
<%
vote = Request.Form("rosta")

if rsRosta.eof then
'det finns inga röster än
If request.form("fragan") = "Ja" then
SQL = "insert into fragan (Ja,Antal) values (" & _
Ja & ",1,"')"
elseif
request.form("fragan") = "Nej" then
SQL = "insert into fragan (Nej,Antal) values (" & _
Nej & ",1,"')"
else
vote = cInt(vote)
SQL = "UPDATE fragan SET betyg = betyg + " & vote & ", antalRoster = antalRoster + 1 WHERE [username] = '" & Request.Form("username") &"'"
end if
Databas.Execute SQL,,128
%>
```

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

## #2 — @nders, 2002-01-27T15:17Z

Jag förstår inte vad du vill att vi ska hjälpa dig med. :)

Vad vill du få ut av det hela?

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

## #3 — crisse6, 2002-01-27T15:19Z

jag får ju fel mess :(

detta:

```
Kompileringsfel i Microsoft VBScript fel '800a03ea' 

Syntaxfel 

/billdal/add_svar.asp, rad 28 

elseif
```

sen vet jag inte hur jag ska koda (ändra i koden) för att få allt att gå ihop... :( plz...

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

## #4 — @nders, 2002-01-27T15:21Z

Till att börja med, flytta ihop elseif med det som står på raden under.

```
elseif request.form("fragan") = "Nej" then
```

Mvh,

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

## #5 — crisse6, 2002-01-27T15:25Z

mmm.. men nu fick jag felmess att end if saknades.. där det redan finns???

```
<%
vote = Request.Form("rosta")

if rsRosta.eof then
'det finns inga röster än
If request.form("fragan") = "Ja" then
SQL = "insert into fragan (Ja,Antal) values (" & _
Ja & ",1,"')"
elseif request.form("fragan") = "Nej" then
SQL = "insert into fragan (Nej,Antal) values (" & _
Nej & ",1,"')"
else
vote = cInt(vote)
SQL = "UPDATE fragan SET betyg = betyg + " & vote & ", antalRoster = antalRoster + 1 WHERE [username] = '" & Request.Form("username") &"'"
End If
Databas.Execute SQL,,128
%>
```

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

## #6 — jorgen, 2002-01-27T15:28Z

```
if rsRosta.eof then
'det finns inga röster än
If request.form("fragan") = "Ja" then
```

Du har 2 if-satser men bara en end if. Skriv elseif på den nedre av dessa 2.

mvh Jörgen :)

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

## #7 — LarsG, 2002-01-27T15:31Z

Varför har du med antalsvar i tabellen? Kan du inte göra så att kolumnen ja innehåller antal svar som är ja 
och nej de som är nej? Vad använder du fälten ja och nej till?

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

id = request.form("id") 'Du måste ha något fält som anger id för fragan
If request.form("fragan") = "Ja" then
   Ja = 1
   Nej = 0
else
   Ja = 0
   Nej = 1
end if 
SQL = "UPDATE fragan SET ja = ja + " & ja & ", nej = nej + " & nej & " WHERE id = " & id
databas.execute sql,rows,128
if rows = 0 then
sql = "insert into fragan(id,ja,nej) values(" & id & "," & ja & "," & nej & ")"
databas.execute sql,,128
end if

Databas.close
set databas = nothing
%>
```

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

## #8 — crisse6, 2002-01-30T10:33Z

hmm..försöker med kakor nu, men det funkar inte... varför inte???? end if ska in ngn stans... vet inte var?

```
<%
If request.kaka("rostat") = "ja" thenresponse.write "Du måste vänta 2 timmar tills du kan rösta igen."
else

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
id = request.form("id") 'Du måste ha något fält som anger id för fragan
If request.form("fragan") = "Ja" then
JaNej="Ja"
else
JaNej="Nej"
end if 
SQL = "UPDATE fragan SET " & JaNej & "=" & JaNej & "+1 WHERE id = " & id
databas.execute sql,128

response.kaka("rostat") = "ja"
response.kaka("rostat").Expires = "2h"
elseif

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
id = request.form("id") 'Du måste ha något fält som anger id för fragan
If request.form("fragan") = "Ja" then
JaNej="Ja"
else
JaNej="Nej"

SQL = "UPDATE fragan SET " & JaNej & "=" & JaNej & "+1 WHERE id = " & id
databas.execute sql,128

response.kaka("rostat") = "ja"
response.kaka("rostat").Expires = "2h"
endif
endif
Databas.close
set databas = nothing
%>
```

plz... (ps, har ändrat till kaka, får ju inte skriva cook... på wf.)

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

## #9 — solbulle, 2002-01-30T12:02Z

Du kör en If-sats det första du gör, tycker det ser ut som om du ska ha en det sista du gör då också. (Efter databasstängningen.)
Mitt i alltihopa har du en elseif som jag inte riktigt fattar vad den har där att göra? För övrigt fattar jag inta vad det mesta ovanför den gör där heller... mao är jag nog inte rätt lirare att ge dig svar...

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

## #10 — solbulle, 2002-01-30T12:04Z

Borde typ inte detta räcka?

```
<%
If request.kaka("rostat") = "ja" then
response.write "Du måste vänta 2 timmar tills du kan rösta igen."
else
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
id = request.form("id") 'Du måste ha något fält som anger id för fragan
If request.form("fragan") = "Ja" then
JaNej="Ja"
else
JaNej="Nej"
end if 
SQL = "UPDATE fragan SET " & JaNej & "=" & JaNej & "+1 WHERE id = " & id
databas.execute sql,128

response.kaka("rostat") = "ja"
response.kaka("rostat").Expires = "2h"

Databas.close
set databas = nothing

endif
%>
```

Sen kan du ju iofs också kolla att dina request.form har med sig något inan du öppnar databasen.

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

## #11 — crisse6, 2002-01-30T14:58Z

hmmm... får felmess nu, obs har ändrat till kaka för wf..

```
Körningsfel i Microsoft VBScript fel '800a01b6' 

Objektet stöder inte egenskapen eller metoden.: 'kaka' 

/billdal/add_svar.asp, rad 13
```

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

## #12 — LarsG, 2002-01-30T15:02Z

```
thenresponse.write
```

ser det fortfarande ut så i din kod. (1:a raden i ditt näst senaste inlägg.)

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

## #13 — jorgen, 2002-01-30T15:04Z

```
response.kaka("rostat").Expires = "2h"
```

Jag hoppas att du inte skrivit så?

sedan ska det vara ny rad efter then

```
If request.kaka("rostat") = "ja" thenresponse.write "Du måste vänta 2 timmar tills du kan rösta igen."
```

mvh Jörgen :)

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

## #14 — crisse6, 2002-01-30T15:27Z

LarsG, jag har gjort radbyte där.
Jorgen, 2h står det inte heller.

rad 13 är första raden på scriptet... 

```
If request.kaka("rostat") = "ja"
```

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

## #15 — crisse6, 2002-01-31T15:04Z

får inga felmess, men funkar denna koden som den ska?

```
<%
Set databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

If request.kaka("rostat") = "ja" then
response.write "Du måste vänta 2 timmar tills du kan rösta igen."
else %>

<script type="text/javascript" language="JavaScript">
<!--
alert("Din röst är lagd");
window.location = "default.asp";
//-->
</script>
<%
id = request.form("id")
If request.form("fragan") = "Ja" then
JaNej="Ja"
else
JaNej="Nej"
end if 
SQL = "UPDATE fragan SET " & JaNej & "=" & JaNej & "+1 WHERE id = " & id
databas.execute SQL,128
response.kaka("rostat") = "ja"
response.kaka("rostat").Expires = "January 29, 2002"

databas.close
set databas = nothing
end if
%>
```

sen återigen, hur gör man så att kakan går ut två timmar efter att man har röstat?

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

## #16 — crisse6, 2002-01-31T21:04Z

någon som kan kolla på min kod?

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

## #17 — LarsG, 2002-01-31T21:15Z

Om du vill kontrollera på timmar så måste du spara klockslaget för senast röstning och själv räkna ut antalet timmar. expiration på cookies är datumbaserad.

```
'vid röstning

response.&#67ookies("rostat") = now()

'vid kontroll

senast = request.&#67ookies("rostat")
if isdate(senast) then
   if datediff("h",cdate(senast),now()) < 2 then
       response.write "Kom igen om 2 timmar <br>"
       response.redirect "www.disney.com"
end if
end if
```

Resten av koden? Har du testat och fått något problem?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14119-fråga