<%@LANGUAGE="VBSCRIPT"%> <% '=============================================== ' Personals System 2002 ' ©2002 vSpin.net. www.vspin.net '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. vSpin.net copyright notices must ' remain in the ASP sections of the code. '=============================================== %> <% set rsForums = Server.CreateObject("ADODB.Recordset") rsForums.ActiveConnection = MM_conn_STRING rsForums.Source = "SELECT * FROM FORUMS ORDER BY FOR_LAST_POST DESC" rsForums.CursorType = 0 rsForums.CursorLocation = 2 rsForums.LockType = 3 rsForums.Open() rsForums_numRows = 0 %> <% Dim RepeatForum__numRows RepeatForum__numRows = -1 Dim RepeatForum__index RepeatForum__index = 0 rsForums_numRows = rsForums_numRows + RepeatForum__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
 MESSAGE BOARDS
Forums

Topics

Replies

Reads

Last Post

<% While ((RepeatForum__numRows <> 0) AND (NOT rsForums.EOF)) %> <% RepeatForum__index=RepeatForum__index+1 RepeatForum__numRows=RepeatForum__numRows-1 rsForums.MoveNext() Wend %>

"><%=(rsForums.Fields.Item("FOR_NAME").Value)%>

<%=(rsForums.Fields.Item("FOR_DESCRIPTION").Value)%>

<%=(rsForums.Fields.Item("FOR_TOPIC_COUNT").Value)%>

<%=(rsForums.Fields.Item("FOR_REPLY_COUNT").Value)%>

<%=(rsForums.Fields.Item("FOR_READ_COUNT").Value)%>

<%=(rsForums.Fields.Item("FOR_LAST_POST").Value)%>

<% rsForums.Close() %> <% set rsTopicNew = Server.CreateObject("ADODB.Recordset") rsTopicNew.ActiveConnection = MM_conn_STRING rsTopicNew.Source = "SELECT MESSAGES.MSG_ID, MESSAGES.FOR_ID, MESSAGES.MSG_SUBJECT, MESSAGES.MSG_AUTHOR, MESSAGES.MSG_DATE, MESSAGES.MSG_REPLY_COUNT, MESSAGES.MSG_READ_COUNT, MESSAGES.MSG_LAST_POST, FORUMS.FOR_NAME FROM MESSAGES INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID ORDER BY MSG_LAST_POST DESC" rsTopicNew.CursorType = 0 rsTopicNew.CursorLocation = 2 rsTopicNew.LockType = 3 rsTopicNew.Open() rsTopicNew_numRows = 0 %> <% Dim RepeatLongTopicNew__numRows RepeatLongTopicNew__numRows = 10 Dim RepeatLongTopicNew__index RepeatLongTopicNew__index = 0 rsTopicNew_numRows = rsTopicNew_numRows + RepeatLongTopicNew__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
 NEW TOPICS  

Topic

Replies

Reads

Last Post

<% While ((RepeatLongTopicNew__numRows <> 0) AND (NOT rsTopicNew.EOF)) %> <% RepeatLongTopicNew__index=RepeatLongTopicNew__index+1 RepeatLongTopicNew__numRows=RepeatLongTopicNew__numRows-1 rsTopicNew.MoveNext() Wend %>

&for_id=<%=(rsTopicNew.Fields.Item("FOR_ID").Value)%>"><%=(rsTopicNew.Fields.Item("MSG_SUBJECT").Value)%>

by <%=(rsTopicNew.Fields.Item("MSG_AUTHOR").Value)%> on <%=(rsTopicNew.Fields.Item("MSG_DATE").Value)%> in <%=(rsTopicNew.Fields.Item("FOR_NAME").Value)%>

<%=(rsTopicNew.Fields.Item("MSG_REPLY_COUNT").Value)%>

<%=(rsTopicNew.Fields.Item("MSG_READ_COUNT").Value)%>

<%=(rsTopicNew.Fields.Item("MSG_LAST_POST").Value)%>

<% rsTopicNew.Close() %> <% set rsReplyNew = Server.CreateObject("ADODB.Recordset") rsReplyNew.ActiveConnection = MM_conn_STRING rsReplyNew.Source = "SELECT REPLIES.REP_DATE, REPLIES.MSG_ID, REPLIES.REP_AUTHOR, MESSAGES.FOR_ID, MESSAGES.MSG_SUBJECT, MESSAGES.MSG_DATE, MESSAGES.MSG_REPLY_COUNT, MESSAGES.MSG_READ_COUNT, FORUMS.FOR_NAME FROM (REPLIES INNER JOIN MESSAGES ON MESSAGES.MSG_ID = REPLIES.MSG_ID) INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID ORDER BY REP_DATE DESC" rsReplyNew.CursorType = 0 rsReplyNew.CursorLocation = 2 rsReplyNew.LockType = 3 rsReplyNew.Open() rsReplyNew_numRows = 0 %> <% Dim RepeatLongReplyNew__numRows RepeatLongReplyNew__numRows = 10 Dim RepeatLongReplyNew__index RepeatLongReplyNew__index = 0 rsReplyNew_numRows = rsReplyNew_numRows + RepeatLongReplyNew__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
 NEW REPLIES  

Topic

Replies

Reads

Reply Date

<% While ((RepeatLongReplyNew__numRows <> 0) AND (NOT rsReplyNew.EOF)) %> <% RepeatLongReplyNew__index=RepeatLongReplyNew__index+1 RepeatLongReplyNew__numRows=RepeatLongReplyNew__numRows-1 rsReplyNew.MoveNext() Wend %>

&for_id=<%=(rsReplyNew.Fields.Item("FOR_ID").Value)%>"><%=(rsReplyNew.Fields.Item("MSG_SUBJECT").Value)%>

by <%=(rsReplyNew.Fields.Item("REP_AUTHOR").Value)%> on <%=(rsReplyNew.Fields.Item("MSG_DATE").Value)%> in <%=(rsReplyNew.Fields.Item("FOR_NAME").Value)%>

<%=(rsReplyNew.Fields.Item("MSG_REPLY_COUNT").Value)%>

<%=(rsReplyNew.Fields.Item("MSG_READ_COUNT").Value)%>

<%=(rsReplyNew.Fields.Item("REP_DATE").Value)%>

<% rsReplyNew.Close() %> <% set rsTopicHot = Server.CreateObject("ADODB.Recordset") rsTopicHot.ActiveConnection = MM_conn_STRING rsTopicHot.Source = "SELECT MESSAGES.MSG_ID, MESSAGES.FOR_ID, MESSAGES.MSG_SUBJECT, MESSAGES.MSG_AUTHOR, MESSAGES.MSG_DATE, MESSAGES.MSG_REPLY_COUNT, MESSAGES.MSG_READ_COUNT, MESSAGES.MSG_LAST_POST, FORUMS.FOR_NAME FROM MESSAGES INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID ORDER BY MSG_READ_COUNT DESC" rsTopicHot.CursorType = 0 rsTopicHot.CursorLocation = 2 rsTopicHot.LockType = 3 rsTopicHot.Open() rsTopicHot_numRows = 0 %> <% Dim RepeatLongTopicHot__numRows RepeatLongTopicHot__numRows = 10 Dim RepeatLongTopicHot__index RepeatLongTopicHot__index = 0 rsTopicHot_numRows = rsTopicHot_numRows + RepeatLongTopicHot__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
 HOT TOPICS  

Topic

Replies

Reads

Last Post

<% While ((RepeatLongTopicHot__numRows <> 0) AND (NOT rsTopicHot.EOF)) %> <% RepeatLongTopicHot__index=RepeatLongTopicHot__index+1 RepeatLongTopicHot__numRows=RepeatLongTopicHot__numRows-1 rsTopicHot.MoveNext() Wend %>

&for_id=<%=(rsTopicHot.Fields.Item("FOR_ID").Value)%>"><%=(rsTopicHot.Fields.Item("MSG_SUBJECT").Value)%>

by <%=(rsTopicHot.Fields.Item("MSG_AUTHOR").Value)%> on <%=(rsTopicHot.Fields.Item("MSG_DATE").Value)%> in <%=(rsTopicHot.Fields.Item("FOR_NAME").Value)%>

<%=(rsTopicHot.Fields.Item("MSG_REPLY_COUNT").Value)%>

<%=(rsTopicHot.Fields.Item("MSG_READ_COUNT").Value)%>

<%=(rsTopicHot.Fields.Item("MSG_LAST_POST").Value)%>


<% rsTopicHot.Close() %>