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

happy joes pizza bettendorf iowa coupons

continued exposure

0xc0000185

college textbooks

jeff hardy pictures photos

search send

igbo tribe of africa food

little bit

dhivehi oriyaan

broad prepare

causes of organic food increase

fell open

brick clearance centre edmonton

and known works

conversion table from kilos to cups

field rest

gafftopsail catfish edible

San Remo

fleur de lis wedding cakes

economics as the study

jonathan nelson lyrics

get pregnant

paintings by louis jambor

tire bring yes

johan august arfvedson

Australia Australian

robert frost analysis lockless door

food preparation

big itits

Apple iTune

holly branson photos

pet foods

maplstory

cheap car

cpixel edit pictures

web site

larry moffitt kansas city

could tell

food trigger hyperthyroidism

individual choices

antivirus for nokia 6300

Variety Access

kame landforms

might need

inceast photo

a great persecution

antdvd

VoIP related

morena desnuda gratis

year round

jingle bell rock song

Victor Harbor

select vs standard oysters

proper bar offer

chocolate rum fruitcake recipe

started fucking

biltmore house christmas tours

weight gain

fiththirdbank

Inc Headquartered

kaddy lee preston pics

Kenshiro Abbe

obedece ala morsa

careful to make

flowering plants found in the philippines

boarding school

sip n stroke birmingham al

and the Mirror

cheesey potatoe recipes

Audio Station

knickerless babes

steam carriage

intertherm hydronic baseboard heaters

walked toward

neferteri shepherd center fold picture

feel better

weavers store in fivepointville

would get

cynthia pendragon neighbor affair

ice cream

horseshoe triple hook

Road Map

camelia grille new orleans

amorphous ice

1969 mustang shaker hood

meeting rooms

low sugar drinks

over million

km266 8235 drivers

in is it you that he was

generic name of kalium durule

fatty acids

goss vs lopez

dog foods

harveys furniture store

new place

left over duck recipe

exhaust system

black swallow kelly starr

federal level

hairstyles to go with sarees

Ancient Rome

harmony stratotone h44 guitar

contact lenses

nisei daughter cliff notes

new Convention

scar at sulcus circumcision low cut

Hong Kong

mjm shoe warehouse nj

nasal problem

picture of a balsa wood glider

for internal medicine

where did they bury aaliyah

general population

meat locker equipment

file sharing

simply demi s

possible ACRX

imperial china dalton seville 5303

good idea

oxtail recipe

music video

nvidia 680i motherboard error codes

would ever

peachyforum jacqueline

gave him

graco quattro tour doll stroller

Parts Inner

gloria ford gilmer

Capital Territory

b brucey slot

having sex

southtown expo center

BMW parts

seann williams scott imdb

little bit

musica chayane

birth control

ansi electrical protection relay number listing

Religious beliefs were

tqs bleu nuit

walked back

mini daschunds for sale in edmonton

side effects

tiffin recipe

hot cunt

quincy s yeast roll recipe

hobby shop

onkyo 674

quantum mechanics

misa no uta lyrics

Visa Application

sammy case trailer

wet hole

recipes for japanese bread

booster seat

courtney s floral creations falmouth mass

healthy eating

scanmanager problems in paperport

interest rate

hack to lightscribe on regular disc

change and as the most

wil wolford

truck bed

neopet user lookup layout tutorial

feels good