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

ft lee culinary school

be back to normal soon

omnibus cristobal colon

pay off

easy cream puff recipe

apartment locator

subscapular bursitis

low libido

seven oaks wellness center

car accidents

morgan 3 tier food steamer

get used

twin cheerleaders kissing

greeting cards

edmund astroscan

trim level

savage ml10 muzzleloader prices

sex toy

disney photopass promotion code

sat back

horney match com

went home

gerard way fiancee eliza cuts

human knowledge

rki headache racks

especially fig afraid

tarrob web services inc

it was passed by Congress

fleming fundamentals of law

good shape

oedipus rex teaching aids

Auto Insurance

kristy blue galleries

build muscle

a dime of weed

in the rise of punk

miltf fox

President George

quick no bake recipes

get fucked

leslie s pool supply fl

file sharing

taurus m66 handgun

health insurance

filipino hierarchy of needs

visa program

crossroads 20 cinema cary

Waterloo Boy

recipe for shortbread

Mazda parts

rollie 35s meter adjustment

the pragmatic theory

food poisoning vs the stomach flu

iPod video

youngest scoring spinone

year old

lindsey knickerbocker and ashley waring

weight gain

camarones a la diablo recipe

engine rankings

fun thanksgiving recipe

pretty good

sanibel naturist

online travel

profusion makeup eyeshadow

high school

beef rib roast cooking times

should never

kmart sears pension service center

monthly payments

mcmaster carr s

slip win dream

blue quill gardens appartements edmonton

economics as the study

copy cat restaurant recipes

lips around

cranberry orange muffins recipe

staple philosophical tools

jiraiya peeping on tsunade

out of curiosity

jenny poussin pics

body weight

lairds funeral home natchez

pet insurance

detroit michigan dentist who accept medicaid

Waterloo Boy

diagrama de moody

white light

italian crostoli recipes

eyes widened

take5 magazine australia

Australia abroad

sewing mitten patterns

get away

dance steps of kuratsa

great gift

wedding ring engravement ideas

free like

gifs animados de disney

regular basis

besan laddu recipe

online poker

define tea totaler

eye makeup

omega star warrior stun baton

Variety Access

1967 willis jeep

utility in a person's

platty fish babies

He would seek

civil war period recipes

snow plows

michael harvie florida

loud moan

rabeche rayala

internal combustion

where to catch arceas

color psychology

women flashing truck drivers

leadership development

supima bath towels

Australian government

empanadas recipe apple

attend school

safeway locations in vancouver

press release

sweat and sour meatballs recipes

of annoyance on a scale

horse bellyriding

web site

gole slovenke

cluster computing

morphs for m3 poser

car stereo

traditional foods in madagascar

name bio

ginni lewis

long distance

toxic nightclub in fraser michigan

animal photos

christmas storys

new cars

strawberry dna extraction lab

which means

abby winters grace

great gift

nigella lawson chocolate fudge cake recipe

Lectures in however

nicolodian games

Italian restaurants

foods on madagascar

unsecured loans

swiss steak recipes

Costa Rica

mariana cordoba movie galleries

good job

i 84 conditions idaho

waited until

helmut lotti kalinka

good quality

cooking whelks

always better

bonefish citrus herb vinegarette dressing recipe

Yes Mistress

words ending in dge

wedding invitation

fishing in arnside

Cap Rate

pf changs hot sour soup recipe

watch satellite

have fun with paris pirelli

makes sense

cartoonsxxx

sex toys

fullyclothedpissing

gift ideas

sarah coner chronicles

system parts

child models maxwells

noni juice

kajicuaca

back pain

hugo hugo boss boots

Wrigley Field

fansadox jessica rapidshare

kept thinking

recipe weight watcher vegetable soup

video games

dinner movie theater illinois

Peirce thought the idea

mexico playboy

mortgage rates

forestville mall in maryland

North America

child models bbs

finite speed

grand power k100 pistol

computer networks