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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 '800a000d'		  New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 3

hostmp
Starting Member

Italy
19 Posts
Posted - 20 December 2002 :  17:29:48  Show Profile  Visit hostmp's Homepage
This is the code of my default.asp near line 406, with the code that I put inside!


blnHiddenForums = false
for iCategory = 0 to recCategoryCount
CatID = allCategoryData(cCAT_ID,iCategory)
CatStatus = allCategoryData(cCAT_STATUS,iCategory)
CatName = allCategoryData(cCAT_NAME,iCategory)
CatOrder = allCategoryData(cCAT_NAME,iCategory)
CatSubscription = allCategoryData(cCAT_SUBSCRIPTION,iCategory)
CatModeration = allCategoryData(cCAT_MODERATION,iCategory)

chkDisplayHeader = true

bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if

if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & if recForumCount="" then
recForumCount = -1
end if
ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline
Ciao VENETO!!!
Go to Top of Page

Doug G
Support Moderator

USA
6493 Posts
Posted - 20 December 2002 :  17:38:50  Show Profile
quote:
Originally posted by hostmp

Hello.
I try to put

if recForumCount="" then
recForumCount = -1
end if

before line 409, but now it gives me another error:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/forum/default.asp, line 394

Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & if recForumCount="" then
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

What is it?????

There shouldn't be the trailing then at the end of the line.
======
Doug G
======
Computer history and help at www.dougscode.com
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 20 December 2002 :  17:50:51  Show Profile  Visit hostmp's Homepage
Where??????????????
I don't understand.
Do I must put

recForumCount="" then
recForumCount = -1
end if

before or at the end ot line 409???

Will I write this code?:

blnHiddenForums = false
for iCategory = 0 to recCategoryCount
CatID = allCategoryData(cCAT_ID,iCategory)
CatStatus = allCategoryData(cCAT_STATUS,iCategory)
CatName = allCategoryData(cCAT_NAME,iCategory)
CatOrder = allCategoryData(cCAT_NAME,iCategory)
CatSubscription = allCategoryData(cCAT_SUBSCRIPTION,iCategory)
CatModeration = allCategoryData(cCAT_MODERATION,iCategory)

chkDisplayHeader = true

bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if

if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & if recForumCount="" then
recForumCount = -1
end if
strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=center valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
call CategoryAdminOptions()
Response.Write "</font></b></td>" & vbNewline
Ciao VENETO!!!
Go to Top of Page

Doug G
Support Moderator

USA
6493 Posts
Posted - 20 December 2002 :  19:59:12  Show Profile
Did you look at what you posted that I quoted? There is a word "then" at the end of the asp statement.
======
Doug G
======
Computer history and help at www.dougscode.com
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 21 December 2002 :  07:40:25  Show Profile  Visit hostmp's Homepage
I must put "then" at the end of

if recForumCount="" then
recForumCount = -1
end if

or at the end of the line 409???????????
Ciao VENETO!!!
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 21 December 2002 :  10:10:31  Show Profile  Send ruirib a Yahoo! Message
quote:
Originally posted by hostmp

Hello.
I try to put

if recForumCount="" then
recForumCount = -1
end if

before line 409, but now it gives me another error:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/forum/default.asp, line 394

Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & if recForumCount="" then
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

What is it?????

You must insert the code in a new balnk line, before line 409, not at the end of an existing line! Who told you to add that part in red at the end of the line? How did that happen?
The lines shown here should look like this


Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" 

if recForumCount="" then


Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 21 December 2002 :  15:39:33  Show Profile  Visit hostmp's Homepage
I don't know!!!!!!!!!!!!
Where is the mistake????

Could you send me to my e-mail address a .txt file with all the perfect code from the starts to the end, to copy on my default.asp file?

If you can, I will be very happy!

Thanks
Ciao VENETO!!!
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 21 December 2002 :  17:15:28  Show Profile  Send ruirib a Yahoo! Message
This is the code you need:


if recForumCount="" then
    recForumCount = -1
end if


I did not tell you to insert it in line# 409. I told you to insert before line 409. Since you seem to have difficulty understanding that, I would advise you to get a clean default.asp from the Snitz downloaded files, insert a blank line between lines 408 and 409, like this:


408    else
409    if recForumCount="" then
410         recForumCount = -1
411    end if
412    for iForum = 0 to recForumCount

This is how your code should look like after inserting the code. The red part is the inserted code.

Snitz 3.4 Readme | Like the support? Support Snitz too
Edited by - ruirib on 21 December 2002 17:16:15
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 22 December 2002 :  06:53:29  Show Profile  Visit hostmp's Homepage
THANK YOUUUUUUUUUUUUUUUUUU VERY MUCHHHHHHHHHHHHHHHHHHHHHHH!!!!!!!!!!!!!

YES YES YES YES YES!!!!!!!!!!!!!!!!!!!!

NOW IT IS OK!!!!!!!!!!
Thank you for your help!!!
Ciao VENETO!!!
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 22 December 2002 :  06:54:40  Show Profile  Visit hostmp's Homepage
NOOOOOOOOOOOO

It isn't OK!



Why??
Ciao VENETO!!!
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 22 December 2002 :  07:00:58  Show Profile  Visit hostmp's Homepage
My line 409 starting with this order:

Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
408 else
409 Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline

It isn't same to your example.
You write to me:

for iForum = 0 to recForumCount

and this was the line 409 to you, but for me, the line 409 is:

Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" &

What is the solution?????
Ciao VENETO!!!
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 22 December 2002 :  08:40:53  Show Profile  Send ruirib a Yahoo! Message
How can that be line 409, when you have an error in the recForumCount variable in line 409 and I don't see recForumCount in that line 409 you have just posted?

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 22 December 2002 :  09:37:51  Show Profile  Visit hostmp's Homepage
If I upload the normal default.asp file, the error that it will give me is:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'recForumCount'

/forum/Default.asp, line 409


But on the line 409, I have this text:

Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
408 else
409 Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline

Where I must put:


if recForumCount="" then
recForumCount = -1
end if

???????????????????????

Must I cover the just line 409?

I want to ask you, if you can send me all the text of the default.asp file to put it on with notepade.

Can you do iT, please?
Ciao VENETO!!!
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 22 December 2002 :  09:49:17  Show Profile  Send ruirib a Yahoo! Message
Save your default.asp as default.txt, upload it to your site and post a link to it here.

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

hostmp
Starting Member

Italy
19 Posts
Posted - 22 December 2002 :  10:40:42  Show Profile  Visit hostmp's Homepage
http://www.djx-fly.com/1.txt


Thank you very much
Ciao VENETO!!!
Go to Top of Page
Page: of 3 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.3 seconds. Powered By: Snitz Forums 2000 Version 3.4.07