---
title: "Bäst före datum på kaka!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94281-bäst-före-datum-på-kaka"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "M.Cheraghi"
published: "2004-01-08T19:44:42.000Z"
updated: "2004-01-08T20:04:05.000Z"
replies: 6
views: 260
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/94281-bäst-före-datum-på-kaka"
---

# Bäst före datum på kaka!

## #1 — M.Cheraghi, 2004-01-08T19:44Z

Min lilla "poll-kaka" har problem med konserveringen! Den möglar till rätt fort!
I ren svenska! Kakan fungerar inte osm den skall. i cirka 10-15 minuter så fungerar kakan, sen så går det att rösta igen! :(

EDIT:) om jag vil stänga denna databas och alla kopplingar till 100% hur gör jag då? säg att det "finns" ett recordset också, det finns inte men tänk er att det finns när ni skriver stänga databasen koden :)

```
<%
svar = request.querystring("svar")

If Request.Cookies("vote").Haskeys = FALSE Then

   Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/poll.mdb")&";"
SQL = "Select * from svar"
Set RS = conn.execute(SQL)

ja = RS("ja") + 1
nej = RS("nej") + 1
vetej = RS("vetej") + 1

if svar = "ja" then
strSQL = "update svar SET ja = '"&ja&"'"
conn.execute(strSQL)
end if

if svar = "nej" then
strSQL = "update svar SET nej = '"&nej&"'"
conn.execute(strSQL)
end if

if svar = "vetej" then
strSQL = "update svar SET vetej = '"&vetej&"'"
conn.execute(strSQL)
end if
end if
response.redirect "inside.asp?page=hem"
%>
```

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

## #2 — @nders, 2004-01-08T19:51Z

Det går bra att göra din kod lite kortare:

```
<%
svar = request.querystring("svar")

If Request.Cookies("vote").Haskeys = FALSE Then

	Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1

	Set conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/poll.mdb")&";"
	strSQL = "UPDATE svar SET " & svar & " = " & svar & "+1"
	conn.execute strSQL,,128
	[b]conn.close
	set conn=nothing[/b]
End if
response.redirect "inside.asp?page=hem"
%>
```

Se de fetmarkerade raderna. Det passar bra att göra så med connection- och recordsetobjekt för att ha ihjäl dem.

Vad gäller frågan om kakans giltighet vet jag inte. Koden ser, tycker jag, korrekt ut.

Du har inte några knasiga inställningar i din läsare?

mvh

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

## #3 — M.Cheraghi, 2004-01-08T19:55Z

Okej! Tack för hjälpen!

PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan \_inte\_ finnas ;)

mm kanske e knas på min läsare.. isåfall knas på mozilla och IE

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

## #4 — Melea, 2004-01-08T19:57Z

Du har så rätt ;)

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

## #5 — M.Cheraghi, 2004-01-08T19:58Z

> **Melea skrev:**
>
> Du har så rätt ;)

 :OO

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

## #6 — @nders, 2004-01-08T20:00Z

> **M.Cheraghi skrev:**
>
> PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan \_inte\_ finnas ;)

Das stimmt. Blev lite halvgalet där kan man tro. ;)

Mvh

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

## #7 — M.Cheraghi, 2004-01-08T20:04Z

> **@nders skrev:**
>
> > **M.Cheraghi skrev:**
> >
> > PS för att vara petnoga ASPguru, så skall end if efter 128 i sql frågan \_inte\_ finnas ;)
>
> Das stimmt. Blev lite halvgalet där kan man tro. ;)
> 
> Mvh

Nerå! Det är lugna puckar med tanke på att du hjälpte mer än du hade fel så är du godkänd ;) :) \*kaxig\*

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/94281-bäst-före-datum-på-kaka