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/O Code)
 Require fields?		  New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 07 April 2004 :  11:09:13  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
Sure, email me the file.
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
Edited by - OneWayMule on 08 April 2004 08:36:53
Go to Top of Page

Jezmeister
Senior Member

United Kingdom
1141 Posts
Posted - 07 April 2004 :  11:36:38  Show Profile  Visit Jezmeister's Homepage
will do when its finished.. first problem: syntax error on the else in these lines - if i remove the else and let it run (problem being you would then see the same thing twice) its fine... 

	if strPicture = "1" then
			if strRequirePicture = "0" then
			Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
					"                      <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Picture </font></b></td>" & vbNewLine & _
			else
			Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
					"                      <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><font color=""" & strHiLiteFontColor & """>*</font>Picture </font></b></td>" & vbNewLine & _
			end if
					"                    </tr>" & vbNewLine & _
					"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Picture URL: </font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Photo_URL"" size=""25"" maxLength=""255"" value="""
			if strMode <> "Register" then
Go to Top of Page

Jezmeister
Senior Member

United Kingdom
1141 Posts
Posted - 07 April 2004 :  11:40:59  Show Profile  Visit Jezmeister's Homepage
and same with the else here:
		if strICQ = "1" then
			if strRequireICQ = "0" then
			Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
			else
					"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font>ICQ: </font></b></td>" & vbNewLine & _
			end if
					"                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
Go to Top of Page

Dave.
Senior Member

USA
1037 Posts
Posted - 08 April 2004 :  11:15:34  Show Profile
Thats the Response.Write syntax

Response.Write "Text"

Response.Write "More text" & _
"I can not include Response.Write because I have &_ at the end of the above line"

YOu can only start a ine with "text..." wehn you have &_ on the above line.

so remove the &_ on the lines aboce the 'else' and 'end if', and make sure you add Response.Write's to the beginning of the lines that do not have &_ above them.





		if strICQ = "1" then
			if strRequireICQ = "0" then
			Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine 
			else
				Response.Write	"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font>ICQ: </font></b></td>" & vbNewLine 
			end if
					Response.Write  "                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
Go to Top of Page

Jezmeister
Senior Member

United Kingdom
1141 Posts
Posted - 08 April 2004 :  11:26:57  Show Profile  Visit Jezmeister's Homepage
ok cheers!
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous 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.16 seconds. Powered By: Snitz Forums 2000 Version 3.4.07