")
String = Replace(String, CHR(10), "
")
FormatStr = String
End Function
function dNum(n)
if n >= 10 then
dNum = cstr(n)
Else
dNum = "0" & cstr(n)
End If
End Function
'SQL Formatted Date
Function SQLDate(dt)
SQLDate = cdbl(dt)
End Function
'--------------------------------------------------
Function DtPrevSunday(ByVal dt)
Do While WeekDay(dt) > vbSunday
dt = DateAdd("d", -1, dt)
Loop
DtPrevSunday = dt
End Function
'--------------------------------------------------
Sub diary(dtView,days)
if days > "" then
arDates = split(days, ",")
End if
dtToday = Date()
' Get first day of month
dttmp = dtView
dtday = day(dttmp)
dttmp = dateadd("d", (-dtday+1), dttmp)
dtCurViewMonth = dttmp
%>
|
|||||||
| <%=WeekDayName(iDay, true)%> | <%Next %>|||||||
| " 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 "||||
|
<%
set objCon= Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
objCon.Open strCon
SQL = "SELECT diary.id, diary.dte, diary.etime, diary.stime, diary.text_field, Diary_Categorys.Category, diary.Details, diary.location FROM Diary_Categorys RIGHT JOIN diary ON Diary_Categorys.Cat_ID = diary.Category WHERE " & _
" id = " & clng(Request.QueryString("ID"))
objrs.Open SQL, objCon
if objrs.EOF or objrs.BOF then
Response.Write " No Events Found "
d = cdbl(date)
Else
d = objrs("dte")
End If
%>
|
<%
if d = "" then d = cdbl(date)
diary d, "" %> <% diary dateadd("m", 1, d), "" %> <% diary dateadd("m", 2, d), "" %> |