---
title: "Födels.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14294-födels"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "JonasT"
published: "2002-02-06T16:03:00.000Z"
updated: "2002-02-08T18:53:00.000Z"
replies: 26
views: 1111
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/14294-födels"
---

# Födels..

_Sida 1 av 2._

## #1 — JonasT, 2002-02-06T16:03Z

Hej!
jag undrar hur man gör för att få de här:
Att visa vilka av mina medlemmar som har födelsedag idag.
Födelsedatumet sparas i databsen. Tabell : reg Kolumm:age. Och själva datumet sparas om ex: 1994 01 01. Hur gör jag för att visa vilka av medlemmarna som fyller år idag?

\[Redigerat av JonasT den 06 feb 2002\]

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

## #2 — OveRRidE, 2002-02-06T16:05Z

```
SQL = "SELECT * FROM medlemmar WHERE fodelseDatum = " & date()
```

Exemplet förutsätter att du har

```
session.lcid = 1053
```

och att datumet i databasen ser ut som t.ex. "02-03-10".

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

## #3 — JonasT, 2002-02-06T16:09Z

så ser det inte ut.
Det är ex 1994 01 01.
Finns det inget annat sätt?

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

## #4 — LarsG, 2002-02-06T16:17Z

Vilken typ har kolumnen? Datetime eller text?

Om det är datetime (och Access databas) så

```
sql = "select * from medlemmar where month(fodelseDatum) = month(now()) and day(fodelseDatum) = day(now())
```

Om det är text

```
sql = "select * from medlemmar where cint(mid(fodelseDatum,6,2)) = month(now()) and cint(mid(fodelseDatum,9,2)) = day(now())
```

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

## #5 — JonasT, 2002-02-07T16:40Z

Någon som är villig att visa mig hela oden till detta. typen på kolummen är text.
Jag är rätt 0:ad på asp...
Tacksam för svar

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

## #6 — Skarre, 2002-02-07T18:05Z

Om det inte finns en bra anledning till att fälttypen är text så skulle jag ändra den till kort datum om jag vore du.

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

## #7 — JonasT, 2002-02-07T19:48Z

Men ere ingen somv et hur ja kan lösa detta?

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

## #8 — JonasT, 2002-02-07T19:50Z

Behöver verkligen den här funktionen..
Tacksam för hjälp.

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

## #9 — doggelito, 2002-02-07T20:16Z

haru testat larsG´s kod?
det hela skulle kunna se ut enligt följande(om det nu var det du ville ha)

```
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/databasmapp/databas.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn

strsql = "select * from medlemmar where cint(mid(fodelseDatum,6,2)) = month(now()) and cint(mid(fodelseDatum,9,2)) = day(now()) "

Set rs = conn.Execute(strsql)
while not rs.eof
response.write rs("namn_kolumn") & "<br>"
rs.movenext
wend
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing
```

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

## #10 — LarsG, 2002-02-07T20:22Z

```
<%
  dim connect,rs
  set connect = server.createobject("ADODB.connection")
  connect.open "din connect-sträng"

  set rs = connect.execute("select reg,age from medlem where cint(mid(age,6,2)) = month(now()) and cint(mid(age,9,2)) = day(now())
"

  if  rs.eof then
      response.write "Nähä, det är ingen som fyller år i dag heller <br>"
  else
      response.write "Idag fyller <br>"
      while not rs.eof
          response.write rs("reg") & " " & year(date) - cint(left(rs("age"),4)) & "år <br>"
          rs.movenext
      wend
  end if
  rs.close
  set rs = nothing
  connect.close
  set connect = nothing
```

Du får ändra i connect.open och på tabellnamnet.

red: Detta fungerar bara om du använder en Accessdatabas.

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

## #11 — JonasT, 2002-02-07T20:26Z

Alltså, man skriver in hur när man föddes..det sparas i tabellen: reg och kolummen : age . Och värdet sparas så här: ex 1994 01 01 . Och är text.
Funkar din kod till det?

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

## #12 — JonasT, 2002-02-07T20:29Z

Vad ska jag skriva på "min connect sträng"?

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

## #13 — JonasT, 2002-02-07T21:55Z

Ingen som vet?

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

## #14 — solbulle, 2002-02-07T22:19Z

```
"driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("community.mdb")
```

Kanske kan fungera, var det inte den du använde några poster längre ner?

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

## #15 — JonasT, 2002-02-08T16:28Z

När jag lagt in det för jag felet:
Programsats förväntas.
/24u.nu/db/frameset.asp, line 134

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

## #16 — JonasT, 2002-02-08T17:04Z

vet någon vad som är fel?

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

## #17 — LarsG, 2002-02-08T17:10Z

Nej, det är ingen som vet det. 
Möjligen om du visar din kod och pekar ut rad 134 så.

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

## #18 — JonasT, 2002-02-08T17:30Z

På rad 134 står det bara:

```
<%
```

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

## #19 — LarsG, 2002-02-08T17:33Z

Du måste visa mer kod.

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

## #20 — Jesper T, 2002-02-08T17:34Z

Då har du räknat dåligt!
Skaffa en editor som skriver ut radnummerna, så blir det lättare att ha koll på det. Det kommer att behövas i framtiden också, det försäkrar jag dig!

/Jesper :birp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14294-födels  
Nästa sida: https://www.webforum.nu/amne/asp/14294-födels/page2.md