---
title: "skriva ut alla som har födelsedag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40616-skriva-ut-alla-som-har-födelsedag"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-04-01T12:33:56.000Z"
updated: "2002-04-03T14:31:17.000Z"
replies: 13
views: 308
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/40616-skriva-ut-alla-som-har-födelsedag"
---

# skriva ut alla som har födelsedag

## #1 — ampy, 2002-04-01T12:33Z

```
<%

 
Dim SQL
SQL = "SELECT * FROM kalender WHERE Manad = "& Month(dbDatum)&"  AND Ar = "& Year(dbDatum) &" ORDER BY Dag ASC"

Recset.Open SQL, Connect, 1, 2

%>
  <%
 
Dim iAntalInbokningar
dim datumet
iAntalInbokningar = 0

Dim iRaderLoop, iKolumnerLoop
 For iRaderLoop = 1 to iRader
   Response.Write "<tr>"
   For iKolumnerLoop = 1 to iKolumner
     If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
    

Dim bgcolor3
If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) = Day(Date()) Then 

bgcolor3 = "#FFE779"

Else 

bgcolor3 = "#FFF7CF"

End If

       
       Response.Write "<td style='BORDER-BOTTOM: #FFFFFF 2px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #FFFFFF 2px SOLID; BORDER-LEFT: #000000 0px solid' valign=top bgcolor="&bgcolor3&" align=right width=""14%"" & height=" & FormatPercent(1/iRader,0) & ">"
       Response.Write "<table cellspacing=0 cellpadding=0 border=0 " & "width=""100%"">"

       Response.Write "<tr><td align=right valign=top><b>"
       Response.Write "<b>"
       Response.Write aDagar((iRaderLoop-1)*7 + iKolumnerLoop)
       Response.Write "</b>"
       Response.Write "</b></td></tr>"

   If Not Recset.EOF Then
     If Recset("Dag") = aDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then

       Response.Write "<tr  height=""100%""><td valign=top align=center>"
       Response.Write "<font size=1 face=verdana>"%>
              <a href="java script:show('show.asp?ar=<%=RecSet("Ar")%>&manad=<%=RecSet("Manad")%>&dag=<%=RecSet("Dag")%>');">Händelser</a>
       <%iAntalInbokningar  = iAntalInbokningar + 1

       Response.Write "</font>"        
       Response.Write "</td></tr>"

     End If
    End If

    Response.Write "</table>"
    Response.Write "</td>"
    Else
        Response.Write "<td  bgcolor=#ffffff> </td>"
    End If
  Next

  Response.Write "</tr>"
Next

%>

</table>
```

Denna kod är en del av en kalender och jag vi nu skriva ut de som har födesedag under det datumet. 
Så här hämtar jag ut de som har födesledag:

```
manad = DatePart("m", date())
dag = DatePart("d", date())
					
SQL = "SELECT * from members WHERE manad = '"&right("0" & manad,2)&"' AND dag = '"&right("0" & dag,2)&"' order by poang desc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

Hur ska jag nu göra för att skriva ut de som har födelsedag under det datumet i första koden?

Om det är en som har födelsedag på tex dag 3 så ska det vara en länk med där det står födelsedag och om det är flera som fyller år på dag 3 så ska det vara två länkar med födesledag.

Hoppas någon kan göra detta.

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

## #2 — ampy, 2002-04-01T22:06Z

Ingen som kan fixa detta?

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

## #3 — Eclipse, 2002-04-02T11:30Z

Får man lov att ge ett förslag?

\---
SQL = "SELECT \* FROM \[users\] WHERE \[birthday\] = " & year(date()) & " AND \[birthday\] = " & month(date())

\---
I stället för att spara en födelsedag i TRE fält, en för år, månad och dag, använder du bara ETT fält, \[birthday\].

Vad gör \[kalender\] för nytta?? Är det enbart för att hålla ordning på födelsedagar är mitt förslag att du skippar den tabellen.

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

## #4 — ampy, 2002-04-02T11:34Z

Orkar inte ändra på alla undersidor om jaag sak spara födelsedagen i en kolumn. 
tabellen kalender är inte nebart för att hålla i ordning födelsedagar utan innehåller en del annan information.

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

## #5 — Eclipse, 2002-04-02T11:48Z

Förlåt...

SQL = "SELECT \* FROM \[users\] WHERE \[birthday\] = #" & year(date()) & "# AND \[birthday\] = #" & month(date())  & "#;"

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

## #6 — ampy, 2002-04-02T11:54Z

Vad ska jag ha den koden till?

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

## #7 — Eclipse, 2002-04-02T12:06Z

Jo visst, men det är bara att välja att göra ett bra jobb nu eller sen.  Att fuska lönar sig sällan i längden... 

Säger jag och syftar främst på egna meriter på området!

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

## #8 — ampy, 2002-04-02T12:09Z

Varför går det inte bra att ha årtal i en kolumn, månader ien osv?

Jag tycker det funkar bra. Men kan du ine hjälpa mig med min ursprungliga sak istället?

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

## #9 — Eclipse, 2002-04-02T12:09Z

Hmm... jag skriver i gåtor... Det beror på att det kommer andra grejer emellan. Menade inte så.

\---
Koden ska du ha som insperation för att tagga upp dina SQL satser.

Om du inte förstår hur du ska använda koden har jag inga förslag.

Det betyder att du inte förstår vad jag skriver och det är inge bra... Det är svårt att kommunicera då! :-)

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

## #10 — ampy, 2002-04-02T12:13Z

Jag förstår visst din kod:

```
SQL = "SELECT * FROM [users] WHERE [birthday] = #" & year(date()) & "# AND [birthday] = #" & month(date()) & "#;"
```

denna hämtar ur tabellen users och där kolumnen birthday = år och månad

 :)

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

## #11 — Eclipse, 2002-04-02T12:25Z

Jättebra!

Jag har ingen lust att hjälpa dig med din lösning som du valt men det finns säkert andra som har både tid och lust med det.

Dessutom kan jag inte använda recordsets på det viset du använder dom så där är jag inte till stor hjälp...

Du använder recordsets på ett sätt  som beskrivs i alla ASP manualer och på ASP skolan på IDG's  E-Forum. 

Det är skitjobbigt att skriva kod på det sättet, ingen fattar addOpimistic för det finns ingen logik...

Jag har hackat ASP i tre år och hittils hållt mig undan det tillvägagångs-sättet. Det gör också att SQL koden, med mindre justeringar, gär att använda i SQL Server och i MySQL.

Om du väljer en dålig lösning så är det ärligt talat inte så mycket jag kan göra åt det. Det är ditt val. Men jag tänker inte engagera mig i din kod! Det är mitt val! :-)

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

## #12 — ampy, 2002-04-02T12:27Z

OK, men tack ändå.

Får vänta tills någon annan svarar. :OO

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

## #13 — Eclipse, 2002-04-02T12:50Z

Testa E-Forum:

<http://eforum.idg.se/>

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

## #14 — ampy, 2002-04-03T14:31Z

Ingen som kan göra det?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40616-skriva-ut-alla-som-har-födelsedag