| Author |
 Topic  |
|
|
sabergurl
Starting Member
20 Posts |
 Posted - 06 June 2001 : 18:01:09
|
I have been using the snitz forum for a month now with no problems.
But something just happened. When I click on a topic now, it's showing an error and this message:
Author Topic
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/ebiz/forum/topic.asp, line 460
What happened? I haven't changed anything with the data connection so why doesn't have enough parameters?
Anyone have any ideas? Does this have something to do with the database? I had to create a new database the other day by importing the tables over.
|
|
|
big9erfan
Average Member
540 Posts |
Posted - 06 June 2001 : 18:12:53
|
Have you been changing your code lately? Added a mod?
If you could post the SQL statement that it is trying to execute on line 460 of topic.asp that would help us greatly in assisting you in solving this problem quickly and effeciently.
http://www.ugfl.net/forums |
 |
|
|
sabergurl
Starting Member
20 Posts |
Posted - 06 June 2001 : 18:20:02
|
sub GetFirst()
'## Forum_SQL - Get Origional Posting
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
strSql = strSql & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR "
strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
set rs = my_Conn.Execute (strSql)
There is an error trying to execute this SQL statement.
Hmm... The only hacks I added was the avatar hack and the avatar in admin hack
Edited by - sabergurl on 06 June 2001 18:26:42 |
|
|
|
e3stone
Average Member
USA
885 Posts |
Posted - 06 June 2001 : 18:36:25
|
could you save your topic.asp as a .txt file and post a link to it? I have an idea of what it might be, but I sort of want to see all your code before I jump the gun, so to speak.
<-- Eric -->
InsideWaco.com |
|
|
|
sabergurl
Starting Member
20 Posts |
Posted - 06 June 2001 : 18:41:25
|
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
if Request.QueryString("TOPIC_ID") = "" and Request.QueryString("mode") <> "getIP" and Request.Form("Method_Type") <> "login" and Request.Form("Method_Type") <> "logout" then
Response.Redirect "default.asp"
Response.End
end if
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<%
select case Request.QueryString("mode")
case "getIP"
%>
<!--#INCLUDE FILE="inc_top_short.asp"-->
<%
DisplayIP
IP = ""
Title = ""
%>
<!--#INCLUDE FILE="inc_footer_short.asp" -->
<%
Response.End
case else
'## Do Nothing - Continue
end select
Member_ID = getNewMemberNumber()
if (strAuthType = "nt") then
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
call NTauthenticate()
if (ChkAccountReg() = "1") then
call NTUser()
end if
end if
%>
<!--#INCLUDE FILE="inc_top.asp" -->
<%
if strPrivateForums = "1" then
if Request("Method_Type") = "" then
chkUser4()
end if
end if
if (mLev = 4) or (chkForumModerator(Request.QueryString("FORUM_ID"), ChkString(STRdbntUserName, "decode"))= "1") or (lcase(strNoCookies) = "1") then
AdminAllowed = 1
else
AdminAllowed = 0
end if
'## Forum_SQL - Find out if the Category is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & Request.QueryString("CAT_ID")
set rsCStatus = my_Conn.Execute (StrSql)
'## Forum_SQL - Find out if the Forum is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "FORUM.F_STATUS "
strSql = strSql & " FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID")
set rsFStatus = my_Conn.Execute (StrSql)
'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "TOPICS.T_STATUS "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
set rsTStatus = my_Conn.Execute (StrSql)
if rsCStatus.EOF or rsCStatus.BOF or rsFStatus.EOF or rsFStatus.BOF or rsTStatus.EOF or rsTStatus.BOF then
Response.Redirect(strForumURL)
else
mypage = request("whichpage")
if mypage = "" then
mypage = 1
end if
mySQL = request("strSql")
if mySQL = "" then
mySQL = SQLtemp
end if
'## Forum_SQL - Get all Forum Categories From DB
strSql = "SELECT CAT_ID "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY"
set rsCat = my_Conn.Execute (StrSql)
%>
<script language="JavaScript">
<!--
function jumpTo(s) {if (s.selectedIndex != 0) top.location.href = s.options[s.selectedIndex].value;return 1;}
// -->
</script>
<%
'## Forum_SQL
strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "REPLY.REPLY_ID, " & strTablePrefix & "REPLY.R_AUTHOR, " & strTablePrefix & "REPLY.TOPIC_ID, " & strTablePrefix & "REPLY.R_MESSAGE, " & strTablePrefix & "REPLY.R_DATE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE"
if strDBType = "mysql" then 'MySql specific code
'## Forum_SQL - Get the total pagecount
strSql2 = "SELECT COUNT(" & strTablePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT "
strSql2 = strSql2 & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
strSql2 = strSql2 & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
strSql2 = strSql2 & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
set rsCount = my_Conn.Execute(strSql2)
if not rsCount.eof then
maxpages = (rsCount("REPLYCOUNT") \ strPageSize )
if rsCount("REPLYCOUNT") mod strPageSize <> 0 then
maxpages = maxpages + 1
end if
else
maxpages = 1
end if
set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize= strPageSize
rs.open strSql, my_Conn, 3
if not(rs.EOF) then
rs.movefirst
end if
else 'end MySql specific code
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = strPageSize
rs.open strSql, my_Conn, 3
If not (rs.EOF or rs.BOF) then '## No replies found in DB
rs.movefirst
rs.pagesize = strPageSize
rs.absolutepage = mypage '**
maxpages = cint(rs.pagecount)
end if
end if
i = 0
%>
<table border="0" width="95%">
<tr>
<td width="50%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="icon_folder_open.gif" height="15" width="15" border="0"> <a href="default.asp">All Forums</a><br>
<img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_open.gif" height="15" width="15" border="0"> <a href="FORUM.asp?FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %></a><br>
<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0 then %>
<img src="icon_blank.gif" height="15" width="15" border="0"><img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_open_topic.gif" height="15" width="15" border="0"> <% =ChkString(Request.QueryString("Topic_Title"),"display") %>
<% else %>
<img src="icon_blank.gif" height="15" width="15" border="0"><img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_closed_topic.gif" height="15" width="15" border="0"> <% =ChkString(Request.QueryString("Topic_Title"),"display") %>
<% end if %>
</font></td>
<td align="center" width="50%"><% call PostingOptions() %></td>
</tr>
<tr>
<td align="right" colspan="2">
<% if maxpages > 1 then %>
<table border="0" align="right">
<tr>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Pages: </b></font></td>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% Call Paging() %></font></td>
</tr>
</table>
<% else %>
<td align="right"> </td>
<% end if %>
</td>
</tr>
</table>
<table border="0" width="95%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="<% =strTableBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<tr>
<td align="center" bgcolor="<% =strHeadCellColor %>" width="<% =strTopicWidthLeft %>" <% if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Author</font></b></td>
<td align="center" bgcolor="<% =strHeadCellColor %>" width="<% =strTopicWidthRight %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% if strShowTopicNav = "1" then Call Topic_nav() else Response.Write("Topic") end if%></font></b></td>
<% if (AdminAllowed = 1) then %>
<td align="right" bgcolor="<% =strHeadCellColor %>" colspan="2" nowrap><% call AdminOptions() %></td>
<% else %>
<td align="right" bgcolor="<% =strHeadCellColor %>" nowrap> </td>
<% end if %>
</tr>
<%
if mypage = 1 then
Call GetFirst()
end if
%>
<%
'## Forum_SQL - Get all topicsFrom DB
strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_ICQ, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AIM, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_Homepage, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_COUNTRY, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
strSql = strSql & strTablePrefix & "REPLY.REPLY_ID, "
strSql = strSql & strTablePrefix & "REPLY.R_AUTHOR, "
strSql = strSql & strTablePrefix & "REPLY.TOPIC_ID, "
strSql = strSql & strTablePrefix & "REPLY.R_MESSAGE, "
strSql = strSql & strTablePrefix & "REPLY.R_DATE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE"
if strDBType = "mysql" then 'MySql specific code
if mypage > 1 then
intOffSet = CInt((mypage - 1) * strPageSize) - 1
strSql = strSql & " LIMIT " & intOffSet & ", " & CInt(strPageSize) & " "
end if
'## Forum_SQL - Get the total pagecount
strSql2 = "SELECT COUNT(" & strTablePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT "
strSql2 = strSql2 & " FROM " & strTablePrefix & "REPLY "
strSql2 = strSql2 & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
set rsCount = my_Conn.Execute(strSql2)
if not rsCount.eof then
maxpages = (rsCount("REPLYCOUNT") \ strPageSize )
if rsCount("REPLYCOUNT") mod strPageSize <> 0 then
maxpages = maxpages + 1
end if
else
maxpages = 1
end if
set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize = strPageSize
rs.open strSql, my_Conn, 3
else 'end MySql specific code
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = 20
rs.open strSql, my_Conn, 3
if not(rs.EOF or rs.BOF) then '## Replies found in DB
rs.movefirst
rs.pagesize = strPageSize
maxpages = cint(rs.pagecount)
rs.absolutepage = mypage
end if
end if
if rs.EOF or rs.BOF then '## No replies found in DB
Response.Write ""
else
'rs.movefirst
intI = 0
howmanyrecs = 0
rec = 1
do until rs.EOF or (mypage = 1 and rec > strPageSize) or (mypage > 1 and rec > strPageSize) '**
if intI = 0 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
%>
<tr>
<td bgcolor="<% =CColor %>" valign="top">
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("R_AUTHOR") %>">
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("R_AUTHOR") %>')">
<% end if %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =ChkString(rs("M_NAME"),"display") %></a>
</b></font>
<% if strShowRank = 1 or strShowRank = 3 then %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></small></font>
<% end if %>
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
<br><% if Trim(rs("M_AVATAR_URL")) <> "" and lcase(rs("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rs("M_AVATAR_URL")) = false) then %>
<% '## Forum_SQL - Get Avatar Settings from DB
strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
set rsav = my_Conn.Execute (strSql) %>
<img src="<% =rs("M_AVATAR_URL") %>" align="absmiddle" width=<% =rsav("A_WSIZE") %> height=<% =rsav("A_HSIZE") %> border=<% =rsav("A_BORDER") %> hspace="0" ><% set rsav = nothing %><% end if %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% =rs("M_COUNTRY") %></small></font>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% =rs("M_POSTS") %> Posts</small></font></td>
<td bgcolor="<% =CColor %>" <% if (AdminAllowed = 1) then %>colspan="3" <% else %>colspan="2" <% end if %> valign="top"><img src="icon_posticon.gif" border="0" hspace="3" WIDTH="15" HEIGHT="15"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Posted - <% =ChkDate(rs("R_DATE")) %> : <% =ChkTime(rs("R_DATE")) %></font>
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>"><img src="icon_profile.gif" height="15" width="15" alt="Show Profile" border="0" align="absmiddle" hspace="6"></a>
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')"><img src="icon_profile.gif" height="15" width="15" alt="Show Profile" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if (lcase(strEmail) = "1") then
if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then
%>
<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><img src="icon_email.gif" height="15" width="15" alt="Email Poster" border="0" align="absmiddle" hspace="6"></a>
<% end if
else
%>
<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><img src="icon_email.gif" height="15" width="15" alt="Email Poster" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if strHomepage = "1" then %>
<% if rs("M_Homepage") <> " " then %>
<a href="<% =rs("M_Homepage") %>"><img src="icon_homepage.gif" height="15" width="15" alt="Visit <% = ChkString(rs("M_NAME"),"display") %>'s Homepage" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
<% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>
<a href="post.asp?method=Edit&REPLY_ID=<% =rs("REPLY_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =ChkString(rs("R_AUTHOR"),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_edit_topic.gif" height="15" width="15" alt="Edit Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if strICQ = "1" then %>
<% if Trim(rs("M_ICQ")) <> "" then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"),"JSurlpath") %>')"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =ChkString(rs("M_ICQ"), "urlpath") %>&img=5" height="15" width="15" alt="Send <% = ChkString(rs("M_NAME"),"display") %> an ICQ Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if strYAHOO = "1" then %>
<% if Trim(rs("M_YAHOO")) <> "" then %>
<a href="JavaScript:openWindow('http://edit.yahoo.com/config/send_webmesg?.target=<% =ChkString(rs("M_YAHOO"), "JSurlpath") %>&.src=pg')"><img src="icon_yahoo.gif" height="15" width="15" alt="Send <% =ChkString(rs("M_NAME"),"display") %> a Yahoo! Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (strAIM = "1") then %>
<% if Trim(rs("M_AIM")) <> "" then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')"><img src="icon_aim.gif" height="15" width="15" alt="Send <% =ChkString(rs("M_NAME"),"display") %> an instant message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>
<a href="post.asp?method=ReplyQuote&REPLY_ID=<% =rs("REPLY_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>&M=<% =Request.QueryString("M") %>"><img src="icon_reply_topic.gif" height="15" width="15" alt="Reply with Quote" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if (strIPLogging = "1") then %>
<% if (AdminAllowed = 1) or (strNoCookies = "1") then %>
<a href="JavaScript:openWindow('topic.asp?mode=getIP&REPLY_ID=<% =rs("REPLY_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="icon_ip.gif" height="15" width="15" alt="View user's IP address" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
<% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>
<a href="JavaScript:openWindow('pop_delete.asp?mode=Reply&REPLY_ID=<% =Rs("REPLY_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="icon_delete_reply.gif" height="15" width="15" alt="Delete Reply" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<hr noshade size="<% =strFooterFontSize %>">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rs("R_MESSAGE")) %><a href="#top"><img src="icon_go_up.gif" height="15" width="15" border="0" align="right" alt="Go to Top of Page"></a></font></td>
</tr>
<%
rs.MoveNext
intI = intI + 1
if intI = 2 then
intI = 0
end if
rec = rec + 1
loop
end if
%>
</table></td>
</tr>
<tr>
<td colspan="2">
<table border="0" width="100%">
<tr>
<td>
<% if maxpages > 1 then %>
<table border="0">
<tr>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic is <% =maxpages %> Pages Long: </font></td>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% Call Paging() %></font></td>
</tr>
</table>
<% else %>
<td valign="top"> </td>
<% end if %>
</td>
<td align="right" nowrap>
<% if (AdminAllowed = 1) then %>
<% call AdminOptions() %>
<% else %>
<% end if %>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
<table width="100%">
<tr>
<td align="center" valign="top" width="50%"><% Call PostingOptions() %></td>
<td align="center" valign="top" width="50%"><!--#INCLUDE FILE="inc_jump_to.asp" --></td>
</tr>
</table>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
end if
sub GetFirst()
'## Forum_SQL - Get Origional Posting
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
strSql = strSql & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR "
strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
set rs = my_Conn.Execute (strSql)
if rs.EOF or rs.BOF then '## No categories found in DB
Response.Write " <tr>" & vbCrLf
Response.Write " <td colspan=5>No Topics Found</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
else
%>
<tr>
<td bgcolor="<% =strForumFirstCellColor %>" valign="top">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>">
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')">
<% end if %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =ChkString(rs("M_NAME"),"display") %></a>
</b></font>
<% if strShowRank = 1 or strShowRank = 3 then %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></small></font>
<% end if %>
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
<br><% if Trim(rs("M_AVATAR_URL")) <> "" and lcase(rs("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rs("M_AVATAR_URL")) = false) then %>
<% '## Forum_SQL - Get Avatar Settings from DB
strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
set rsav = my_Conn.Execute (strSql) %>
<img src="<% =rs("M_AVATAR_URL") %>" align="absmiddle" width=<% =rsav("A_WSIZE") %> height=<% =rsav("A_HSIZE") %> border=<% =rsav("A_BORDER") %> hspace="0" ><% set rsav = nothing %><% end if %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% =rs("M_COUNTRY") %></small></font>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><% =rs("M_POSTS") %> Posts</small></font></td>
<td bgcolor="<% =strForumFirstCellColor %>" <% if (AdminAllowed = 1) then %>colspan="3" <% else %>colspan="2" <% end if %> valign="top"><img src="icon_posticon.gif" border="0" hspace="3" WIDTH="15" HEIGHT="15"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Posted - <% =ChkDate(rs("T_DATE")) %> : <% =ChkTime(rs("T_DATE")) %></font>
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>"><img src="icon_profile.gif" height="15" width="15" alt="Show Profile" border="0" align="absmiddle" hspace="6"></a>
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')"><img src="icon_profile.gif" height="15" width="15" alt="Show Profile" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if (lcase(strEmail) = "1") then
if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then
%>
<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><img src="icon_email.gif" height="15" width="15" alt="Email Poster" border="0" align="absmiddle" hspace="6"></a>
<% end if
else
%>
<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><img src="icon_email.gif" height="15" width="15" alt="Email Poster" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if (strHomepage = "1") then %>
<% if rs("M_Homepage") <> " " then %>
<a href="<% =rs("M_Homepage") %>"><img src="icon_homepage.gif" height="15" width="15" alt="Visit <% =ChkString(rs("M_NAME"),"display") %>'s Homepage" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
<% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %>
<a href="post.asp?method=EditTopic&REPLY_ID=<% =rs("TOPIC_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_edit_topic.gif" height="15" width="15" alt="Edit Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (strICQ = "1") then %>
<% if Trim(rs("M_ICQ")) <> "" then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "JSurlpath") %>')"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =ChkString(rs("M_ICQ"), "urlpath") %>&img=5" height="15" width="15" alt="Send <% =ChkString(rs("M_NAME"),"display") %> an ICQ Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (strYAHOO = "1") then %>
<% if Trim(rs("M_YAHOO")) <> "" then %>
<a href="JavaScript:openWindow('http://edit.yahoo.com/config/send_webmesg?.target=<% =ChkString(rs("M_YAHOO"), "JSurlpath") %>&.src=pg')"><img src="icon_yahoo.gif" height="15" width="15" alt="Send <% =ChkString(rs("M_NAME"),"display") %> a Yahoo! Message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (strAIM = "1") then %>
<% if Trim(rs("M_AIM")) <> "" then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "JSurlpath") %>')"><img src="icon_aim.gif" height="15" width="15" alt="Send <% =ChkString(rs("M_NAME"),"display") %> an instant message" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>
<a href="post.asp?method=TopicQuote&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_reply_topic.gif" height="15" width="15" alt="Reply with Quote" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% if (strIPLogging = "1") then %>
<% if (AdminAllowed = 1) or (strNoCookies = "1") then %>
<a href="JavaScript:openWindow('topic.asp?mode=getIP&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="icon_ip.gif" height="15" width="15" alt="View user's IP address" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<hr noshade size="1">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rs("T_MESSAGE")) %></font></td>
</tr>
<%
end if
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_VIEW_COUNT = (" & strTablePrefix & "TOPICS.T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (" & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") & ");"
my_conn.Execute (strSql)
set rs = nothing
End Sub
sub DisplayIP()
usr = (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName))
if (chkUser((STRdbntUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 4) then
usr = 1
end if
if usr then
if Request.QueryString("TOPIC_ID") <> "" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "TOPICS.T_IP, " & strTablePrefix & "TOPICS.T_SUBJECT "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID")
rsIP = my_Conn.Execute(strSql)
IP = rsIP("T_IP")
Title = rsIP("T_Subject")
else
if Request.QueryString("REPLY_ID") <> "" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "REPLY.R_IP "
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE REPLY_ID = " & Request.QueryString("REPLY_ID")
rsIP = my_Conn.Execute(strSql)
IP = rsIP("R_IP")
end if
end if
set rsIP = nothing
%>
<p align="center"><b>User's IP address:</b><br>
<% =ip %></p>
<% else %>
<p align="center"><b>Only moderators and administrators can perform this action.</b></p>
<%
end If
end sub
sub PostingOptions()
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%
if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (STRdbntUserName = "") then
if ((rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1)) then %>
<a href="post.asp?method=Topic&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><img src="icon_folder_new_topic.gif" height="15" width="15" border="0"></a> <a href="post.asp?method=Topic&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">New Topic</a>
<% else
if (AdminAllowed = 1) then %>
<a href="post.asp?method=Topic&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><img src="icon_folder_locked.gif" height="15" width="15" border="0"></a> <a href="post.asp?method=Topic&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">New Topic</a>
<% else %>
<img src="icon_folder_locked.gif" height="15" width="15" border="0"> Forum Locked
<% end if
end if
if (rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1) and (rsTStatus("T_STATUS") = 1) then %>
<a href="post.asp?method=Reply&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_reply_topic.gif" height="15" width="15" border="0"></a> <a href="post.asp?method=Reply&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Reply to Topic</a>
<% Else
if (AdminAllowed = 1) then %>
<a href="post.asp?method=Reply&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_closed_topic.gif" height="15" width="15" border="0"></a> <a href="post.asp?method=Reply&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Reply to Topic</a>
<% Else %>
<img src="icon_closed_topic.gif" height="15" width="15" border="0"> Topic Locked
<% end if
end if
if (lcase(strEmail) = "1") then
if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then %>
<br>
<a href="JavaScript:openWindow('pop_send_to_friend.asp?url=<% = strForumURL & "link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") %>')"><img border="0" src="icon_send_topic.gif" height="15" width="15" border="0"></a> <a href="JavaScript:openWindow('pop_send_to_friend.asp?url=<% = strForumURL & "link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") %>')">Send Topic to a Friend</a>
<!-- <a href="JavaScript:openWindow('pop_send_to_friend.asp?url=http://<% =Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") & "?" & Request.QueryString %>')"><img border="0" src="icon_send_topic.gif" height=15 width=15 border=0></a> <a href="JavaScript:openWindow('pop_send_to_friend.asp?http://<% =Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") & "?" & Request.QueryString %>')">Send Topic to a Friend</a> -->
<% end if
end if %>
<% end if %>
</font>
<%
end sub
sub AdminOptions()
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then
if (rsCStatus("CAT_STATUS") = 0) then
if (mlev = 4) then %>
<a href="JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=<% =Request.QueryString("CAT_ID") %>')"><img border="0" src="icon_folder_unlocked.gif" alt="Un-Lock Category" height="15" width="15" border="0"></a>
<% else %>
<img border="0" src="icon_folder_unlocked.gif" alt="Cateogry Locked" height="15" width="15" border="0">
<% end if
else
if (rsFStatus("F_STATUS") = 0) then %>
<a href="JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')"><img border="0" src="icon_folder_unlocked.gif" alt="Un-Lock Forum" height="15" width="15" border="0"></a>
<% else
if (rsTStatus("T_STATUS") <> 0) then %>
<a href="JavaScript:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')"><img border="0" src="icon_folder_locked.gif" alt="Lock Topic" height="15" width="15" border="0"></a>
<% else %>
<a href="JavaScript:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')"><img border="0" src="icon_folder_unlocked.gif" alt="Un-Lock Topic" height="15" width="15" border="0"></a>
<% end if
end if
end if %>
<% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %>
<a href="post.asp?method=EditTopic&REPLY_ID=<% =Request.QueryString("TOPIC_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_folder_pencil.gif" alt="Edit Topic" border="0" hspace="0" WIDTH="15" HEIGHT="15"></a>
<% end if %>
<a href="JavaScript:openWindow('pop_delete.asp?mode=Topic&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')"><img border="0" src="icon_folder_delete.gif" alt="Delete Topic" height="15" width="15" border="0"></a>
<a href="post.asp?method=Topic&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><img src="icon_folder_new_topic.gif" alt="New Topic" height="15" width="15" border="0"></a>
<a href="post.asp?method=Reply&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="icon_reply_topic.gif" alt="Reply to Topic" height="15" width="15" border="0"></a>
<% end if %>
</font>
<%
end sub
sub Paging()
if maxpages > 1 then
if Request.QueryString("whichpage") = "" then
pge = 1
else
pge = Request.QueryString("whichpage")
end if
scriptname = request.servervariables("script_name")
Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=1 align=top><tr>")
for counter = 1 to maxpages
if counter <> cint(pge) then
ref = "<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & " " & widenum(counter) & "<a href='" & scriptname
ref = ref & "?whichpage=" & counter
'ref = ref & "&pagesize=" & mypagesize
ref = ref & "&Forum_Title=" & ChkString(Request.QueryString("FORUM_Title"),"urlpath")
ref = ref & "&Topic_Title=" & ChkString(Request.QueryString("Topic_Title"),"urlpath")
ref = ref & "&CAT_ID=" & Request.QueryString("CAT_ID")
ref = ref & "&FORUM_ID=" & Request.QueryString("FORUM_ID")
ref = ref & "&TOPIC_ID=" & Request.QueryString("TOPIC_ID") & "'"
if top = "1" then
ref = ref & ">"
ref = ref & "</font><b><font face='" & strDefaultFontFace & "' "
ref = ref & "color='" & strHeadFontColor & "'"
ref = ref & ">" & counter & "</font></b></a></td>"
Response.Write ref
else
ref = ref & "'>" & counter & "</font></a></td>"
Response.Write ref
end if
else
Response.Write("<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & " " & widenum(counter) & "<b>" & counter & "</b></font></td>")
end if
if counter mod strPageNumberSize = 0 then
Response.Write("</tr><tr>")
end if
next
Response.Write("</tr></table>")
end if
top = "0"
end sub
Sub Topic_nav()
set rsLastPost = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT T_LAST_POST FROM " & strTablePrefix & "TOPICS "
strSql = strSql & "WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID")
set rsLastPost = my_Conn.Execute (StrSql)
T_LAST_POST = rsLastPost("T_LAST_POST")
strSQL = "SELECT T_SUBJECT, TOPIC_ID "
strSql = strSql & "FROM " & strTablePrefix & "TOPICS "
strSql = strSql & "WHERE T_LAST_POST > '" & T_LAST_POST
strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID")
strSql = strSql & " ORDER BY T_LAST_POST;"
set rsPrevTopic = my_conn.Execute (strSQL)
strSQL = "SELECT T_SUBJECT, TOPIC_ID "
strSql = strSql & "FROM " & strTablePrefix & "TOPICS "
strSql = strSql & "WHERE T_LAST_POST < '" & T_LAST_POST
strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID")
strSql = strSql & " ORDER BY T_LAST_POST DESC;"
set rsNextTopic = my_conn.Execute (strSQL)
if rsPrevTopic.EOF then
prevTopic = "<img src=""icon_blank.gif"" height=15 width=15 alt=""Previous Topic"" border=""0"" align=""absmiddle"" hspace=""6"">"
else
prevTopic = "<a href=topic.asp?cat_id=" & request.queryString("CAT_ID") & _
"&FORUM_ID=" & Request.QueryString("FORUM_ID") & _
"&TOPIC_ID=" & rsPrevTopic("TOPIC_ID") & _
"&Topic_Title=" & ChkString(rsPrevTopic("T_SUBJECT"),"urlpath") & _
"&Forum_Title=" & ChkString(Request.QueryString("Forum_Title"),"urlpath") & _
"><img src=""icon_topic_prev.gif"" height=15 width=15 alt=""Previous Topic"" border=""0"" align=""absmiddle"" hspace=""6""></a>"
end if
if rsNextTopic.EOF then
NextTopic = "<img src=""icon_blank.gif"" height=15 width=15 alt=""Previous Topic"" border=""0"" align=""absmiddle"" hspace=""6"">"
else
NextTopic = "<a href=topic.asp?cat_id=" & request.queryString("CAT_ID") & _
"&FORUM_ID=" & Request.QueryString("FORUM_ID") & _
"&TOPIC_ID=" & rsNextTopic("TOPIC_ID") & _
"&Topic_Title=" & ChkString(rsNextTopic("T_SUBJECT"),"urlpath") & _
"&Forum_Title=" & ChkString(Request.QueryString("Forum_Title"),"urlpath") & _
"><img src=""icon_topic_next.gif"" height=15 width=15 alt=""Next Topic"" border=""0"" align=""absmiddle"" hspace=""6""></a>"
end if
Response.Write (prevTopic & "<b><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> Topic </font></b>" & nextTopic)
rsLastPost.close
rsPrevTopic.close
rsNextTopic.close
set rsLastPost = nothing
set rsPrevTopic = nothing
set rsNextTopic = nothing
end sub
%>
==================
Sorry I have to paste it here cuz the forum is on an Intranet.
Edited by - sabergurl on 06 June 2001 18:43:24 |
|
|
|
e3stone
Average Member
USA
885 Posts |
Posted - 06 June 2001 : 19:12:41
|
I don't see anything wrong with the code. I'd be willing to bet that if you checked your db, you're missing one of those fields somewhere. I removed M_Avatar_Url and got the same error you did. I'd rerun the mod_dbsetup
<-- Eric -->
InsideWaco.com |
|
|
|
e3stone
Average Member
USA
885 Posts |
|
| |
Topic |
|
|
|
Topic Locked
