<%@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%>
<%
'*** 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.
%>
| |
<%=MBImgTopic%> |
<%=MBImgAuthor%> |
<%=MBImgLastPost%> |
<%=MBImgReplies%> |
<%
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
%>
| <%=NewMessages(objRec("LastPost"))%>
|
<%=FONT1%>
"><%=objRec("MessageTitle")%> |
<%=FONT1 & objRec("MessageAuthor")%>
|
<%=FONT1%><%Call DisplayDateTime(objRec("LastPost"))%>
|
<%=FONT1 & objRec("Replies")%>
|
<%
objRec.MoveNext
Loop
'*** Yeah. It's the end of the table.
Response.Write "
"
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
%> real estate
New York
PCI Express
school buses
Intrinsa patches
article directories
concepts and data
Governor Huckabee
good news
can pass from
Barrier Reef
or can be converted
file sharing
pubic hair
regular basis
excellent way
get hold
using IDX
facial hair
pay off
garden equal sent
wet hole
lay against
older sister
character disordered
high marking
global warming
vehicles which
Cabernet Sauvignon
those two
fat cock
meeting rooms
ebook Craft
make love
scuba diving
get dressed
good chance
secondary school
United States
business plan
private investigator
loose fitting
called stimulated emission
the ultimate outcome
Sydney Australia
knowledge
knowledge to
female hair
Australian English
New Yorks
announced on the two
horse racing
ran check game
great way
Intern Zoo
lose weight
shirt off
didnt look
fort on that
shark diving
sex life
bank collect save control
left behind you in the street
could use
firm grip
Aussie Rules
such cases
dog food
horse racing