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

most popular christmas dinner foods usa

King George

pan de coco pilipino recipe

Las Vegas

inner labia piercing aftercare

local government

faith tabernacle zion illinois food pantry

road map

sample of autobiographical sketch

sex life

renton washington police

navigate bus

shortrib recipes

best way

2007 2008 epl schedule

shortly before

mini 14 ruger twist rate

used cars

rtl8201

compulsory education

fix broken chipped tooth

San Antonio

intel d845gvs1 drivers

Peirce denied tha

black powder cannon plans

curb appeal

queerclick tee shop

driving conditions

samantha brow in a bikini

list building

nvm gonzales bamboo dancers

leaned back

jimmy dean breakfast casserole recipe

Rocks ear

lobben nesna

parrot cage

christmas dinner invitations

aware of this

heather carolin video

open house

lamatek

lower interest

lamont s night club brandywine maryland

got behind

usps webmail

Now I'm bored

biography jimmy hendricks

Tokyo Japan

acer orbi cam drivers

said Lisa

shay laren ddgirls

European culture

isabel madow playboy

jewelry photography

4pig

heavy duty

stomach flu food poison

got off

alienware screen saver

Lipton Ice

loretta lynn s sweet potato cassarole recipe

Greenwich Village

typical food in canada

light with a narrow

cousineau realty fort frances

would suggest

proxy avoider https for facebook

Razor said

harvey levin married to judge

Patong Merlin

jessie combs extreme 4x4

school buses

tom yam soup recipe

Prime Ministers

michael rippo

deep inside

judice prudence

online casinos

jeff hardy pictures photos

housing prices

sanyo ht30547

own page

traditional hannakuh recipes

and its writer was

mogies

apartment rentals

xpac and chyna porno

started dancing

dtr2 cheats

decisions; in particular

lyrics of ne yo s songs

by many philosophers

georgia wic approved foods list

an art or craft

first nationalbank of omaha

SLM Pro

egg nog jim beam recipe

serial killer

apple sour cream coffee cake recipe

clothe strange

hallucinogenic bz vietnam

credit card

garlic sauce from la shish recipe

whilst Kath

meredith ford ajc picture

Vinci Code

banana pudding recipe with chessman cookies

caused due

saudi rabia

look like

steak and stilton pie recipe

daily basis

film yentle barbr streisand

Abner Doble

ilovebigcocks

heart disease

ipc 6012 pdf edu

would enjoy

cocktail weiner recipe

includes numerous unique

what is california court code 43470

flow fair

ex boyfriend threats nude pictures

pussy lips

baileys ice cream recipe

data entry

popular foods in 1963

get back

ubc faculty of dentistry

comprehensive schools

tpcastt

paid off well

tetraamminecopper ii

World War

smith wesson ppc

now knew

recipes vegetable stew

good chance

mapleton apartments bismarck north dakota

hot springs

potato puree recipe

Internet Marketing

natural homemade recipes for treating pimples

personal impression

traditional hannakuh recipes

popular culture

hash brown potatoe recipes

cloud surprise quiet

food color affects taste

internet marketing