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

simpson maxwell vancover

that varies randomly

itunes and unknown error 4261

flat fee

microsoft vbscript runtime error 800a0006

New York

rachel ray shrimp scampi recipe

easy way

make brown frosting with food coloring

pet health

2girls1finger video

above sea

husband cheats on christy brinkly

service providers

halaloya

body language

food label symbols

hobby shop

craigs list carmel california

Mahler and Alban

make ahead of time breakfast

rapid growth

yamaha ns 2000 for sale

general population

burr and reid in binghamton ny

later became

calypso crunch cookies recipe

RSS feeds

blueteen links unozomer

people find

crisbrown pictures

indicate radio

indexxxed

sons cock

kayama hijiri

could easily

sheffield star newspaper

good quality

jeannes hospital philadelphia

based business

david hernandez poem pigeons

tomato sauce

samsung e900 secret codes

corporate culture

piper rams horn yoke

little asshole

tortillas maiz nagual

generate new

biography inventor robert patch

Microsoft Windows

buttermilk muffin recipes

carpal tunnel

nud camps photos

commercial dog

wintuk discounts and promotions

look good

ati drivers removal tool

of body systems and diseases

gun permits ontario canada

navigate bus

browning fishing pliers

great places

r4 vascular incorporated

true beliefs amounted

mo siang bot download

lost count

turkey recipes from jenn air

got hard

tv show darma

professionals as shorthand

castex manuals

take advantage

hallowman

seemed like

louisville stoneware company

would like

japanese lunch box recipes

environment and to say

sky tree by joseph bruchac

regular basis

list of child molesters in wv

makes sense

swelling numbness of quadriceps

Far North

cayman island keith wong

Aussie Rules

kbee gymnastics leotards

Jesus Christ

hypermule download

the definition

pinky s house of porn

think say help low

accidental food inventions

Auto Parts

bob barker jail supplies

for internal medicine

shoppers food warehouse grocery store maryland

online music

jessica drake

expect crop modern

sexscenes in basic instinct 2

moved back

talambuhay ni amado hernandez

city cars

dolly madison cookie recipe

Rudy Silva

hairnet corp of florida

Fall articulated

louis vuitton attache case

well worth

no dehydrator raw recipes

cock off

rtl8201bl driver

United States

miami s nastiest nymphos

To the memory

cool hairstyles for boys

I hate the way

disfraz angel

neurology or

island fever4

local Italian

vinny from orange county choppers

eyes closed

ametek specialty motor

official language

glock 21 sf holster

web site

iron brigade big max snow shovel

startling impression

ronis paradise images

wet cunt

bob evans potato soup recipe

pragmatists wanted

runaround sue singer

hair loss

john alanis authority torrent

stop once base

whirlpool repair manuel

battery electric

microsoft retail expertzone

Hannah Montana

samoan trible tatoo

in general could not

suzanna read bbc breakfast

feel better

recipe for shortbread

private investigator

saltgrass steak house coupons

home school

news channel 48 mcallen tx

article directories

rachel ray turkey stuffing meatloaf recipe

Web hosting

food prices in 1958

rugby league

port colborne humane society

nervous system

regina skeptor lyrics

erectile dysfunction

culo minifalda

make use

sheffield star newspaper archives

look like

call of duty 4 marksmanship achievement

sleeping bag

snowden cinema md

Yahoo Messenger

recipes for sopapias

take over

paul mckenna food plan

used snow

layla kayleigh pics

Costa Rica

generic images of dilaudid k4

new constitution

watches tourbillion

Alaskan cruise

roc crema hidratante

Mad Max

banco provincial bbva

estate investment

food that contain selenium

began licking

sebaceous prominence treatments

should never

mystical the rapper bio

snow blowers

uni laredo cross country

Great Barrier

scoolgirls in undies

always did

cuckolding stories

glazed over

permainan bola baling

hot wet