<% '*********** manager for Pro Dive - manager.asp !!! %> <% MyLoginGroup = "None" MyLoginIndividualAccess = 1 %> <% session.lcid=3081%> Deep 6 Diving Jervis Bay <%=YEAR(NOW)%> - Manager <% rsort=request.querystring("sort") if not rsort="" then session("sort")=rsort end if if rsort="default" then session("sort")="SightingDate" if session("sort")="" then session("sort")="SightingDate" end if %>
Default Sort sorted on <%=session("sort")%>
Deep 6 Diving Jervis Bay <%=YEAR(NOW)%> - Message Manager:
Back to Index    
<% dim newcount newcount=0 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & mydb if session("sort")="PostDate" or session("sort")="SightingDate" or session("sort")="EntryID" then strSQL="SELECT * FROM whales WHERE YEAR(PostDate)="&YEAR(DATE)&" ORDER BY " & session("sort") & " Desc" else strSQL="SELECT * FROM whales WHERE YEAR(PostDate)="&YEAR(DATE)&" ORDER BY " & session("sort") & " ASC" end if Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, conn ,3 ,3 if rs.RecordCount >0 then while not rs.eof rComments=rs.fields("comments").value rname=rs.fields("name").value rphone=rs.fields("phone").value rcompany=rs.fields("company").value rurl=rs.fields("url").value rimg=rs.fields("img").value rpostdate=rs.fields("postdate").value rentryid=rs.fields("entryid").value rpostdate=DATEADD("H","10",rpostdate) rSightingDate=rs.fields("SightingDate").value if rname="-" then rname="Julia" end if if rphone="-" then rphone="(02) 4441 5255" end if if rcompany="-" then rcompany="Deep 6 Diving Jervis Bay" end if if rurl="-" then rurl="http://www.deep6divingjervisbay.com" end if %>

<% rs.MoveNext wend %>

EntryID Date Name Comments Phone Posting Date EDIT DEL
<%=rentryID%> <%=rSightingDate%>  <%=rname%> <%=rcomments%> <%=rphone%> <% if not isnull(rpostdate) then if (DAY(rpostdate))=(DAY(DATE)) AND (MONTH(rpostdate))=(MONTH(DATE)) then %> <%Response.write rpostdate %> <% newcount=newcount+1 %> <%else Response.write rpostdate end if end if%>
The system has <%=rs.recordcount%> Postings <% if newcount> 0 then %>and <%=newcount%> <% if newcount>1 then %> are<%else%> is<%end if%> new today<% end if %>!

ADD New Message <%else %> No information in this Category found!!<% end if %>