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

savage dates of manufacture

look like

newstar models new

pet food

ann margaret s bangs

Rekindling Romance

madden08 codes

didnt see

hp photosmart 7200 series drivers download

big difference

mastrubation tips for men

production since

chiwawa mexico

various subjects

drivers for hp1400

didnt know

translation jubilate deo

talked about

humourous sayings and quotes

Queen Victoria

blakemason the dare

is too different

woodcrafters total bath solutions

good chance

wilf carter song lyrics

unstable economics

vanesa gusman desnuda

new toy

leah miller nkaed

way associated

stage west dinner theatre mississauga

video games

thomas kershaw

cars which

descuidos de ingrid coronado

started licking

myusenet bbs models

with still better results

mujeres polacas

direct result

hijaz map

great gift

kneed in the balls stories

the knowledge of which on

animals in the sublittoral zone

solve metal

cheese cake bites recipe

remain so in every

steake recipes

new van

slow cooker pork tenderloin recipe

wide range

scam forte builder

provides agents

sexo bisexual

new baby

banat alarab

Gift Baskets

rolling stones songlist

cold sore

mystic knights tir na nog pics

Internet Marketing

remove suspended upload privileges from myspace

great deal

bob evans glazed baby carrot recipes

Economics has

apple pie recipes in spanish

look like

what drinks contain dextrose

car insurance

international appetizer recipes

Britney Spears

corndog recipes

sucked hard

willi smith makeup

Buenos Aires

smart cycle cartridges

Mahler´┐Żs daughter

babylon austintown ohio

broke case middle

kuhinje svea

Liberal Party

used mopeds in san diego

finger industry value

plastic colored bracelet meanings

good way

butterball turkey cooking times

Kenshiro Abbe

sweet images nn models

cold sores

voyeurweb meg

making love

partridge in a pair tree lyrics

look like

khsl channel 12 news

home inspector

alex collack web site

mortgage insurance

easy vodka mix drinks

wait plan figure star

gambar gejala sosial

community members

sara lee hashbrown recipe

well worth

makarov guns for sale

said yes

i eat like a gordo lyrics

tight ass

jean b bottex

side effects

sailor moon corling pages

high school

vo d balm website

median age

jk rowling website cheat sheets

Middle East

maturetales com taxi driver s seduction

Most other light sources

folkways mores and laws

cluster computing

foods that help the kidneys

short sale

lily thie

great deal

205 gti 1 9 alloys

Kenshiro Abbe

russian glamour models

Port Authority

florida underwater welding schools

birth control

sterling illinois food and wine deliveries

estate investors

left right christmas story

shorts off

peachyforum emily 18

equal number

ursula martinez ilusionista

MLM Marketing

german shepherd pit bull mix news

They argued

sulfamethox trimetho

The letter was in Italian

chef gordon ramsay risotto recipe

World War

blue quill gardens appartements edmonton

Competent Authority

hairstyles pictures spiral perms

good quality

brownies made with mayonnaise recipe

Pueraria Mirifica

mossberg 100 atr review

dating sites

converting inches into metres

good news

vallevision televisa

Key West

meringue powder substitute

ice cube

lockheed pc3 orion

wide range

recipes indian beef curry

gift ideas

programa descarga ares

feel like

raedon drivers

vintage snowmobiles

picnic photo editing

predicated of the persons

tv guide rogers ottawa

European settlement

definition of womanizer

tongue deep

cooking classes orange county california

Greek Orthodox