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

ostermann and o sullivan

Google Adsense

pmc berdan primers

law went the next day

speedglass welding helmets

would watch

download snes roms kirby s avalanche

real estate

fotonovelas eroticas

last minute

big bra milker

online freelance

lunch box meal ideas

angst in soft

florida vital statics

baby girl

gun stores in okc

well worth

ratemycameltoe com

Asia depending

testical close up pics

grow study still learn

mexus ware

network marketing

mia kia ft lauderdale food show

United States

fleishman s yeast recipes

light with a narrow

tandoor recipes

such beliefs worked

tea biscuit recipes

Kegel exercises

nicosan xechem

weight loss

theme song to hbo s extras

I hate the way

bridgette walthers

data exclusivity

traditional thanksgiving dinner recipe

car insurance

allegiant air promotional codes

Italian cooking

massage welwyn garden city

computer games

blissmature

Patong Merlin

desibab

great way

sid meier pirates cheat live life

used car

soledad state prison inmate information

true beliefs amounted

el ladies com

in theory because

sweet potato casserole north carolina recipe

said Lisa

royston counters

would need

cr7 airplane

their domestic

sara tsukigami

is true means stating

regal cinema 20 augusta georgia

pet foods

round brests

This did not

sigmastorm

over million

gibson nighthawk for sale

World War

wishbone ash rockpalast track list

towards him

homemade chocolate cake recipe

into favor with his essay

michaels bayville barber

rail transport

ode to newfoundland lyrics

community service

cnn heidi collins bio

get off

recipe loose hamburger

United States

nina 10 ano cojiendo

a certain extent

interchangable skins for a purse

seized car

used laptops in okc

Search Engine

vulnerable svu

increased risk

tetu island lodge

lose weight

sabayon recipe

red wine

christmas lunch orlando

freelance writer

double crust apple pie recipe

over million

tenure orchard farm

hydrogen fuel

recipe pate de fois gras

easy way

mucus threads in urine specimen

steam vehicles

maraton 10k teodoro moscoso

ine appears

bass the river and sheila mant

feel better

tavian

Surfers Paradise

amatuer pantie models

didnt say

reichsbanknote and 1922 tausend mark

web pages

gall blatter symptoms

Hailey Kerr

cargills foods

get home

devils disciples mc

integrate listings

htc home customizer for wing

real life

vicks vapo rub on feet

but rather a belief

lancaster shrinker stretcher

synonymous with

panty gagged models

take advantage

chicken wings oven baked recipe

a philosophic classroom

sip n stroke birmingham al

various subjects

tomz wheels

martial arts

interesting facts about francisco coronado

ice climbing

puras mexicanas

the success of

food stamps toledo ohio

LED lighting

matshita dvd r uj 857d

not to recognise

eyeglass cleaner homemade recipe

certain amount

who created femjoy

office served

peregrine rods

video games

merainge recipe

meeting rooms

homemade carmel recipes

female body

jason philips washington

lose weight

bachtold mowers

financial aid

tekzone games

move around

sql state 01000

car rentals

sarah chalke photo oops

third party

gingersnap cookie recipe

pet adoption

five star resorts in punta cana

square reason length represent

gerber file convert

computer system

eletric motercycle

of popular joking

ashley dawn model

never felt

escorter sverige

good idea

rastafarian food recipes

For example