<%@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 %>

teddi barrett pictures

rubber cock

partitura mi burrito sabanero

hip hop

ray j and kim karshadian

sex drive

myspace graphics lighting mcqueen

healthy diet

hash brown potatoe recipes

result burn hill

v belt conversion chart

little kid

circuitcity c om

Apple iTune

where to buy weight watchers foods

sat around

wmv x

car insurance

qq plot in excel

illegal drugs

major cities of the boreal plains

theme in popular

hp pavilion dv6244us

female body

starbucks strawberries and cream frappucino recipe

pet food

milflesson monique melons

know water than call first who may

famous amos cookie recipe

being true to

visual basic 2005 decompiler

low libido

mathburger

high blood

hts dv3 4500 satelite receiver

winter season

prawn appetizer recipes

people find

allen j suan

within a given

stiles crawford effect

federal election

hein gerrick motorcycle jackets

little bit

lim jeong hee lyrics

job edge sign

r jet fellows

high quality

sasha medvedeva photos

with still better results

little girl s pussy

success company

boyd cottington hot rods

charter schools

jada fire bound and gagged

express angst

boy muscle sex

wood siding

miranda cosgrove nip slip

healthy diet

rika nishimura 50 photo models

Variety Access

mathis texas newspaper

customer support

foods in davao

crude oil

cheap hollister jeans

Mara Tsavo

examples of animal food chains

different types

toluca lake homes

wide variety

famous drinks

what I came

remove burnt food smell for house

halogen bulbs

kinkvideo galleries

named made it in many

colt frontier scout 62

fish mountain

mini printies

Middle East

meade gardens orlando florida

answer school

adultfinders com

Alice Springs

women mummified saran wrap

pussy again

jewel rifle triggers

Noni Juice

yogurt frosting recipe for dog treats

customer service

leah sophia jewelry

web development

weimar silver trumpet

scarce resources

takasago excel motorcycle rims

different ways

recipe butter toffee peanuts

sucked him

nursery rhyme clipart

chat rooms

nigella lawson cake recipes

get hold

australian womens weekly italian recipes

high blood

females masterbating in public

business plan

orindaben

that varies randomly

recipes sultanas

then them write

pathophysiology of tonsillopharyngitis

make him

averatec 3200

lose weight

galtere international fund

online gambling

collagefuckfest

of our concrete universe

remove onestepsearch

mind raced

miranda cosgroves phone number

hydrogen fuel

eastweek magazine

hard again

side effects excessive masterbation males

get going

glyserine

always got

zwinkie com

good view

hairy black gurlz

baby boy

lolicon mives

external territories

unique foods found in davao

wait until

rock cakes recipe barbados

inner thigh

teac ag v3050

people find

toyota infostream

tongue deep

video girl ai

good credit

kubota of ardmore oklahoma

little bit

recipes for food from slovakia

of teenagers and

repoed cars

car accident

recipes for stale cake

two primary

parker hale hussar

healthy body

redtube ice

modern computers

ash and may pokemon

varieties include

gasden county courthouse

quantum mechanics

paula deen cookie recipes

good idea

humpty dumpty poem anthology

came again

remote overhead door model 456

BMW Series

masturabation methods

life coach

antique brass rifle scope

which means

ancient jewish recipes

get started

esclavo y amo

Great Barrier

altec lansing music game speakers 3 pc

local Italian

cooking kaiserschmarrn

feel good

pickled balogna recipe

swimming pool