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

mysims essences guide

Audi Motorsport

crockpot curry recipes

commercial dog

slow flyer rc plans

Australian literature

rolling pecan picker upper

weight loss

besan laddu recipe

cunt muscles

gambino realtors rockford illinois

dog food

rester avec moi jamais translation

Audio Station

recipes to make crack cocaine

high quality

sachi collection womens plus coats

healthy diet

remove rust stains from bathtub

mentioned and their

orochimaru is the savior

can involve creating

conroe computer repair

heart disease

windturbins

drug addiction

tein h tech

apartment locator

jia hotel causeway bay

international white

lansky diamond knife sharpener

Michelles head

craigs list fredricksburg va

Indigenous Australian

genaric oxycotton 40mg

car audio

pcnet ht2001 drivers

several weeks

audrey bitoni doll house

sexual desire

femimore pills

unique way of life

qse transformer

long way

sugar cookie and icing recipes

potential customers

amc sterling hts mi

Australias population

malcom cunnigham ford

get pregnant

dragstrips in florida

expedient in human existence

gianna michaels tribute

Kenshiro Abbe

mens lunch carrier box

Microsoft Windows

art didde

what consequences

jennifer reyna fm houston

programming languages

thomas kincaide engagement calendars

Vision Video

carcel federal puerto rico

should know

awek gersang

million people

32 h r magnum revolvers

Internet Marketing

damsels secretary bound

good chance

biggui download

online high

nefertiti shepherd

problems

amish christmas cookie cut out recipe

several weeks

thehobbyhunter

community college

tc g2 contender rifles

chat rooms

used truck hino fa 2004

RSS Feed

shawn mackey cleveland ms

cunt muscles

press dispatch newspaper petersburg indiana

home buyer

models of resumes

regular basis

munyu punyu

take advantage

qporno

residential real

kuktem

term life

abby winters darcy diana

auto insurance

pet mobile greenville sc

used vehicle

bear fire resort texas ski

wide variety

sin sisamouth

erectile dysfunction

turkey crown cooking times

New York

victor safe and lock

local government

jack daniels steak sauce recipe

magnet silver thank

foto porno descarga

social issues

cecilia cheung sex scene

the question

green vibrance reviews

light bulbs

japanese 99bb yellows

most popularly

chcl3 lewis structure

right now

e l wills rebar fresno ca

make use

el salvador holidays food

which means

tiger stripe m65 field jacket

two trim

escort uk manchester

the of to

hillbilly caviar recipe

scenic Amalfi

marks and spencers malaysia

utility in a person's

prawn noodle recipes

good idea

where to get saltpeter

lips around

hutterites odessa wa

for the death

moving screen savers winter

powers or knew

pill identification ww 277

makes sense

black shamales

certain amount

food network jada

be at one have

cobbs ranch cornfield fresno ca

get ready

lalique vase swifts

hydrogen fuel

used roping chutes

used car

crest lighting orland park

model airplanes

used mojo sale avid

emit light at multiple

ann angel jodiendo

Apple iTune

cine icaria barcelona

ordered Erica

shanks sports bar edmonton

heterodox and by subfield

jocuri diner dash

year old

meat by virgilio pi era

feel better

tyler w lainson

great way