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)
 Member Profiles To View For Everyone?		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

ILLHILL
Junior Member

Netherlands
341 Posts
Posted - 04 April 2005 :  15:06:44  Show Profile
Hi, am I missing something or is there no setting
to allow non-members to view member profiles?
This way someones profile page can serve as his/her personal
webpage.

Let me know if it's a setting or if I need to change anything
in the code (and if so, what).

Greets & thanks,

Dominic
CLPPR.com - All The News Only Seconds Away

Jorrit787
Average Member

Netherlands
681 Posts
Posted - 04 April 2005 :  15:46:04  Show Profile  Visit Jorrit787's Homepage  Send Jorrit787 an AOL message  Send Jorrit787 a Yahoo! Message
As far as I know there is no setting for this, but if you remove this code from pop_profile, around line 140, it should do it:

if strDBNTUserName = "" then
			Err_Msg = "You must be logged in to view a Member's Profile"

			Response.Write	"      <table width=""100%"" border=""0"">" & vbNewLine & _
					"        <tr>" & vbNewLine & _
					"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
					"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
					"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile</font></td>" & vbNewLine & _
					"        </tr>" & vbNewLine & _
					"      </table>" & vbNewLine & _
					"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
					"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & Err_Msg & "</font></p>" & vbNewLine & _
					"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
					"      <br />" & vbNewLine
			if not(strUseExtendedProfile) then
				WriteFooterShort
				Response.End
			else 
				WriteFooter
				Response.End
			end if
		end if
eXtremeGossip
Go to Top of Page

ILLHILL
Junior Member

Netherlands
341 Posts
Posted - 04 April 2005 :  16:48:34  Show Profile
I will try that and give feedback.
Thank you very much!

D
CLPPR.com - All The News Only Seconds Away
Go to Top of Page

ILLHILL
Junior Member

Netherlands
341 Posts
Posted - 04 April 2005 :  17:07:58  Show Profile
It seems to work!
Thank you very much!

Now I will try to turn them into personal webpages.

Greets & thanks,

Dominic
CLPPR.com - All The News Only Seconds Away
Go to Top of Page

Jorrit787
Average Member

Netherlands
681 Posts
Posted - 04 April 2005 :  20:53:38  Show Profile  Visit Jorrit787's Homepage  Send Jorrit787 an AOL message  Send Jorrit787 a Yahoo! Message
You're welcome

You might also want to remove the following code from the beginning of members.asp to make it accessible to everyone:

if strDBNTUserName = "" then
	Err_Msg = "<li>You must be logged in to view the Members List</li>"

	Response.Write	"      <table width=""100%"" border=""0"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
			"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information</font></td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>You must be logged in to view this page</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
			"      <br />" & vbNewLine
	WriteFooter
	Response.End
end if
eXtremeGossip
Go to Top of Page

ILLHILL
Junior Member

Netherlands
341 Posts
Posted - 05 April 2005 :  18:25:19  Show Profile
Thats indeed a very good idea!!!

Thank you very much!

Dominic
CLPPR.com - All The News Only Seconds Away
Go to Top of Page
  Previous Topic Topic Next Topic  
 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.26 seconds. Powered By: Snitz Forums 2000 Version 3.4.07