ASP POPUP HLP
<%For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
Set aktivitet=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate) &" and aar="&year(dtmCurDate))
If dtmCurDate = dtmToday Then
If Not aktivitet.EoF Then
Response.Write "<td align=center bgcolor=#CDD0D3><a href=popup_kalender.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
Else
Response.Write "<td align=center><a href=popup_kalender.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
End If
Else
If Not aktivitet.EoF Then
Response.Write "<td align=center bgcolor=#CDD0D3><a href=popup_kalender.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
Else
Response.Write "<td align=center><a href=popup_kalender.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
End If
End If
blnLast = False
Else
Response.Write "<td align=center><font face=verdana size=2>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center><font face=verdana size=2>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</font></td></tr>"
%>
De hrefs der er skal laves om til popup - HOW ?? Jeg har rodet med det i timevis og kan ikke få det til at funke !!
