<% ''''''''''''''''''''''''''''' ' set page you are trying to ' go to ' '''''''''''''''''''''''''''''' Session("URL") = Request.ServerVariables("SCRIPT_NAME") CheckSecurity ''''''''''''''''''''''''''' ' start page ' ''''''''''''''''''''''''''' Dim cnDB ' As ADODB.Connection Set cnDB = OpenDB() Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim strTitle ' As String strTitle = "View Tasks" strSQL = "SELECT * FROM tblTasks WHERE pkAccountID = " _ & Request.Cookies("mynetwork")("AID") _ & " ORDER BY Priority" Set rsData = cnDB.Execute(strSQL) %> My Network - <% = strTitle %> <% = strTitle %> <% WL "

Create New Task

" WL "" WL "" WL "" WL "" WL "" WL "" Do Until rsData.EOF WL "" WL "" WL "" WL "" WL "" WL "" rsData.MoveNext Loop '''''''''''''''''' ' Clean up ' '''''''''''''''''' rsData.Close Set rsData = Nothing Set strSQL = Nothing Close DB PrintFooter %>
PriorityNameEnd DateActions
" & rsData("Priority") & "" & rsData("Name") & "" If DateDiff("s", rsData("EndDate"), Now) > 0 Then WL "" End If WL FormatDateTime(rsData("EndDate"), vbShortDate) If DateDiff("s", rsData("EndDate"), Now) > 0 Then WL "" End If WL "U | " WL "D