Søg
Avatar billede remo27 Nybegynder
10. august 2003 - 22:11 Der er 8 kommentarer og
1 løsning

fødselsdag script

Hvem kan lave dette script.

Der skal være knytte en access db dertil.

Scriptet skal kun komme frem på siden, når der er en i db der har fødselsdag.

der kunne fx. stå hejsa <navn> tillykke med de <alder>

Jeg har ingen ide om hvordan man laver dette script.
håber der er en der er frisk.
Avatar billede ellebaek Nybegynder
10. august 2003 - 22:15 #1
jeg kan godt lave et sådant script...

2 sek så er der noget klar...!
Avatar billede remo27 Nybegynder
10. august 2003 - 22:16 #2
lyder fint
Avatar billede eagleeye Praktikant
10. august 2003 - 22:27 #3
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>
Avatar billede remo27 Nybegynder
10. august 2003 - 22:40 #4
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 ??
Avatar billede remo27 Nybegynder
10. august 2003 - 22:42 #5
eagleeye >> glem den sidste linie :O(  jeg læste ikk' ordenligt på scriptet
Avatar billede eagleeye Praktikant
10. august 2003 - 22:42 #6
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>
Avatar billede remo27 Nybegynder
10. august 2003 - 22:46 #7
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
Avatar billede eagleeye Praktikant
10. august 2003 - 22:49 #8
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>
Avatar billede remo27 Nybegynder
10. august 2003 - 23:02 #9
1000 tak for hjælpen, det var hurtig Service :O)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
08/0913:06 Kan ikke starte min pc Af Malm i PC
07/0919:20 DVD program Af dcedata1977 i Andet software
07/0916:09 Bitdefender brokker sig Af FinnRasmussen i Andet sikkerhed
06/0921:00 Libre Office Impress Af Frank i Andre styresystemer
White papers
Flere white papers »