fødselsdag script

jeg kan godt lave et sådant script...

2 sek så er der noget klar...!

lyder fint

Jeg har dette script, du må lige rette conenction til så det passer med din DB:

Kræver lige nu en tabel som hedder: brugere
men disse kolonner:

id : autonummer
fornavn      : tekst  -> fornavnet
efternavn    : tekst  -> Efternavnet
birthdatedd  : tal    -> dagen for fødselsdagen
birthdatemm  : tal    -> måneden for fødselsdagen
birthdateyy  : tal    -> året for fødselsdagen i 4 cifre 1973,2000




<HTML>
<HEAD>
<TITLE>Dagen fødselsdage</TITLE>
</HEAD>
<BODY>
<%
Session.LCID = 1030 'Sæt dansk dato format.
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

dag = Day(Date)
maanede = Month(Date)

'Prøv føste om en/flere har fødselsdag i dag
SQL = "SELECT * FROM brugere WHERE birthdatedd = " & dag & " AND birthdatemm = " & maanede & " ORDER BY birthdatemm ASC, birthdatedd ASC"

rs.Open SQL, Conn, 1

Response.Write "<table align=""center"">"
if rs.EOF then
  Response.Write "<tr><td>Inden fødslesdage fundet!!</td></tr>"
else
  Response.Write "<tr><td>Følgende har fødselsdag i dag:</td></tr>"
end if
Response.Write "</table><table align=""center"">"
do while not rs.EOF
  Response.Write "<tr>"
  Response.Write "<td>" & rs("fornavn") & " " & rs("efternavn") & "</td>"
  Response.Write "<td>Tillykke med de " & year(date)-Int(rs("birthdateyy")) & "</td>"
  Response.Write "</tr>"
  rs.MoveNext 
loop
Response.Write "</table>"
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

eagleeye >> Lige hvad jeg skal bruge. Supert.

De 2 response linier Inden føds.. fundet & Følgende  har føds... Kan man slette dem.

Da den bare skal komme frem på siden når der fødselsdag, kan den håndtere flere, hvis der skulle være 5 eller 100 der havde fødselsdag ??

eagleeye >> glem den sidste linie :O(  jeg læste ikk' ordenligt på scriptet

Den udskriver alle som har fødselsdag i dag.


Hvis du vil havde fødselsdagen i en kolonne og ikke 3 så kan du lave det sådan her og stadig skal du havde rettet i connection strengen så den får fat i din DB:


Kræver stadig en tabel som hedder: brugere
men disse kolonner:

id : autonummer
fornavn      : tekst  -> fornavnet
efternavn    : tekst  -> Efternavnet
fddato      : teskt  -> fødselsdagen i format  dd-mm-yyyy (1-1-2000) (10-8-1970)


<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Session.LCID = 1030 'Sæt dansk dato format.
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

dag = Day(Date)
maanede = Month(Date)

'Prøv føste om en/flere har fødselsdag i dag
'SQL = "SELECT * FROM brugere WHERE birthdatedd = " & dag & " AND birthdatemm = " & maanede & " ORDER BY birthdatemm ASC, birthdatedd ASC"
SQL = "SELECT * FROM brugere WHERE day(fddato) = '" & dag & "' AND month(fddato) = '" & maanede & "' ORDER BY fornavn"

rs.Open SQL, Conn, 1

Response.Write "<table align=""center"">"
if rs.EOF then
  Response.Write "<tr><td>Inden fødslesdage fundet!!</td></tr>"
else
  Response.Write "<tr><td>Følgende har fødselsdag idag:</td></tr>"
end if
Response.Write "</table><table align=""center"">"
do while not rs.EOF
  Response.Write "<tr>"
  Response.Write "<td>" & rs("fornavn") & " " & rs("efternavn") & "</td>"
'  Response.Write "<td>Tillykke med de " & year(date)-Int(rs("birthdateyy")) & "</td>"
  Response.Write "<td>Tillykke med de " & year(date)-Int(year(rs("fddato"))) & "</td>"
  Response.Write "</tr>"
  rs.MoveNext 
loop
Response.Write "</table>"
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

kan man ikke fjerne Response.Write "<tr><td>Inden fødslesdage fundet!!</td></tr>"

  Response.Write "<tr><td>Følgende har fødselsdag idag:</td></tr>"

Da det skal ligge på en default side, hvor der andre ting også.  husk at lave et svar så du kan belønnes

Ja naturligvis kan det fjernes fra scritpet, udgangspunket for dette er det som er vist i 10/08-2003 22:42:27


<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Session.LCID = 1030 'Sæt dansk dato format.
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")

dag = Day(Date)
maanede = Month(Date)

'Prøv føste om en/flere har fødselsdag i dag
'SQL = "SELECT * FROM brugere WHERE birthdatedd = " & dag & " AND birthdatemm = " & maanede & " ORDER BY birthdatemm ASC, birthdatedd ASC"
SQL = "SELECT * FROM brugere WHERE day(fddato) = '" & dag & "' AND month(fddato) = '" & maanede & "' ORDER BY fornavn"

rs.Open SQL, Conn, 1

Response.Write "<table align=""center"">"
do while not rs.EOF
  Response.Write "<tr>"
  Response.Write "<td>" & rs("fornavn") & " " & rs("efternavn") & "</td>"
'  Response.Write "<td>Tillykke med de " & year(date)-Int(rs("birthdateyy")) & "</td>"
  Response.Write "<td>Tillykke med de " & year(date)-Int(year(rs("fddato"))) & "</td>"
  Response.Write "</tr>"
  rs.MoveNext 
loop
Response.Write "</table>"
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

1000 tak for hjælpen, det var hurtig Service :O)