Hämta födelsedatum

SELECT * FROM kunder WHERE fodelseDatum BETWEEN Date() AND DateAdd("d", 7, Date())
ORDER BY Month(fodelseDatum), Day(fodelseDatum)

Det känns onödigt att dela upp födelsedatumet i delar, när du ändå vill kontrollera mot hela datum.

red. Eller så kanske det inte är så onödigt Du vill ju kolla om det är en kund som har en födelsedag de närmaste sju dagarna... Men du måste göra om fodelseDatum till att vara ett helt datum

SELECT * FROM kunder WHERE DateSerial(Year(Date), Month(fodelseDatum), Day(fodelseDatum)) BETWEEN Date() AND DateAdd("d", 7, Date())
ORDER BY Month(fodelseDatum), Day(fodelseDatum)

Fick följande felmedd.
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
main.asp, line 316, column 6
sql = SELECT * FROM kunder WHERE DateSerial(Year(Date), Month(fodelseDatum), Day(fodelseDatum)) BETWEEN Date() AND DateAdd("d", 7, Date())
-----^

sql = [b]"[/b]SELECT * FROM kunder WHERE fodelseDatum BETWEEN Date() AND DateAdd("d", 7, Date()) "&_
"ORDER BY Month(fodelseDatum), Day(fodelseDatum)[b]"[/b]

Satte en denna raden.
sql = "SELECT * FROM kunder WHERE fodelseDatum BETWEEN Date() AND DateAdd("d", 7, Date())
Då blev det så här....
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
main.asp, line 316, column 75
sql = "SELECT * FROM kunder WHERE fodelseDatum BETWEEN Date() AND DateAdd("d", 7, Date())

Ändrat lite, prova koden ovan igen

Mmm... du har glömt att avsluta sql-strängen med ett citationstecken. (")

Det var då tusan....
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
main.asp, line 317, column 75
sql = "SELECT * FROM kunder WHERE fodelseDatum BETWEEN Date() AND DateAdd("d", 7, Date()) "&_
--------------------------------------------------------------------------^

Ähh... är rad 318 fortsättning på sql-satsen? Är det så här det ska se ut kanske

sql = "SELECT * FROM kunder WHERE DateSerial(Year(Date), Month(fodelseDatum), Day(fodelseDatum))" & _
      " BETWEEN Date() AND DateAdd("d", 7, Date()) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"

Aarrghh...

Engine; Följande felmedd......
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
main.asp, line 318, column 30
" BETWEEN Date() AND DateAdd("d", 7, Date()) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"
-----------------------------^

Ps använder mig av access databas om det skulle betyda ngn skillnad...

Åhhh... tänkte aldrig på att det var en sträng... suck!

Det ordnar sig nog om du byter citationstecknen i DateAdd("d", 7, Date()) till apostrofer: DateAdd('d', 7, Date())

Resultatet blir såhär

sql = "SELECT * FROM kunder WHERE DateSerial(Year(Date()), Month(fodelseDatum), Day(fodelseDatum))" & _
      " BETWEEN Date() AND DateAdd('d', 7, Date()) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"

Nu svalde den sql-satsen men fastnade på följande rad.

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

Verkar märkligt. Min originalrad som blivit fel vid månadsskiftet ser ut på följande vis.

'sql = "select * from kunder where month( fodelseDatum ) between " & month( date() ) & " and " & month( dateadd( "D", 7, date() ) ) & " and day(fodelseDatum) between " & day( now() ) & " and " & day( dateadd( "D", 7, date() ) )& _
'" ORDER BY month( FodelseDatum ),day( FodelseDatum ) ASC "

Men nu hamnar jag kanske i fel forum för vidare information?

Har nu testat med Ditt förslag Engine

sql = "SELECT * FROM kunder WHERE DateSerial(Year(Date()), Month(fodelseDatum), Day(fodelseDatum))" & _
      " BETWEEN Date() AND DateAdd('d', 7, Date()) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"

Men något måste vara galet med SQL-satsen....men vad?

Vad är det som blir galet?

Din orginalfråga blir galen, eftersom du testar månad och dag för sig.

Jo nu får jag ett felmedd. som säger
Typblandningsfel i villkorsuttryck.
Det gäller raden:
RecSet.Open sql, Connect, adOpenStatic, adLockOptimistic

Detta felmeddelande kan man väl ibland få om ngt inte är helt riktigt med sql-satsen?
Skickar med hela kodsnutten så får du se det hela.

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM kunder WHERE DateSerial(Year(Date()), Month(fodelseDatum), Day(fodelseDatum))" & _
"BETWEEN Date() AND DateAdd('d', 7, Date()) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"

RecSet.Open sql, Connect, adOpenStatic, adLockOptimistic

if RecSet.EOF then
response.write "Inga födelsedagar denna vecka"
else

Do Until RecSet.EOF
alder = RecSet("FodelseDatum")
response.write RecSet("Fornamn") & " " & RecSet("Efternamn") & "  " & round( DateDiff("y",alder,date())/365.2375 ) & " år den " & day(RecSet("Fodelsedatum")) &"/" & month(RecSet("Fodelsedatum")) &"<br>"

RecSet.MoveNext
Loop
end if
RecSet.Close
Connect.Close
%>

Åhå... det trilskas med datumtypen... tro om det kan gå att lösa såhär då

sql = "SELECT * FROM kunder WHERE DatePart('Y', DateSerial(Year(Date()), Month(fodelseDatum), Day(fodelseDatum)))" & _
      " BETWEEN DatePart('Y', Date()) AND DatePart('Y', DateAdd('d', 7, Date())) ORDER BY Month(fodelseDatum), Day(fodelseDatum)"

Suck... samma felmeddelande...