Det funker ikke !!! Jeg har prøvet og prøvet, men enten står den bare og tænker i 100 år eller også er der fejl, et par gange har fejlen været i linien med:
set rs = Conn.Execute(SQL) !!!!
Herunder er min ASP fil, nogen der kan optimere/finde fejlen ???
Tak...
<% language=VBscript%>
<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("adressekartotek.mdb")
dag = Day(Date)
maanede = Month(Date)
'Prøv føste om en/flere har fødselsdag i denne månede
SQL = "SELECT TOP 1 * FROM personer WHERE birthdatedd >= " & dag & " AND birthdatemm = " & maanede & " ORDER BY birthdatemm ASC, birthdatedd ASC"
set rs = Conn.Execute(SQL)
'Tjek om der var nogle som har fødselsdag i denne månede
if rs.EOF then
'Det var der ikke.
'Tjek om der er nogle som har fødselsdag i næste månede og dag >= 1 og ikke dags dato
SQL = "SELECT TOP 1 * FROM personer WHERE birthdatedd >= 1 AND birthdatemm > " & maanede & " ORDER BY birthdatemm ASC, birthdatedd ASC"
set rs = Conn.Execute(SQL)
end if
if rs.EOF then
'Tjek om nogle har fødselsdag til næste år.
SQL = "SELECT TOP 1 * FROM personer WHERE birthdatedd >= 1 AND birthdatemm >= 1 ORDER BY birthdatemm ASC, birthdatedd ASC"
set rs = Conn.Execute(SQL)
end if
rs.Close
rs.Open SQL, Conn, 1
Response.Write "<table align=""center"">"
if rs.EOF then
Response.Write "<tr><td>Inden fødslesdage fundet!!</td></tr>"
elseif rs.RecordCount = 1 then
Response.Write "<tr><td>Den næste der har fødelsdag er:</td></tr>"
else
Response.Write "<tr><td>De næste der har fødelsdag er:</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>Den " & rs("birthdatedd") & " " & MonthName(rs("birthdatemm")) & "</td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>
