Hvordan får jeg denne til at vise..

Hvordan får jeg den her til kun at vise, det emne for i dag og ikke for xx altal dage som den gør nu ?

Eller er det en der har et script, der viser dagens emne, så jeg kan smide det ind i stedet for.


<%
  TableWidth = 380

  dbName = \"fpdb/blablabla.mdb\"
  Conn= \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(dbName)

%>


<%
 
Sub DisplayCalendar(mMonth, yYear)
 
  dDay = DateSerial(yYear,mMonth,1)
  mMonth = Month(dDay)
  yYear = Year(dDay)
  FirstDayOfMonth =  Weekday(dDay)

Response.write  \"\" & Details & \"<hr color=#573507 width=380>\"
  FOR j=1 to 6

        FOR i=vbSunday to vbSaturday

          If WeekDay(dDay) = i and Month(dDay) = mMonth then
                \'## Get the Memo Field out of Database for current Date
              Memo = GetCellData(dDay)
                  IF Memo <> \"\" then
                  Details = Details & \"<br><Table Align=center width=\" & TableWidth & \" cellspacing=0 cellpadding=3 border=0>\" 
                  Details = Details & \"<b>Dagens begivenhed  <img border=0 src=../../images/blank.gif width=70 height=3> </b><a name=\'\" & dDay & \"\'><Font Size=-2>\" & Ucase(WeekDayName(weekday(dDay))) & \" \" & Day(dDay) & \" \" & Ucase(MonthName(Month(dDay))) & \" , \" & Year(dDay)  & \"</Font>\" & vbCrlf
                    Details = Details & \"<Table Align=center width=\" & TableWidth & \" bordercolor=#573507 cellspacing=0 cellpadding=3 border=1>\"  & vbCrlf
                  Details = Details & \"<TD bgcolor=#F5EADB>\" & vbCrlf
                  Details = Details & \"<PRE><Font Face=arial>\" & Memo & \"</Font></PRE>\" &  vbCrlf
                  Details = Details & \"</Table>\" & vbCrlf
                  End If
              dDay = DateAdd(\"d\",1,dDay)
          End If
        NEXT 

  NEXT

  Response.write  \"\" & Details & \"<br><hr color=#573507 width=380><br>\"
End sub


Function GetCellData(dDay)
Set rs = Server.CreateObject(\"ADODB.Recordset\")
sSQL = \"Select * from CalendarInfo where Date=#\" & dDay & \"#\"
rs.open sSQL, Conn,3,3
GetCellData = \"\"
if rs.recordcount > 0 then GetCellData=rs(\"memo\")
rs.close
Set rs = nothing
End Function

%>



JAJA det er rodet, jeg har plukket det ud fra en kalender :) som jeg også bruger på siden.

Må vel være en af de svære ik ?