---
title: "en fråga :)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14013-en-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-01-26T14:30:00.000Z"
updated: "2002-01-26T18:10:00.000Z"
replies: 11
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/14013-en-fråga"
---

# en fråga :)

## #1 — Cactuz, 2002-01-26T14:30Z

jag behöver ett script som först kollar om dagens datum finns någonstans i kolumnen datum... om den finns ska den bara köra en update... om den inte finns måste den ju först köra en insert för att kunna uppdatera så den ska då köra en insert o sen en update.

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

## #2 — cyprys, 2002-01-26T14:33Z

```
<%
Set RS = conn.execute("SELECT * FROM tabell WHERE datum = '"&date&"' ")
' Om datumet är i textform.
if RS.eof then
 KÖR INSERT
else
 KÖR UPDATE
end if
Set RS = nothing
%>
```

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

## #3 — Cactuz, 2002-01-26T14:58Z

allså... den ska inte kolla om datum är tom... för det kan ligga andra datum n dagens.. den ska kolla om dagens datum står...

\[Redigerat av Cactuz den 26 jan 2002\]

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

## #4 — cyprys, 2002-01-26T15:01Z

ehh ja.

If rs.eof  betyder ifall end_of_fields
Alltså ifall det finns några poster som upfyller datum = date, alltså ifall dagens datum finns i någon post i kolumnen \[datum\]?
Om inte lägg till en som har det.
Annars uppdatera den poster som har datumet.
Låter som en version av en besöksräknare? :)

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

## #5 — Cactuz, 2002-01-26T15:05Z

ahh.. nu sr jag... kollade fel innan :)

besöksräknre? vad snackar du om? ;)

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

## #6 — Cactuz, 2002-01-26T15:47Z

får felmeddelandet:

Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'conn'

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

## #7 — jorgen, 2002-01-26T15:53Z

hej, posta lite kod.

Du har antagligen två olika namn eller fel namn på ditt connectionobjekt någonstans.

mvh Jörgen :)

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

## #8 — Cactuz, 2002-01-26T15:57Z

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

Set RS = conn.execute("SELECT * FROM besok WHERE Datum = '"&date&"'")
' Om datumet är i textform.
if RS.eof then

SQL = "INSERT INTO besok (Datum) VALUES ('" & datum &"')"
con.execute(SQL)

besok = "UPDATE besok set Antalbesok = Antalbesok + 1 WHERE Datum = '"&datum&"'"
Set rs = db.execute(besok)

else

besok = "UPDATE besok set Antalbesok = Antalbesok + 1 WHERE Datum = '"&datum&"'"
Set rs = db.execute(besok)

end if
Set RS = nothing
%>
```

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

## #9 — Pace, 2002-01-26T15:58Z

Set RS = db.execute("SELECT \* FROM besok WHERE Datum = '"&date&"'")

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

## #10 — jorgen, 2002-01-26T15:59Z

hej, du har 3 olika namn på ditt connectionobject. Con, conn och db.

Eftersom du skapat det som db så ändra alla till det namnet.

red: och utöver Pace ändring:

```
SQL = "INSERT INTO besok (Datum) VALUES ('" & datum &"')"
db.execute(SQL)
```

mvh Jörgen :)

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

## #11 — LarsG, 2002-01-26T16:01Z

Som jorgen sade,så har du blandat namnen

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("counter.mdb")
Set RS = db.execute("SELECT * FROM besok WHERE Datum = '"&date&"'")
' Om datumet är i textform.
if RS.eof then

SQL = "INSERT INTO besok (Datum,antalbesok) VALUES ('" & datum &"',1)"
db.execute(SQL)

else

besok = "UPDATE besok set Antalbesok = Antalbesok + 1 WHERE Datum = '"&datum&"'"
db.execute(besok)

end if
Set RS = nothing
%>
```

Det är ju också onödigt att först göra insert och sen direkt efteråt göra update på samma tabell.

red:
Det är onödigt att ställa select-frågan också

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

sql = "UPDATE besok set Antalbesok = Antalbesok + 1 WHERE Datum = '"&datum&"'"
db.execute sql,rows,128

if rows = 0 then
SQL = "INSERT INTO besok (Datum,antalbesok) VALUES ('" & datum &"',1)"
db.execute SQL,,128 
end if

%>
```

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

## #12 — solbulle, 2002-01-26T18:10Z

OT!
En stilla kommentar till LarsG's svar.

Om du skulle kika över all min kod jag skrivit skulle du nog kunna reducera den till en fjärdedel, max...

Imponerande gång på gång, både i enklare o tyngre frågor.

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

---

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