Author |
Topic |
Tiki
Starting Member
5 Posts |
Posted - 31 May 2001 : 02:26:32
|
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 |
|
|
Bookie
Average Member
USA
856 Posts |
Posted - 31 May 2001 : 09:39:24
|
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 |
|
|
whiterose
Starting Member
18 Posts |
Posted - 31 May 2001 : 10:03:31
|
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 |
|
|
pahasapa
Starting Member
38 Posts |
Posted - 31 May 2001 : 11:07:41
|
me too!!
alex |
|
|
EarlQuack
Starting Member
Netherlands
10 Posts |
Posted - 01 June 2001 : 08:32:34
|
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
|
|
|
DocEVL
Starting Member
USA
19 Posts |
Posted - 01 June 2001 : 11:21:48
|
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. -------- |
|
|
thephantomnl
New Member
Netherlands
66 Posts |
Posted - 01 June 2001 : 11:36:32
|
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
|
|
|
DocEVL
Starting Member
USA
19 Posts |
Posted - 01 June 2001 : 11:48:50
|
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. -------- |
|
|
thephantomnl
New Member
Netherlands
66 Posts |
Posted - 01 June 2001 : 11:56:24
|
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
|
|
|
DocEVL
Starting Member
USA
19 Posts |
Posted - 01 June 2001 : 12:00:11
|
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. -------- |
|
|
Rob Poretti
Junior Member
Canada
435 Posts |
Posted - 02 June 2001 : 00:00:00
|
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 |
|
|
Rob Poretti
Junior Member
Canada
435 Posts |
Posted - 02 June 2001 : 13:49:31
|
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 |
|
|
Rob Poretti
Junior Member
Canada
435 Posts |
Posted - 02 June 2001 : 14:08:57
|
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 |
|
|
Rob Poretti
Junior Member
Canada
435 Posts |
Posted - 02 June 2001 : 17:05:01
|
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 |
|
|
Rob Poretti
Junior Member
Canada
435 Posts |
Posted - 02 June 2001 : 17:32:27
|
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 |
|
|
Topic |
|
|
|