<% if not Session("CalAdmin") then Response.Redirect("login.asp?go=cal_manager.asp?" & Request.QueryString()) End If 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 Response.ExpiresAbsolute = dateadd("d", -5, date()) Response.Expires = -10 set objCon= Server.CreateObject("ADODB.Connection") set objRs = Server.CreateObject("ADODB.Recordset") objCon.Open strCon view_date = Request.QueryString("view_date") if view_date = "" then view_date = clng(date()) %> viborgmotorklub.dk
<% SQL = "SELECT id , dte, cal.text_field, cal_Categorys.Category, cal_Categorys.Colour, cal_Categorys.BgColour" & _ " FROM cal_Categorys RIGHT JOIN cal ON cal_Categorys.Cat_ID = cal.Category where dte = " & view_date objRs.Open SQL, objCon %>
  <%= cal_manager %>
[ <%= new_event %> ][ <%= new_categories %> ][ "><%= back %> ]
  <%= day(view_date) & " " & monthname(month(view_date)) & " " & year(view_date) %>
" Response.Write "" Response.Write "" & vbcrlf Response.Write "" objRs.MoveNext loop Response.Write "
<%= Event_to_Edit %>
<% if objRs.EOF or objRs.BOF then Response.Write "
  <%= begiv %>   <%= datetime %>
" & no_event & "
" Else do until objRs.EOF d = cdate(objRs("dte")) Response.Write "
" & objRs("text_field") & "" & day(d) & " " & monthname(month(d)) & " " & year(d) & "
" End If %>
<% on error resume next objRs.Close objCon.Close set objRs= nothing set objCon = nothing %>