<%@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
%> Car Club
and societies
make love
business consulting
Double fisting
symphony orchestras
pulled off
race car
Summer Olympics
animal photos
distribution and consumption
noni juice
get away
lose weight
home based
Italian wines
female sexual
now works
federal election
female hair
couldnt believe
dry dog
looks like
long enough
a part of the Comhairle nan Eilean Siar
sex drive
didnt seem
Automotive Technology
should never
social anxiety
John Paul
Yes Mistress
Yahoo Search
home seller
vacation home
shirt off
taking place
World Cup
strength training
Cedar siding
motor car
left breast
cock felt
National Park
such as Gustav
Cedar siding
two fingers
internet marketing
saw Lisa
panties off
sites offer
announced on the two
buy Intrinsa
free online
which means
data entry
written records of island
Paul Keating
website links
focus upon
came home
dessert indulge
the esprit
ebook Craft
makes sense