<%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <%Response.Buffer = True%> <% Function SelectFilterItem(item) If Showing = item then SelectFilterItem = "selected" End If End Function '*** Dimension all the variables. Dim ViewLast, Showing Dim objRec Dim strSQL Dim LastHere 'Variables used for paging. Dim intCurrentPage, intCount '*** Open the database. Set objConn = Server.CreateObject ("ADODB.Connection") Set objRec = Server.CreateObject ("ADODB.Recordset") objConn.Open strconnect '*** The table headings, Topic, Author and so on can be used to order the messages (much like an email program) this is the code that does it. If Request.QueryString("orderby") <> "" then Session("OrderBy") = Request.QueryString("orderby") End If Select Case Session("Orderby") Case "Topic" objRec.Sort = "MessageTitle ASC" Case "Author" objRec.Sort = "MessageAuthor ASC" Case "Last+Post" objRec.Sort = "LastPost DESC" Case "Replies" objRec.Sort = "Replies DESC" Case Else objRec.Sort = "LastPost DESC" Session("OrderBy") = "Last Post" End Select objRec.cursorlocation=aduseclient StrSQL = "SELECT * FROM messages" If Request.Form("cboSearchType") = "Message Topics" OR Request.Form("cboSearchType") = "Message Authors" Then Session("txtSearchString") = Request.Form("txtSearchString") Session("cboSearchType") = Request.Form("cboSearchType") End If If Session("cboSearchType") = "Message Authors" Then StrSQL = StrSQL & " WHERE MessageAuthor LIKE '%" & Session("txtSearchString") & "%'" End If If Session("cboSearchType") = "Message Topics" Then StrSQL = StrSQL & " WHERE MessageTitle LIKE '%" & Session("txtSearchString") & "%'" End If objRec.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText '*** Function to compare the date of the users last visit with the date of the last post. Function NewMessages(lpost) If datediff("s", LastHere, lpost) > 1 then NewMessages = MBImgNewMessage Else NewMessages = MBImgOldMessage End If End Function '*** Find out when the user was last here so that new messages can be highlighted. LastHere = Request.Cookies("aspmbuser")("Date") Response.Cookies("aspmbuser")("Date") = now() Response.Cookies("aspmbuser").Expires = Date + 30 '*** If they haven't been here before set the LastHere variable to a value that will highlight all messages as being new. if LastHere = "" then LastHere = dateadd("d",-10,now()) End if '*** Has the user just asked to view the messages updated in a certain time period? See select form field. If NOT Request.Form("days") = "" then ViewLast = Request.Form("days") '*** Write this value to the cookie so that next time the reload the page it will remain the same. Response.Cookies("aspmbuser")("ViewLast") = Request.Form("days") '*** If they haven't asked for a new time filter. Else '*** If there is no value in the cookie, show them all the messages. If Request.Cookies("aspmbuser")("ViewLast") = "" then ViewLast = "ALL" '*** Otherwise take the value from the cookie. Else ViewLast = Request.Cookies("aspmbuser")("ViewLast") End If End If Showing = ViewLast If Session("cboSearchType") = "" then If NOT ViewLast = "ALL" then '*** Subtract ViewLast amount of days from the current date. ViewLast = DateAdd("d",ViewLast, MediumDate(Date())) '*** Create a record set with only the fields from the last x days. objRec.Filter = "LastPost >= #" & MediumDate(ViewLast) & "#" End If End If %> <%=MBTitle%> <% '*** Print out the Body tag. Also a constant found in the config.inc file. Response.Write MBPageBody2 %>

<%=MBImgLogo%>
<%=PrintCredit%>

<%=FONT1%>
<%=MBImgAddNew%>  <%=MBImgSearch%>

 

<% '*** The code above makes sure that the correct item in the drop-down box is highlighted. I'm certain that this was poor coding but it worked. '*** The section below prints the heading for the topics table. Notice the link URLs to order it. See above. Images are defined in the config.inc file. %> <% On Error Resume Next If Request.QueryString("page") = "" Then intCurrentPage = 1 Else intCurrentPage = CInt(Request.QueryString("page")) End If objRec.PageSize = MBPageSize If objRec.PageCount > 0 then objRec.AbsolutePage = intCurrentPage Else intCurrentPage = 0 End If Session("CurrentPage") = intCurrentPage Do While objRec.AbsolutePage = intCurrentPage And Not objRec.EOF %> <% objRec.MoveNext Loop '*** Yeah. It's the end of the table. Response.Write "
  <%=MBImgTopic%> <%=MBImgAuthor%> <%=MBImgLastPost%>

<%=MBImgReplies%>
<%=NewMessages(objRec("LastPost"))%> <%=FONT1%>

"><%=objRec("MessageTitle")%>

 <%=FONT1 & objRec("MessageAuthor")%> <%=FONT1%><%Call DisplayDateTime(objRec("LastPost"))%> <%=FONT1 & objRec("Replies")%>
" Response.Write "

" If objRec.PageCount > 1 then 'Print Previous Page if required If intCurrentPage <> 1 then Response.Write "Previous Page" Else Response.Write "Previous Page" End If 'Print direct access page numbers. For intCount = 1 to objRec.PageCount If intCount = 1 then Response.Write " | " End If If intCount = intCurrentPage then Response.Write intCount & " | " Else Response.Write "" & intCount & " | " End If Next 'Print Next Page if required If intCurrentPage <> objRec.PageCount then Response.Write "Next Page" Else Response.Write "Next Page" End If End If Response.Write "

Page " & intCurrentPage & " of " & objRec.PageCount & _ " | Ordered By: " & Session("orderby") & " | Showing: " Select Case Showing Case "-0" Response.Write "Topics updated today." Case "-1" Response.Write "Topics updated in the last 2 days." Case "-4" Response.Write "Topics updated in the last 5 days." Case "-9" Response.Write "Topics updated in the last 10 days." Case "-29" Response.Write "Topics updated in the last 30 days." Case "-99" Response.Write "Topics updated in the last 100 days." Case "ALL" Response.Write "All topics." End Select Response.Write "" If NOT Session("cboSearchType") = "" Then Response.Write "

Searched for: " & Session("txtSearchString") & "
On: " & Session("cboSearchType") & "
" Response.Write "Remove Search Filter" End If Response.Write "

" '*** Have a tidy. Don't want any of those nast memory leaks. objRec.Close objConn.Close Set objRec = Nothing Set objConn = Nothing %>prawn appetizer recipes Latin America hong kong timberland floor lamp applejack recipes and atonal music marie calendar pie recipes little girl pse carrera compound bow review internet connection reese s cookies recipe named made it in many alkalising foods scuba diving navteg ten minutes wii assecories Aboriginal population milena velba tennis by which James latvian foods used car making roach clips black bra recipe on how to make churros get hold house of morecock bittorrent downloads free online links to graham barclay photographer the Phinuit control serial dream pinball 3d good idea windows update 80070490 video camera berea citizen newspaper greeting card cuckhold bulls thus capital linda kozlowski ass in crocodile dundee sports betting remington 870 mcs forend two ways la casa embrujada I love the way jeanna keough playboy theoretical claims flatulent foods Austin real dragonball z gt shota Italian bedroom gackt and hyde fanfiction told him milena velba pizza girl home business lucia jimenez desnuda Great Barrier glucowatch g2 easy way bcbs of alabama allkids program found myself kraft foods canada Costa del irdeto optus key based business put in ingredients get fast recipes would recommend x shinigami streaming great deal recipes baked butter prawns natural alpha papel empapelar home business culinary school las vegas not true until videos of girls mastrabating domain name recipe for vinegar douche pet foods islamorada fish company bolingbrook President Bill Clinton kel tec su 16 reviews online casino hank marvin sleep walk guitar tab sit back stock photography children wedding pose wait until king david became undignified used cars lora winslow on family matters International Airport daytona beach vacation house daily basis mathmatical equations symbols better way spensers Lectures in however deckers nursery eugene oregon left behind food basic london ontario canada Double fisting fistingporn Parts Inner cinema city center doha went wild callista model zipsets vacation rentals word dejumbler In The Fixation of Belief roti prata recipe provides agents quiocho family pictures original jurisdiction amistad poema boarding schools dennis nineham professional video personalidad de los signos or reliable and will house plans traditional custom high school parliment house agusta ga Internet Marketing recipe for oven baked perogies let him mydsc2 giving away 1997 pajero road test work wear celery and food coloring experiment year old philippines recipe tocino Australian Aboriginal relato mujer lesbiana follando hard water puto cake recipe appetite suppressant rtv106 car insurance rompl model galleries reproduction Davion sexfight catfighting natural alpha fort bragg fcu cock inside bruce and chris jenner make love quiz am i infertile nutritional supplement oban star racer xxx Tahitian Noni remax realty edina listings hosting companies reproduction in archaebacteria community college windows update error 800700c1 federal government lanas big bobbs home business recipes using root beer feel while having hot anal fisting meriden b company silverplate wait until cyclone anayas mexican food menu houston business plan tutorial on sculpting a ooak baby or can be converted food chain of a tropical rainforest domain name dextroamphetamine snorting hair loss butter rum fruitcake recipes video games avanti champion model 499 sports utility sakura akane New Caledonia furcadia adult dream patches website links mudkip moves list Robert Menzies doberge cake recipe is the practice ronis paradise images two bedroom mue pokemon card Atlanta based