---
title: "lite hjälp tack :-)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13850-lite-hjälp-tack"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2002-01-17T20:48:00.000Z"
updated: "2002-01-17T21:49:00.000Z"
replies: 20
views: 382
page: 1
pages: 2
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/13850-lite-hjälp-tack"
---

# lite hjälp tack :-)

_Sida 1 av 2._

## #1 — jboy_87, 2002-01-17T20:48Z

gör man så här om man 
vill ta ut de som fyller år idag från databasen!!

```
<%
set connect = server.createobject("adodb.connection")
connect.open "dsn"
sql = "select * from members where " _

& " datediff('d',now(),cdate(cstr(year(now()) " _
& " & '-' & cstr(month(fodelsedatum)) " _
& " & '-' & cstr(day(fodelsedatum)))"
set rs = connect.execute(sql)
if rs.eof then
response.write "Ingen hittades <br>"
else
while not rs.eof
response.write rs("namn") & "fyller år den " & day(rs("fodelsedatum")) & "/" & month(rs("fodelsedatum"))
rs.movenext
wend
end if
rs.close
set rs = nothing
connect.close
set connect = nothing

%>
```

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

## #2 — @nders, 2002-01-17T20:50Z

Skriv ut SQL-frågan med response.write så ska du se att den ser konstig ut. lite mycket apostrofer och &-tecken tycker jag det ser ut som.

mvh,

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

## #3 — jboy_87, 2002-01-17T20:54Z

får felmess
så här ser hela koden ut:

```
<%
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Database/members.mdb")
set rs = connect.execute(sql)
sql = "select * from members where " _

& " datediff('d',now(),cdate(cstr(year(now()) " _
& " & '-' & cstr(month(alder)) " _
& " & '-' & cstr(day(alder)))"

if rs.eof then
response.write "Ingen hittades <br>"

else
while not rs.eof

response.write rs("username") & "fyller år den " & day(rs("alder")) & "/" & month(rs("alder"))
rs.movenext
wend
end if
rs.close
set rs = nothing
connect.close
set connect = nothing

%>
```

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

## #4 — jboy_87, 2002-01-17T20:55Z

select \* from members where datediff('d',now(),cdate(cstr(year(now()) & '-' & cstr(month(alder)) & '-' & cstr(day(alder)))

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

## #5 — @nders, 2002-01-17T20:58Z

Nja, den kanske inte ser så otroligt konstig ut, och nu är den lite lättare att läsa. ;)

Men ska du inte jämföra datediff()-uttrycket med något värde?

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

## #6 — jboy_87, 2002-01-17T21:02Z

i databasen har jag typ 1987 04 30 det kommer inte och funka med det koden!!
hur ska man göra???

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

## #7 — LarsG, 2002-01-17T21:04Z

```
sql = "select * from members where " _
& " datediff('d',now(),cdate(cstr(year(now())) " _
& " & '-' & cstr(month(alder)) " _
& " & '-' & cstr(day(alder)))) = 0"
```

Det saknades någon parentes

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

## #8 — jboy_87, 2002-01-17T21:09Z

nu ser hela ut så:

```
<%
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Database/members.mdb")
set rs = connect.execute(sql)

sql = "select * from members where " _
& " datediff('d',now(),cdate(cstr(year(now())) " _
& " & '-' & cstr(month(alder)) " _
& " & '-' & cstr(day(alder)))) = 0"

if rs.eof then
response.write "Ingen hittades <br>"
else
while not rs.eof
response.write rs("namn") & "fyller år den " & day(rs("alder")) & "/" & month(rs("alder"))
rs.movenext
wend
end if
rs.close
set rs = nothing
connect.close
set connect = nothing

%>
```

får:

**Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/Start/fodelsedagsbarn.asp, line 7**

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

## #9 — LarsG, 2002-01-17T21:10Z

Det förra fungerar enbart om alder är datetime i databasen. Om du har YYYY MM DD så borde detta gå.

```
sql = "select * from members where " _
& " datediff('d',now(),cdate(cstr(year(now())) " _
& " & '-' & mid(alder,6,2) " _
& " & '-' & mid(alder,9,2)) = 0"
```

Jag tycker att du bör byta datatyp till datetime dock.

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

## #10 — @nders, 2002-01-17T21:11Z

Vilken rad är 7?

Har du skapat objektet Connect?

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

## #11 — jboy_87, 2002-01-17T21:11Z

**LarsG** tack för tipset men då måste jag göra om koder och det e jobbigt hehe :)

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

## #12 — jboy_87, 2002-01-17T21:12Z

Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.MapPath("../Database/members.mdb")

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

## #13 — @nders, 2002-01-17T21:15Z

> Har du skapat objektet Connect?

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

## #14 — icaaq, 2002-01-17T21:16Z

```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Database/members.mdb")
....osv osv
```

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

## #15 — jboy_87, 2002-01-17T21:17Z

ops förlåt det va fel mess så här:

**Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Det angavs inte någon kommandotext för kommandoobjektet.
/Start/fodelsedagsbarn.asp, line 11**

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

## #16 — @nders, 2002-01-17T21:20Z

Du har din execute innan SQL-frågan är skapad.

Flytta ner den så den körs efter.

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

## #17 — jboy_87, 2002-01-17T21:24Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Database/members.mdb")

sql = "select * from members where " _
& " datediff('d',now(),cdate(cstr(year(now())) " _
& " & '-' & mid(alder,6,2) " _
& " & '-' & mid(alder,9,2)) = 0"

set rs = connect.execute (sql)

if rs.eof then
response.write "Ingen hittades <br>"
else
while not rs.eof
response.write rs("namn") & "fyller år den " & day(rs("alder")) & "/" & month(rs("alder"))
rs.movenext
wend
end if
rs.close
set rs = nothing
connect.close
set connect = nothing

%>
```

**Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] ), \], eller Item saknas i frågeuttrycket 'datediff('d',now(),cdate(cstr(year(now())) & '-' & mid(alder,6,2) & '-' & mid(alder,9,2)) = 0'.
/Start/fodelsedagsbarn.asp, line 17**

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

## #18 — LarsG, 2002-01-17T21:29Z

```
sql = "select * from members where " _
& " datediff('d',now(),cdate(cstr(year(now())) " _
& " & '-' & mid(alder,6,2) " _
& " & '-' & mid(alder,9,2))) = 0"
```

Det är en parentes för lite i slutet.

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

## #19 — jboy_87, 2002-01-17T21:31Z

**Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/Start/fodelsedagsbarn.asp, line 22**

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

## #20 — LarsG, 2002-01-17T21:37Z

Då är det ett felaktigt kolumnnamn på denna rad

```
response.write rs("namn") & "fyller år den " & day(rs("alder")) & "/" & month(rs("alder"))
```

Eftersom alder inte är ett datum så kan du inte använda day och month

```
response.write rs("namn") & "fyller år den " & mid(rs("alder"),6,2) & "/" & mid(rs("alder"),9,2)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13850-lite-hjälp-tack  
Nästa sida: https://www.webforum.nu/amne/asp/13850-lite-hjälp-tack/page2.md