If sætning

fødselsdagen ligger som MM/DD/YY i databasen

jeg har prøvet dette men det lader til at den ikke tager højde for det nyr år


dato = day1 & \"/\" & day2 & \"/\" & year(now)

if CDate(dato) > date() then
if CDate(dato) < date()+180 then
response.write navn & \"<br>\"
end if
end if

ved lidt nærmere eftertanke kunne jeg bruge det script

dato = day1 & \"/\" & day2 & \"/\" & year(now)

if CDate(dato) < date() then
datox = day1 & \"/\" & day2 & \"/\" & year(now)+1
else
datox = day1 & \"/\" & day2 & \"/\" & year(now)
end if


if CDate(datox) > now() and CDate(datox) < now()+45  then
response.write navn & \"<br>\"
end if

men findes der noget smartere

uhm.... jeg har selv sådan en side, users.burningice.dk/asle

hvis det er sådan du skal bruge kan jeg godt paste sourcen her

ja sådan noget i den stil! Hvis du kunne paste sourcen, kan det være jeg kan bruge noget af det! og så får du også point.

There u go:

--------------------------------

<%
Response.buffer = true
session.LCID = 1030

intUge = cInt(request.querystring(\"uge\"))
intID = cInt(request.querystring(\"id\"))
strMode = request.querystring(\"mode\")
intDate = Request.QueryString(\"date\")
intToday = Date()

intDayToday = Datepart(\"d\", intToday)
intMonthToday = Datepart(\"m\", intToday)

If intDate = \"\" Then
    intDate = Date()
Else
    intDate = CDate(intDate)
End if

Set objRSToday = Conn.Execute(\"SELECT id,navn,dag,maaned,aar,dato,email FROM [tabel] WHERE (dag = \"& intDayToday &\") AND (maaned = \"& intMonthToday &\")\")
Set objRSAntalToday = Conn.Execute(\"SELECT Count(id) AS antal FROM [tabel] WHERE (dag = \"& intDayToday &\") AND (maaned = \"& intMonthToday &\")\")

strSQL = \"Select id,navn,dato, DateSerial(Year(DateSerial(Year(Now),Month(Dato),Day(dato)))-\" &_
            \"Sgn(DateDiff(\'yyyy\',DateSerial(Year(DateSerial(Year(Now),Month(dato),Day(dato)))+\" &_
            \"(Sgn(DateDiff(\'y\',DateAdd(\'d\',1,DateSerial(Year(Now),Month(dato),Day(dato))),Now))+1),\" &_
            \"Month(DateSerial(Year(Now),Month(dato),Day(dato))),\" &_
            \"Day(DateSerial(Year(Now),Month(dato),Day(dato)))),Now)),\" &_
            \"Month(DateSerial(Year(Now),Month(dato),Day(dato))),\" &_
            \"Day(DateSerial(Year(Now),Month(dato),Day(dato)))) AS Nydato FROM Tabel \" &_
            \"WHERE (((Tabel.dato) Is Not Null)) ORDER BY \" &_
            \"DateSerial(Year(DateSerial(Year(Now),Month(dato),Day(dato)))-\" &_
            \"Sgn(DateDiff(\'yyyy\',DateSerial(Year(DateSerial(Year(Now),Month(dato),Day(dato)))+\" &_
            \"(Sgn(DateDiff(\'y\',DateAdd(\'d\',1,DateSerial(Year(Now),Month(dato),Day(dato))),Now))+1),\" &_
            \"Month(DateSerial(Year(Now),Month(dato),Day(dato))),\" &_
            \"Day(DateSerial(Year(Now),Month(dato),Day(dato)))),Now)),\" &_
            \"Month(DateSerial(Year(Now),Month(dato),Day(dato))),\" &_
            \"Day(DateSerial(Year(Now),Month(dato),Day(dato))));\"

Set objRS = Conn.Execute(strSQL)
\'Set objRS = Conn.Execute(\"SELECT id,navn,dag,maaned,aar,dato,email FROM [tabel]\")
%>

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>

Vi har i dag den <%=intToday%>
<br>
<br>
<%
If NOT objRsToday.EOF Then
    Response.Write \"Der er \"& objRSAntalToday(0) &\" der har fødselsdag idag og det er \"& objRSToday(1) &\". Tryk <a href=\"\"default.asp?mode=send?id=\"& objRSToday(0) &\"\"\">her</a>\"
Else
    Response.Write \"Der er ingen der har fødselsdag idag\"
End if
%>

<br>
<br>

Andre der har fødselsdag indenfor de næste 30 dage

<br>
<br>

<%
Do Until objRS.EOF or objRS.BOF
    intDaysUntilBirthday = DateDiff(\"y\",Now,objRS(\"Nydato\"))
    If strMode = \"all\" Then
        If intDaysUntilBirthday <> 0 Then
            Response.Write objRS(1) &\" har fødselsdag om \"& intDaysUntilBirthday &\" dage (\"& objRS(2) &\")<br><br>\"& vbCrLf
        End If
        objRS.MoveNext
    Else
        If intDaysUntilBirthday < 30 AND NOT intDaysUntilBirthday = 0 Then
            Response.Write objRS(1) &\" har fødselsdag om \"& intDaysUntilBirthday &\"dage (\"& objRS(2) &\")<br><br>\"& vbCrLf
        End If
        objRS.MoveNext
    End If
Loop
%>

<br>
<br>

<a href=\"default.asp?mode=all\">Vis alle</a>


</body>
</html>
<%
Set objRS = Nothing
Set objRSToday = Nothing
%>