<%@ LANGUAGE = "VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<% Response.Expires = -1 %>
<% Response.CacheControl = "Public" %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** iPortalX.com
'**
'** Copyright 2001-2003 Drew Gauderman All Rights Reserved.
'**
'** This program is a paid software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may NOT use parts of this program in your own private work, and you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** Support is for those that have purchased it. Post support questions at: -
'** http://www.iportalx.com/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** support@iportalx.com
'**
'****************************************************************************************
Dim blnBannedIP
Dim intRecordPositionPageNum
If bannedIP() Then
'If the user is using a banned IP then set the banned IP variable to true and active member variable to false
blnBannedIP = True
blnActiveMember = False
End If
'If the user is not allowed then send them away
If intGroupID = 2 OR blnActiveMember = False Then
'Clean up
adoCon.Close
Set adoCon = Nothing
Set rsCommon = Nothing
'Redirect
Response.Redirect("forum/insufficient_permission.asp?Redirect=" & RedirectOmitPath("Redirect", True))
End If
intTypeID = Clng(Request.QueryString("TYP"))
Call DirectoryDetials(intTypeID)
If blnActiveMember = False Then
adoCon.Close
Set adoCon = Nothing
Set rsCommon = Nothing
Response.Redirect("forum/insufficient_permission.asp?M=IP")
End If
%>
<% = strWebsiteName %> - <% = strTxtMyLinks %>
<% If blnMemberEditThereLink = False Then %>
<%
Dim intTotalNumNewsEntries
Dim intTotalNumNewsPages
Dim intLinkPageNum
intTypeID = Clng(Request.QueryString("TYP"))
If intTypeID = 0 Then intTypeID = 1
If Request.QueryString("PN") = "" Then
intRecordPositionPageNum = 1
Else
intRecordPositionPageNum = CInt(Request.QueryString("PN"))
End If
Dim rsLinks
Set rsLinks = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT " & strDbTable & "Entry.*, " & strDbTable & "Author.Username FROM " & strDbTable & "Entry "
strSQL = strSQL & "INNER JOIN " & strDbTable & "Author ON " & strDbTable & "Entry.Author_ID = " & strDbTable & "Author.Author_ID "
strSQL = strSQL & "WHERE " & strDbTable & "Entry.Type_ID = " & intTypeID & " AND " & strDbTable & "Entry.Author_ID = " & lngLoggedInUserID & " "
strSQL = strSQL & "ORDER BY " & strDbTable & "Entry.Created_date DESC;"
rsLinks.CursorType = 3
rsLinks.Open strSQL, adoCon
rsLinks.PageSize = 8
If rsLinks.EOF Then
%>
<% = strTxtSorryYouHaveNoEntriesToDisplay %>
<%
Else
rsLinks.AbsolutePage = intRecordPositionPageNum
intTotalNumNewsEntries = rsLinks.RecordCount
intTotalNumNewsPages = rsLinks.PageCount
For intRecordLoopCounter = 1 to 8
If rsLinks.EOF Then Exit For
Call FormatEntryFields()
'Get the display of links from the format_entry.asp file
Call FormatEntryDisplay(intEntryID, intEntryAuthorID, strEntryName, strEntryAuthor, strEntryDescription, intEntryNoOfRatings, intEntryRating, strEntryCreatedDate, intEntryTotalVisits, intEntryStatus, intTypeID, blnVisitEntry, intEntryTotalReviews)
rsLinks.Movenext
Next
End If
If intRecordPositionPageNum > 1 or NOT rsLinks.EOF Then
Call FormatTopTable2("100%")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
Response.Write vbCrLf & strTxtPage & " "
If intRecordPositionPageNum > 1 Then
Response.Write vbCrLf & "<< " & strTxtPrevious & " "
End If
If intRecordPositionPageNum > 1 or NOT rsLinks.EOF Then
For intLinkPageNum = 1 to intTotalNumNewsPages
If intLinkPageNum = intRecordPositionPageNum Then
Response.Write vbCrLf & intLinkPageNum
Else
Response.Write vbCrLf & " " & intLinkPageNum & " "
End If
Next
End If
If NOT rsLinks.EOF then
Response.Write vbCrLf & " " & strTxtNext & " >>"
End If
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
Call FormatBottomTable("100%")
End If
rsLinks.Close
Set rsLinks = Nothing
End If
%>
<%
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<% = strWebsiteName %> : <% = strTxtMyLinks %>