Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Display Content Mod
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 16

Tiki
Starting Member

5 Posts

Posted - 31 May 2001 :  02:26:32  Show Profile
quote:

It doesn't matter. .NET and traditional ASP will be able to run on the same server. This is something that's been stated for a long time in regards to .NET. Companies have spent a lot of time and money building applications and sites in traditional ASP and it would involve a lot of resources to get them converted to .NET. When .NET is released for production, it doesn't mean that traditional ASP will no longer function. Over time it may be phased out, but it'll probably be around for a couple of years. Case in point, how many companies are still using SQL Server 6.5, IIS 3.0, Windows 95, Windows 3.1, etc...



Hi

I stand corrected. I agree with you that there will still be plenty of existing code out there that will still need to be maintained in their present mode.

I tend to also have the opinion that the "spaghetti" interweaving of codes is not good for maintenance (apologies in advance). Imagine a missing quote or > here or there? ASP in its original form (likewise for JSP, PHP, Coldfusion) have all their little nuances.

It's up to the development community to improve on the legacies we have created for ourselves.

Tiki
Go to Top of Page

Bookie
Average Member

USA
856 Posts

Posted - 31 May 2001 :  09:39:24  Show Profile  Visit Bookie's Homepage  Send Bookie an AOL message  Send Bookie a Yahoo! Message
This is for Display Mode number 3: Detailed.

How would I change this code to have it display 12 hour time instead of 24 hour?

<%= ChkTime(rs("T_DATE")) %>


Bookie

"May the forces of evil become confused on the way to your home."
- George Carlin
Go to Top of Page

whiterose
Starting Member

18 Posts

Posted - 31 May 2001 :  10:03:31  Show Profile  Visit whiterose's Homepage
I have added the display content mod and put the link on admin options but when i click on it on the box on the right hand side of the table i get this error message


Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID INNER JOIN FORUM_MEMBERS ON FORUM_TOPICS.T_AUTHOR = FORUM_MEMBERS.MEMBER_ID'.

/forum/content.asp, line 248

Anyone got any ideas whats wrong.

Thanks
Go to Top of Page

pahasapa
Starting Member

38 Posts

Posted - 31 May 2001 :  11:07:41  Show Profile
me too!!



alex
Go to Top of Page

EarlQuack
Starting Member

Netherlands
10 Posts

Posted - 01 June 2001 :  08:32:34  Show Profile
I still don't see the light concerning the Syntax error, missing operator. I did every modification to the script as DocEVL described above, but it still doesn't work. Could you or anyone who has modified the file succesfully and is using Access2000, post the file with modifications?

Thank you in advance!

EQ

Go to Top of Page

DocEVL
Starting Member

USA
19 Posts

Posted - 01 June 2001 :  11:21:48  Show Profile  Visit DocEVL's Homepage  Send DocEVL an AOL message
quote:

I still don't see the light concerning the Syntax error, missing operator. I did every modification to the script as DocEVL described above, but it still doesn't work. Could you or anyone who has modified the file succesfully and is using Access2000, post the file with modifications?

Thank you in advance!

EQ





Ok for all those who use Access here is my modified content.asp file. Please note I do not use the avatar mod.

-----------
<%
'#################################################################################
'## 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
'#################################################################################

' //////// FORM VARIABLES /////////////////////////////////////////////////////
dim rs
dim intTopicReplies
dim strMsgIcon

' //////// ORNAMENT VARIABLES //////////////////////////////////////////////////
strGraphicsPath = "http://www.clanabsolute.com/forums/images/" ' SET GRAPHIC IMAGE PATH HERE....

strBullet1 = "ballbullet3.gif" ' SET BULLET 1 IMAGE NAME HERE....
intBullet1Width = 12 ' SET BULLET 1 IMAGE WIDTH HERE ....
intBullet1Height = 12 ' SET BULLET 1 IMAGE HEIGHT HERE ....

strBullet2 = "bullet2.gif" ' SET BULLET 2 IMAGE NAME HERE....
intBullet2Width = 9 ' SET BULLET 2 IMAGE WIDTH HERE ....
intBullet2Height = 9 ' SET BULLET 2 IMAGE HEIGHT HERE ....

strGraphic1 = "updat4.gif" ' SET GRAPHIC 1 IMAGE NAME HERE....
intGraphic1Width = 47 ' SET GRAPHIC 1 IMAGE WIDTH HERE ....
intGraphic1Height = 10 ' SET GRAPHIC 1 IMAGE HEIGHT HERE ....

strGraphic2 = "machineadd.gif" ' SET GRAPHIC 2 IMAGE NAME HERE....
intGraphic2Width = 13 ' SET GRAPHIC 2 IMAGE WIDTH HERE ....
intGraphic2Height = 15 ' SET GRAPHIC 2 IMAGE HEIGHT HERE ....

strNumberedGraphic = "_star.gif" ' SET NUMBERED GRAPHIC NAME HERE....
intNumberedGraphicWidth = 24 ' SET NUMBERED GRAPHIC IMAGE WIDTH HERE ....
intNumberedGraphicHeight = 24 ' SET NUMBERED GRAPHIC IMAGE HEIGHT HERE ....

intMsgIconWidth = 15 ' SET MSGICON IMAGE WIDTH HERE ....
intMsgIconHeight = 15 ' SET MSGICON IMAGE HEIGHT HERE ....

intPhotoAvatarWidth = 80 ' SET PHOTO/AVATAR IMAGE WIDTH HERE ....
intPhotoAvatarHeight = 80 ' SET PHOTO/AVATAR IMAGE HEIGHT HERE ....

strCounterDelimiter = ")" ' Alternatively use . ] | - or other characters...


' //////// SPECIAL VARIABLES //////////////////////////////////////////////////
strNew = "new10.gif" ' SET NEW IMAGE NAME HERE....
intNewHeight = 12 ' SET NEW IMAGE HEIGHT HERE....
intNewWidth = 28 ' SET NEW IMAGE WIDTH HERE....

strHot = "hot_animate.gif" ' SET HOT IMAGE NAME HERE....
intHotHeight = 16 ' SET HOT IMAGE HEIGHT HERE....
intHotWidth = 44 ' SET HOT IMAGE WIDTH HERE....

strSpecial = "arrow.gif" ' SET SPECIAL IMAGE NAME HERE....
intSpecialHeight = 15 ' SET SPECIAL IMAGE HEIGHT HERE....
intSpecialWidth = 15 ' SET SPECIAL IMAGE WIDTH HERE....

strSpecialDisplayTest = " rs('T_MSGICON')=14 " ' SET SPECIAL CRITERIA HERE....


' //////// CONNECTION /////////////////////////////////////////////////////////
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString


' ///////// MAIN SUB //////////////////////////////////////////////////////////
sub DisplayContent(ContentType, ContentID, TopicStatus, DisplayMode, DisplayOrder, TopicCount, MessageLength, SubjectLength, Ornament, Special)

' DisplayContent(ContentType, ContentID, TopicStatus, DisplayMode, DisplayOrder, TopicCount, MessageLength, SubjectLength)

' ContentType: (Where the source is derived from)
' 0 = display topics from a specific category ID
' 1 = display topics from a specific forum ID
' 2 = display from a specific topic ID (single topic is returned)
' 3 = display topics from a specific msgIcon ID (msgIcon mod must be installed)
' 4 = display topics from a specific author ID

' ContentID: (the ID of the category, forum, topic, msgIcon or author that the source is derived from)

' TopicStatus: Returns open, closed or all topics
' 0 = returns closed topics
' 1 = returns open topics
' 2 = returns open or closed topics

' DisplayMode: (how the material is formatted and returned to the calling function)
' 0 = Link Only: Displays topics with links into the actual forum topic
' 1 = Basic: Displays topics with message next to topic link
' 2 = Split: Displays topics on top with links to the message below
' 3 = Detailed: Displays topics with message & details next to topic link
' 4 = Article: Displays topics with subject link, details & author's photo/avatar next to message
' 5 = Custom: Return raw data - So it can be formated using HTML! (n/a - do not use)
' 6 = Future: Use XSL file to format output (n/a - future use)

' DisplayOrder: Order for the Displaying Returned Topics
' 0 = By Last Posted Date
' 1 = By Topics Order field (Topic Order mod must be installed)
' 2 = By most View Counts
' 3 = By most Replies
' 4 = By msgIcons value (msgIcon mod must be installed)
' 5 = By author
' 6 = By original post Date
' 7 = By ForumID (useful when ContentType = 0)

' TopicCount: Maximum number of topics to display (integer - any value from 1 to 9999)

' MessageLength: Maximum number of chars in each Topic message.
' 0 = full message
' n = number of characters to display (integer - any value from 1 to 9999)

' Ornament: Type of ornament to display
' 0 = no ornament - plain
' 1 = Bullet 1
' 2 = Bullet 2
' 3 = Graphic 1
' 4 = Graphic 2
' 5 = msgIcon
' 6 = numbered
' 7 = numbered graphic
' 8 = special (hot, new or special topics)

' Special: Check for new, hot and special topics
' 0 = no checks
' 1 = check if new/hot/special

' //////////////////////////////////////////////////////////////////////////////////////////////

select case ContentType
case 0
strContentType = "TOPICS.CAT_ID"
case 1
strContentType = "TOPICS.FORUM_ID"
case 2
strContentType = "TOPICS.TOPIC_ID"
case 3
strContentType = "TOPICS.T_MSGICON"
case 4
strContentType = "TOPICS.T_AUTHOR"
case else ' use Forum ... most likely used
strContentType = "TOPICS.FORUM_ID"
end select

'## Forum_SQL - First get all required fields from Topics DB
strSql = "SELECT TOP " & TopicCount & " "
strSql = strSql & strTablePrefix & "TOPICS.T_STATUS, "
strSql = strSql & strTablePrefix & "TOPICS.CAT_ID, "
strSql = strSql & strTablePrefix & "TOPICS.FORUM_ID, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, "
strSql = strSql & strTablePrefix & "TOPICS.T_SUBJECT, "
strSql = strSql & strTablePrefix & "TOPICS.T_MESSAGE, "
strSql = strSql & strTablePrefix & "TOPICS.T_VIEW_COUNT, "
strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST, "
strSql = strSql & strTablePrefix & "TOPICS.T_DATE, "
strSql = strSql & strTablePrefix & "TOPICS.T_REPLIES, "
strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR, "

if DisplayMode = 3 or DisplayMode = 4 then ' add fields from Forum/Member Table
strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, "
strSql = strSql & strTablePrefix & "FORUM.F_DESCRIPTION, "
strSql = strSql & strTablePrefix & "MEMBERS.M_NAME, "
strSql = strSql & strTablePrefix & "MEMBERS.M_EMAIL, "
strSql = strSql & strTablePrefix & "MEMBERS.M_PHOTO_URL, "

'### Commented Out; I do not use standard avatar mod
'strSql = strSql & strTablePrefix & "MEMBERS.M_AVATAR_URL, "<BR>
'##################

end if

' Add final field from Topics DB
strSql = strSql & strTablePrefix & "TOPICS.T_MSGICON "

if DisplayMode = 3 or DisplayMode = 4 then ' then join FORUM & MEMBERS table linked with Forum ID/Member ID
strSql = strSql & " FROM " & strTablePrefix & "MEMBERS "
strSql = strSql & "INNER JOIN (" & strTablePrefix & "FORUM "
strSql = strSql & "INNER JOIN " & strTablePrefix & "TOPICS "
strSql = strSql & "ON (" & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) "
strSql = strSql & "AND (" & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID)) "
strSql = strSql & "ON " & strTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR"
else
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
end if

' Then specify criteria to select topics
strSql = strSql & " WHERE (((" & strTablePrefix & strContentType & " )= " & ContentID & "))"

select case TopicStatus ' "Filter" based on Topic Status - Open, closed or both
case 0
strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS = 0"
case 1
strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS = 1"
case 2
' do nothing - select all topics -- indifferent to status
case else
' do nothing - select all topics -- indifferent to status
end select

select case DisplayOrder ' Change ASC to DESC if preferred...
case 0 ' By Last Posted Date
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC "
case 1 ' By Topics Order field (Topic Order mod must be installed)
strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_ORDER > 0 " ' Required because NULLs and ZEROs come before 1
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_ORDER ASC "
case 2 ' By most View Counts
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_VIEW_COUNT ASC "
case 3 ' By most Replies
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_REPLIES ASC "
case 4 ' By msgIcons value (msgIcon mod must be installed)
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_MSGICON ASC "
case 5 ' By author
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_AUTHOR ASC "
case 6 ' By original post Date
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_DATE ASC "
case 7 ' By Forum ID
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.FORUM_ID ASC "
case else ' Use the "default" - By Last Posted Date
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC "
end select

set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize=20
rs.open strSql, my_Conn, 3

if not (rs.EOF or rs.BOF) then
rs.movefirst
rs.pagesize = strPageSize
maxpages = cint(rs.pagecount)
end if

select case Ornament ' Sets ornaments for cases 1, 2, 3, 4
case 0 ' PLAIN
' No ornament - do nothing
case 1 ' BULLET 1
strOrnamentDisplay = "<img width='" & intBullet1Width & "' height='" & intBullet1Height & "' src='" & strGraphicsPath & strBullet1 & "'> "
case 2 ' BULLET 2
strOrnamentDisplay = "<img width='" & intBullet2Width & "' height='" & intBullet2Height & "' src='" & strGraphicsPath & strBullet2 & "'> "
case 3 ' GRAPHIC 1
strOrnamentDisplay = "<img width='" & intGraphic1Width & "' height='" & intGraphic1Height & "' src='" & strGraphicsPath & strGraphic1 & "'> "
case 4 ' GRAPHIC 2
strOrnamentDisplay = "<img width='" & intGraphic2Width & "' height='" & intGraphic2Height & "' src='" & strGraphicsPath & strGraphic2 & "'> "
case else
' Case 5, 6 & 7 strOrnamentDisplay evaluated in "DisplayMode Select", below - do nothing here...
end select

%>

<table border="0" width="100%" cellspacing="0" cellpadding="2">

<% if rs.EOF or rs.BOF then %>
<tr>
<td align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<b>No Topics Found</b>
</font>
</td>
</tr>
<% else ' Set variables for Loop...

counter = 0
test = "Links"

' ///////////////////// MAIN LOOP /////////////////////////////////////////////////////////////
do until rs.EOF
%>
<% select case DisplayMode
case 0 'Link Only: Displays topics with links into the actual forum topic
counter = counter + 1 %>
<tr>
<td valign="top" align="left" colspan="1">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>"><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></a></b>
</font>
</td>
<td valign="bottom" align="right">
<% if Special then %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% end if %>
</td>
</tr>
<tr>
<td valign="top" align="right" colspan="2">
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
<% end if %>
</td>
</tr>
<% case 1 'Basic: Displays topics with message next to topic link
counter = counter + 1 %>
<tr>
<td valign="top" align="left" colspan="1" width="100%">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>">
<acronym title="Click here to view the entire document..."><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></acronym></a></b>
</font>
</td>
<td valign="bottom" align="right" colspan="1">
<% if Special then %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% end if %>
</td>
</tr>
<tr>
<td valign="top" align="left" colspan="2">
<hr noshade size='1'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<% =ChkString(left(rs("T_MESSAGE"), MessageLength),"display") %>
</font>
</td>
</tr>
<tr>
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<td valign="top" align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
</td>
<td valign="top" align="right">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>">
<acronym title="Click here to view the entire document..."><i>more...</i></acronym></a><br> <br>
</font>
</td>
<% else %>
<td valign="top" align="right" colspan="2">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>">
<acronym title="Click here to view the entire document..."><i>more...</i></acronym></a><br> <br>
</font>
</td>
<% end if %>
</tr>

<% case 2 'Split: Displays topics with links to the message below
if test = "Links" then %>
<tr>
<td valign="top" align="left" colspan="1">
<% if counter = 0 then %>
<a name="LinkSection"></a>
<% end if %>
<% counter = counter + 1 %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<a href="#<% =rs("TOPIC_ID") %>"><acronym title="Click here to jump to a short preview..."><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></acronym></a>
</font>
</td>
<td valign="bottom" align="right" colspan="1">
<% if Special then %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% end if %>
</td>
</tr>
<% if counter = rs.recordcount then
test = "Links Done"
rs.MoveFirst
counter = 0 %>
<tr>
<td valign="top" align="left"><br>  <br></td>
</tr>
<% end if
end if

if test = "Links Done" then
counter = counter + 1 %>
<tr>
<td valign="top" align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<a name="<% =rs("TOPIC_ID") %>"></a>
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>"><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></a></b>
</font>
</td>
<td valign="top" align="right">
<a href="#LinkSection"><img width="12" height="12" border="0" src="icon_go_up.gif"></a>
</td>
</tr>
<tr>
<td valign="top" align="left" colspan="2">
<hr noshade size='1'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<% =ChkString(left(rs("T_MESSAGE"), MessageLength),"display") %>... 
</font>
</td>
</tr>
<tr>
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<td valign="top" align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
</td>
<td valign="top" align="right">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>">
<acronym title="Click here to view the entire document..."><i>more...</i></acronym></a><br> <br>
</font>
</td>
<% else %>
<td valign="top" align="right" colspan="2">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>">
<acronym title="Click here to view the entire document..."><i>more...</i></acronym></a><br> <br>
</font>
</td>
<% end if %>
</tr>
<% end if %>

<% case 3 'Detailed: Displays topics with message & details next to topic link
counter = counter + 1 %>
<tr>
<td valign="top" align="left">
<span style="background-color: #4A456E"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></b>
<% if Special then %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% end if %>
</font>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<i>   Posted by
<% if strUseExtendedProfile then %>
<b><a href="<%= strForumURL %>pop_profile.asp?mode=display&id=<%= rs("T_AUTHOR") %>"><acronym title="Who is this person?"><%= rs("M_NAME") %></acronym></a></b>
<% else %>
<b><a href="JavaScript:openWindow3('<%= strForumURL %>pop_profile.asp?mode=display&id=<%= rs("T_AUTHOR") %>')"><acronym title="Who is this person?"><%= rs("M_NAME") %></acronym></a></b>
<% end if %>
on <b><%= ChkDate(rs("T_DATE")) %></b> @ <%= ChkTime(rs("T_DATE")) %></i></span></font><br>
<hr noshade size='1'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="white"><% =formatStr(ChkString(left(rs("T_MESSAGE"), MessageLength),"display")) %>... <br>
</font>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="white">
<b>[</b> <a href="<%= strForumURL %>link.asp?TOPIC_ID=<%= rs("TOPIC_ID") %>"><acronym title="Click here to view the entire document...">Read more</acronym></a> <b>|</b> <b><%= rs("T_REPLIES") %></b>
<a href="<%= strForumURL %>post.asp?method=Reply&TOPIC_ID=<%= rs("TOPIC_ID") %>&FORUM_ID=<%= rs("FORUM_ID") %>&CAT_ID=<%= rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><acronym title="Click here to reply to this document...">reply(s)</acronym></a> <b>|</b>
From <a href="<%= strForumURL %>forum.asp?FORUM_ID=<%= rs("FORUM_ID") %>&CAT_ID=<%= rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><acronym title="Click here to view this Forum..."><i><b><%= rs("F_SUBJECT") %></i></acronym></a> ]</b>
</font>
</td>
</tr>
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<tr>
<td align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="http://www.clanabsolute.com/forums/images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
</td>
</tr>
<% end if %>
<tr><td>
 
</tr></td>
<% case 4 'Article: Displays topics with subject link, details & author's photo/avatar next to message
counter = counter + 1 %>
<tr>
<td valign="top" align="left" colspan="1">
<span style="background-color: #4A456E"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></b>
<% if Special then %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% end if %>
</font>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<i>Posted by
<% if strUseExtendedProfile then %>
<b><a href="<%= strForumURL %>pop_profile.asp?mode=display&id=<%= rs("T_AUTHOR") %>"><acronym title="Who is this person?"><%= rs("M_NAME") %></acronym></a></b>
<% else %>
<b><a href="JavaScript:openWindow3('<%= strForumURL %>pop_profile.asp?mode=display&id=<%= rs("T_AUTHOR") %>')"><acronym title="Who is this person?"><%= rs("M_NAME") %></acronym></a></b>
<% end if %>
on <b><%= ChkDate(rs("T_DATE")) %></b> @ <%= ChkTime(rs("T_DATE")) %></i></span></font><br>
<hr noshade size='1'>
</font>
</td>
</tr>
<tr>
<td>
<%
if Trim(rs("M_PHOTO_URL"))="" or isnull(rs("M_PHOTO_URL")) or lcase(rs("M_PHOTO_URL"))="http://" then
if not Trim(rs("M_AVATAR_URL"))="" or not isnull(rs("M_AVATAR_URL")) then
strPhotoAvatarImage = rs("M_AVATAR_URL")%>
<img align="left" width="<% =intPhotoAvatarWidth %>" height="<% =intPhotoAvatarHeight %>" src="<% =strPhotoAvatarImage %>">
<% end if
else
strPhotoAvatarImage = rs("M_PHOTO_URL") %>
<img align="left" width="<% =intPhotoAvatarWidth %>" height="<% =intPhotoAvatarHeight %>" src="<% =strPhotoAvatarImage %>">
<% end if %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<% =formatStr(ChkString(left(rs("T_MESSAGE"), MessageLength),"display")) %>... <br>
<b>[</b> <a href="<%= strForumURL %>link.asp?TOPIC_ID=<%= rs("TOPIC_ID") %>"><acronym title="Click here to view the entire document...">Read more</acronym></a> <b>|</b> <b><%= rs("T_REPLIES") %></b>
<a href="<%= strForumURL %>post.asp?method=Reply&TOPIC_ID=<%= rs("TOPIC_ID") %>&FORUM_ID=<%= rs("FORUM_ID") %>&CAT_ID=<%= rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><acronym title="Click here to reply to this document...">reply(s)</acronym></a> <b>|</b>
From <a href="<%= strForumURL %>forum.asp?FORUM_ID=<%= rs("FORUM_ID") %>&CAT_ID=<%= rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><i><b><acronym title="Click here to view this Forum..."><%= rs("F_SUBJECT") %></acronym></i></a> ]</b>
</font>
</td>
</tr>
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<tr>
<td align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
</td>
</tr>
<% end if %>
<tr><td>
 
</tr></td>
<% case 5 'Custom: Return raw data - So it can be formated using HTML!
counter = counter + 1 %>
<tr>
<td valign="top" align="left">
<hr noshade size='1'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="red">
<%
select case Ornament
case 1, 2, 3, 4 ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
Response.Write strOrnamentDisplay
case 5 ' MsgIcon
strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif"
Response.Write ("<img width='" & intMsgIconWidth & "' height='" & intMsgIconHeight & "' src='" & strMsgIcon & "'> ")
case 6 ' Numbered
if counter < 10 then %>
<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
<% else %>
<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
<% end if %>
<% case 7 ' Numbered Graphic %>
<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
<% case 8 ' Special - as Ornament %>
<% strMsgIcon = "icon_mi_" & rs("T_MSGICON") & ".gif" %>
<% intTopicReplies = rs("T_REPLIES") %>
<% Response.Write CheckIsSpecial(rs("T_LAST_POST")) %>
<% case else
' do nothing
end select
%>
<b><a href="<%=strForumURL%>topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>"><% =ChkString(left(rs("T_SUBJECT"), SubjectLength),"display") %></a></b>
</font>
</td>
</tr>
<tr>
<td>
<% =ChkString(left(rs("T_MESSAGE"), MessageLength),"display") %>
<div align="right">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID")%>&CAT_ID=<% =rs("CAT_ID") %>">
<i>...more</i>
</a>
</font>
</div>
<% ' The following tags are for a custom HTML post %>
</font>
</td>
</tr>
</table>
<% ' ///////////////////////////// %>
<hr noshade size='1'>
</td>
</tr>
<% if mLev = 4 then 'SHOW EDIT BUTTON -- FOR ADMINISTRATORS ONLY %>
<tr>
<td align="left">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="<%=strForumURL%>post.asp?method=EditTopic&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=4">
<img src="images/edit.gif" width="28" height="16" border="0" alt="Edit this content..."></a>
</font>
</td>
</tr>
<% end if %>
<tr><td>
 
</tr></td>
<% case 6 'Future: Use XSL file to format output (Future) %>
<tr>
<td align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<b>Display Mode Parameter<br>Out-of-bounds</b>
</font>
</td>
</tr>
<% rs.MoveLast %>
<%
case else %>
<tr>
<td align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<b>Display Mode Parameter<br>Out-of-bounds</b>
</font>
</td>
</tr>
<% rs.MoveLast %>
<% end select

rs.MoveNext

loop

end if %>

</table>

<% set rs = nothing
end sub
%>

<%
Function CheckIsSpecial(DisplaySpecial)
CheckIsSpecial = ""

if DisplaySpecial > Session(strCookieURL & "last_here_date") then ' CHECK FOR NEW STATUS
CheckIsSpecial = "<img width='" & intNewWidth & "' height='" & intNewHeight & "' src='" & strGraphicsPath & strNew & "'> "
end if

if lcase(strHotTopic) = "1" and intTopicReplies >= intHotTopicNum Then ' CHECK FOR HOT STATUS
CheckIsSpecial = CheckIsSpecial & "<img width='" & intHotWidth & "' height='" & intHotHeight & "' src='" & strGraphicsPath & strHot & "'> "
end if

if rs("T_MSGICON")=14 then ' CHECK FOR SPECIAL STATUS - PUT WHATEVER YOU LIKE HERE
CheckIsSpecial = CheckIsSpecial & "<img width='" & intSpecialWidth & "' height='" & intSpecialHeight & "' src='" & strMsgIcon & "'>"
end if

if len(CheckIsSpecial) > 1 then ' Some basic formating...
DisplaySpecial = "<img width='20' height='1' src='images/blank.gif'>" & CheckIsSpecial
end if
End Function
%>




--------
This is a time that is not a time, in a place that is not a place.
--------
Go to Top of Page

thephantomnl
New Member

Netherlands
66 Posts

Posted - 01 June 2001 :  11:36:32  Show Profile  Visit thephantomnl's Homepage  Send thephantomnl an ICQ Message
sorry but this chanches the error to:
<HR>
Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/forumnl/content.asp, line 252
<HR>
on this line:
rs.open strSql, my_Conn, 3

pleaseeeeeeeeeeeee heeeeeeeeelp

Go to Top of Page

DocEVL
Starting Member

USA
19 Posts

Posted - 01 June 2001 :  11:48:50  Show Profile  Visit DocEVL's Homepage  Send DocEVL an AOL message
quote:

sorry but this chanches the error to:
<HR>
Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/forumnl/content.asp, line 252
<HR>
on this line:
rs.open strSql, my_Conn, 3

pleaseeeeeeeeeeeee heeeeeeeeelp





Which display option are you using?

--------
This is a time that is not a time, in a place that is not a place.
--------
Go to Top of Page

thephantomnl
New Member

Netherlands
66 Posts

Posted - 01 June 2001 :  11:56:24  Show Profile  Visit thephantomnl's Homepage  Send thephantomnl an ICQ Message
i have tried all optieons. but nothing chage this error.

we are using avatars so i have set the line from the avatars on?? i also have tried a clean version of snitz (without mods) but it givs me the same error

Go to Top of Page

DocEVL
Starting Member

USA
19 Posts

Posted - 01 June 2001 :  12:00:11  Show Profile  Visit DocEVL's Homepage  Send DocEVL an AOL message
quote:

i have tried all optieons. but nothing chage this error.

we are using avatars so i have set the line from the avatars on?? i also have tried a clean version of snitz (without mods) but it givs me the same error





Send your content.asp file to me and I will look it over.

--------
This is a time that is not a time, in a place that is not a place.
--------
Go to Top of Page

Rob Poretti
Junior Member

Canada
435 Posts

Posted - 02 June 2001 :  00:00:00  Show Profile  Visit Rob Poretti's Homepage
Sorry Folks...

I've been out of town all week...

thephantomnl, if you want to send your modified content.asp file to me, I'll also take a look at it...


whiterose and pahasapa: I think I might know what the problem is here...

The Display COntent Editor by default automatically shows some "default" content from MY forum. You probably just need to change it to some valid parameters for your forum.

Tomorrow, I'll post a new version that solves this problem...

Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960
Go to Top of Page

Rob Poretti
Junior Member

Canada
435 Posts

Posted - 02 June 2001 :  13:49:31  Show Profile  Visit Rob Poretti's Homepage
whiterose and pahasapa, try this:

The code below is where some forum defaults (for my forum) are set. First, you need to either:

1) Comment out the default (as below), or
2) Change the value of each string to something that makes sense in your forum -- (recommended), or
3) Remove the entire "if-then" section that I've listed below, altogether...

if strContentType = "" then ' use my defaults
'strContentType = 1
end if

if strContentID = "" then ' use my defaults
'strContentID = 6
end if

if strTopicStatus = "" then ' use my defaults
'strTopicStatus = 2
end if

if strDisplayMode = "" then ' use my defaults
'strDisplayMode = 4
end if

if strDisplayOrder = "" then ' use my defaults
'strDisplayOrder = 0
end if

if strTopicCount = "" then ' use my defaults
'strTopicCount = 9
end if

if strMessageLength = "" then ' use my defaults
'strMessageLength = 260
end if

if strSubjectLength = "" then ' use my defaults
'strSubjectLength = 35
end if

if strOrnament = "" then ' use my defaults
'strOrnament = 5
end if

if strSpecial = "" then ' use my defaults
'strSpecial = 0
end if


Then, you need to add the following, when the DisplayContent gets called:


<!-- BODY STARTS HERE ------------------------------------------------------------------------->
<%
if blnAdminMode then
mLev=1
else
mLev=4
end if
%>

<% if strContentType = "" or strContentID = "" or strTopicStatus = "" or strDisplayMode = "" or strDisplayOrder = "" or strTopicCount = "" or strMessageLength = "" or strSubjectLength = "" or strOrnament = "" or strSpecial = "" then
Response.Write("Parameter Missing")
else
DisplayContent strContentType, strContentID, strTopicStatus, strDisplayMode, strDisplayOrder, strTopicCount, strMessageLength, strSubjectLength, strOrnament, strSpecial

' DisplayContent(ContentType, ContentID, TopicStatus, DisplayMode, DisplayOrder, TopicCount, MessageLength, SubjectLength)
'
' descriptions of parameters here...
'
' //////////////////////////////////////////////////////////////////////////////////////////////

end if
%>



This way, when you first load the page, parameters don't get passed to the page automatically -- you have to first enter some manually.

I will update the editor (in a few minutes) by commenting out the default values (that way, it's still easy to add your own), and adding the conditional processing of the DisplayContent sub...

Hope this helps,




Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960
Go to Top of Page

Rob Poretti
Junior Member

Canada
435 Posts

Posted - 02 June 2001 :  14:08:57  Show Profile  Visit Rob Poretti's Homepage
Dear ThePhanToM:

Ok... from the error message, it looks like you are not sending enough parameters to the Content.asp page.
Could you send me a copy of the page that is calling the sub and giving you this error and a copy of the
content.asp page that you are currently using?


Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960

Edited by - Rob Poretti on 02 June 2001 14:09:48

Edited by - Rob Poretti on 02 June 2001 14:11:02

Edited by - Rob Poretti on 02 June 2001 14:15:37

Edited by - Rob Poretti on 02 June 2001 14:16:18
Go to Top of Page

Rob Poretti
Junior Member

Canada
435 Posts

Posted - 02 June 2001 :  17:05:01  Show Profile  Visit Rob Poretti's Homepage
Ok... the zip file with the modified Content Display Editor has been uploaded and now available through the link at the beginning of this topic...

Cheers,



Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960
Go to Top of Page

Rob Poretti
Junior Member

Canada
435 Posts

Posted - 02 June 2001 :  17:32:27  Show Profile  Visit Rob Poretti's Homepage
Hi ThePhanToM,

I didn't realize that you attached the content.asp page....

Now that I've looked at it, along with your error message I can't say much about what is going on, except that the error is caused by this statement: rs.open strSql, my_Conn, 3

This probably means that something in the SQL string is not properly formed. Like an ID value right after an equal sign.

I need to know what the value of strSQL is in order to help you. If you are not running Visual InterDev or a similar ASP editor with a debugger then try this:

Insert this right before the open method:

Response.Write(strSQL)
Response.end

This will print the strSQL in the display column and then stop executing so that you won't get the error message.

Then post that string here, so we can have a look at it!

Cheers!



Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960
Go to Top of Page
Page: of 16 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07