%
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "
<%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%>
|
|
<% For iDay = vbSunday To vbSaturday %>
<%=WeekDayName(iDay, true)%> |
<%Next %>
<%
dtCurViewDay = DtPrevSunday(dtCurViewMonth)
For iWeek = 0 To 5
Response.Write "" & vbCrLf
For iDay = 0 To 6
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
if days > "" then
Done = false
for i = 0 to ubound(arDates)
if cdbl(dtCurViewday) = cdbl(arDates(i)) then
Response.Write ""
Done = true
End If
next
if Done = false then Response.Write " | "
Else
Response.Write " | "
End if
Response.Write Day(dtCurViewDay) & ""
Else
Response.Write " | "
End If
Response.Write " | " & vbCrLf
dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
Next
Response.Write "
" & vbCrLf
Next
%>
<%
' --------END OF DRAW CALENDAR SECTION--------
Response.Write "
"
End Sub
%>