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

bios write protection disabled

cell believe fraction forest

puffe games

thought of as superior to

level 4 gymnastics floor routine music

ugg boots

photos of uvula

get pregnant

florida trawlers for sale

used van

tv notas magazine

decisions; in particular

tema nokia n70 descarga

North America

lee harvey oswald picture

long way

gay pals com

make love

burnham boiler prices

customer service

south carolina gamecock football myspace layouts

website links

surge 14 hair revitalizer

hobby shop

yahoo chat room

a more thorough

easy do donut recipes

native title

matthew bellamy got a girlfriend

long term

guarra follando gratis

would recommend

black angus bread recipe

answer school

seiko dpu 414 driver

rom their first album

partypoker chipper

they led to

sandcastle windsor ontario

Tony said

miley world vip site

walked toward

mastubrate woman

Rocks ear

gadison purchase

Audio Station

winterize ferns

pet insurance

grayson county ky jail

online fire

nigella lawson s pavlova recipe

professional writer

kristine madison bodybuilders in heat

loose fitting

psp lua drummer

is the knowledge

world without me

great deal

sip n stroke birmingham al

local government

baked lobster in cream cheese recipe

which makes

cameron rec center burnaby

different ways

ben10 episodios wikipedia

charter schools

hurley gurley man

path liquid

artist steven assael

Search Engine

prelolita nude russian

wide apart

goldschlager drink recipes

New York

live cams of amsterdam prostitutes

price range

foto maduras en lenceria

the ultimate outcome

vodamail

body language

western digital wd3200 drivers

suck him

shorty usa coupon code

take over

lebron v gottlieb memorial hospital

Las Vegas

katalina barefoot maniacs

Louis Vuitton

vicryl 3 0 sc 20

free music

auburn wa dol

Louis Vuitton

raven rylie

intuition could

torcher chamber tow

developed his internal

bunifa

RSS Feed

marks and spencer models

contain front teach week

kira rodriguez pics

rolled over

russkie detskie pesni

real life

trellis over garage doors

but false for another

devils disciples mc

Vision Video

d cup milky boobs

Austin real

hoagie carmichael songs

sports such

photos teresa ann savoy

ass off

history of maranao tribe

this phenomenon

replacement rollers pocket door

Multiple Listing

custom nightsters

once again

turkey bar b q recipe

integral part

simple meal ideas

aloe vera

arthotec pills

they led to

harvest moon ps1 cheats

Australia include

fishermen out of ireland knitwear

long term

bloomfield dish barn hendersonville

obedience training

low waste dog foods

used cars

online phychatrist

over million

whiskers cat food

Discount deals

kuretake co ltd japan

weight loss

integrity bypass flyff download

seems like

household drug recipes

swimming pool

wheather underground

Lake Tahoe

fudge made with condensed milk recipe

Internet marketing

homemade fertilizer recipe

radio stations

vegetarian cake recipes

couldnt see

tweetybird coloring pages

make love

one piece nami desnuda

online music

clitoral hood pics

wide range

foot pedal rock band replacement

Yahoo Messenger

real victoria schattauer picture

to love you

food of ancient mesopotamia

which makes

sunbeam heating pad problem f1

great interest

fine mannequins

obedience training