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: MOD Implementation
 rearrange look for topic.asp (avatars)		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

tjhilder
Junior Member

United Kingdom
110 Posts
Posted - 28 August 2004 :  07:16:21  Show Profile  Visit tjhilder's Homepage
Hi,

at present the left side with all the member details goes as following:

member id
member role
stars
country
avatar
post count

i want to rearange it to this order:

member id
member role
stars
avatar
country
post count

the link to my file is http://manbehindthespecs.co.uk/topic.txt

can somebody show me which lines I need to change and what code please?
"I must have a bad immune system because I catch colds better then I catch trains" - TJ 2004
Edited by - tjhilder on 28 August 2004 10:54:09

tjhilder
Junior Member

United Kingdom
110 Posts
Posted - 28 August 2004 :  10:54:18  Show Profile  Visit tjhilder's Homepage
nevermind, figured it out; except the first post and replies look differently, look below...
"I must have a bad immune system because I catch colds better then I catch trains" - TJ 2004
Edited by - tjhilder on 28 August 2004 10:58:29
Go to Top of Page

PeeWee.Inc
Senior Member

United Kingdom
1893 Posts
Posted - 28 August 2004 :  11:03:52  Show Profile  Visit PeeWee.Inc's Homepage
look for the sub "sub GetFirst()" and edit it to look how you want. Pretty much the same way you did for replies.

mine looks like this:
sub GetFirst()
	CColor = "ffcc"
	Response.Write "<tr>" & _
	"<td valign=""top"" width=""" & strTopicWidthLeft & """ class=""ffcc"">" & _
	"<p class=""iffc"
	if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
	
	Response.Write "<td class=""hfc"" valign=""top"" width=""" & strTopicWidthLeft & """>" 
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">" 
			Response.Write "<p><b><span class=""ffs""><center>" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</center></span></b></tr></table>"
	if strShowRank = 1 or strShowRank = 3 then
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">" 
				Response.Write "<span class=""iffc ffs""><center>" & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "</center></span></b></tr></table>"
			end if
	if strShowRank = 2 or strShowRank = 3 then
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">" 
				Response.Write	"<center>" & getStar_Level(Member_Level, Member_Posts) & "</center></tr></table>"
			end if
 	Response.Write "</p>" & _
	"<p class=""iffc ffs"
	if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
	Response.Write """>"
			if Member_Avatar <> "noavatar.gif" then
		 		    response.write"		<img src=""" & Member_Avatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """><br /><br />"
	end if
	if strCountry = "1" and trim(Member_Country) <> "" then
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">" 
				Response.Write "<center>" & Member_Country & "</center></tr></table>"
			end if
        		Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">"
			Response.Write "<center>" & Member_Posts & " Posts</td></tr></table>" & _
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">"
			Response.Write "<center>Member #<strong>" & TMember_ID & "</strong></td></tr></table>" & _
			
	"<td width=""" & strTopicWidthRight & """ class=""ffcc"
	if lcase(strTopicNoWrapRight) = "1" then Response.Write " nw"
	if (AdminAllowed = 1) and (maxpages > 1) then
		Response.Write """ colspan=""3"
	else
		Response.Write """ colspan=""2"
	end if
	Response.Write """ valign=""top"">" & _
	"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
	"<tr>" & _
	"<td class=""iffc ffs"" style=""border:none;"" valign=""top"">"
	%>
	<center>
	<!--#INCLUDE FILE="banner.asp" -->
	</center>
	<%
	if Topic_Status < 2 then
		Response.Write "<center>"
		Response.Write  getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""3""")
		Response.Write "</BR>"
		Response.Write "Posted - " & ChkDate(Topic_Date, " : " ,true)
		Response.Write "</BR>"
	elseif Topic_Status = 2 then
		Response.Write "NOT MODERATED!!!"
	elseif Topic_Status = 3 then
		Response.Write  getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "ON HOLD"
	end if
	if mLev > 2 or Member_ReceiveMail = "1" then 
		if (mlev <> 0) or (mlev = 0 and  strLogonForMail <> "1") then 
			Response.Write "<a href=""JavaScript:openWindow('pop_mail.asp?id=" & TMember_ID & "')"">E-Mail</a>" 
		        Response.Write " |"
		end if
	end if
	if (strHomepage = "1") then
		if Member_Homepage <> " " then
			Response.Write " <a href=""" & Member_Homepage & """ target=""_blank"">Home Page</a>"
			Response.Write " |"
		end if
	end if
	if (AdminAllowed = 1 or TMember_ID = MemberID) then
		if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then
			Response.Write " <a href=""post.asp?" & ArchiveLink & "method=EditTopic&reply_id=" & Topic_ID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>Edit Topic</a>"
			Response.Write " |"
		end if
	end if
	if (strAIM = "1") then
		if Trim(Member_AIM) <> "" then
			Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & TMember_ID & "')"">AOL Message</a>"
			Response.Write " |"
		end if
	end if
	if (strICQ = "1") then
		if Trim(Member_ICQ) <> "" then
			Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & TMember_ID & "')"">ICQ Message</a>"
			Response.Write " |"
		end if
	end if
	if (strMSN = "1") then
		if Trim(Member_MSN) <> "" then
			Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & TMember_ID & "')"">MSN Messenger</a>"
			Response.Write " |"
		end if
	end if
	if (strYAHOO = "1") then
		if Trim(Member_YAHOO) <> "" then
			Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Member_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">Yahoo! Message</a>"
			Response.Write " |"
		end if
	end if
	if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "" ) then
		Response.Write " <a href=""post.asp?" & ArchiveLink & "method=TopicQuote&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>Quote</a>"
		
	end if
	if (strIPLogging = "1") then
		if (AdminAllowed = 1) then
			Response.Write "</br>"
			Response.Write " <a href=""JavaScript:openWindow('pop_viewip.asp?" & ArchiveLink & "mode=getIP&topic_id=" & TopicID & "&forum_id=" & Forum_ID & "')"">IP</a>"
		        Response.Write " |"
		end if
	end if
	if (AdminAllowed = 1) or (TMember_ID = MemberID and Topic_Replies < 1) then
	
		Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Topic&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">Delete</a>"
		
	end if
	' DEM --> Start of Code added for Full Moderation
	if (AdminAllowed = 1 and Topic_Status > 1) then
		TopicString = "topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID
		Response.Write " |"
		Response.Write " <a href=""JavaScript:openWindow('pop_moderate.asp?" & TopicString & "')"">Approve/Hold/Reject this Topic</a>"
	End if
	' End of Code added for Full Moderation
	Response.Write "<hr noshade=""noshade"" size=""1"" /></td>" 
	Response.Write "</center>" & _
	"</tr>" & _
	"<tr>" & _
	"<td class=""iffc"" style=""border:none;"" valign=""top""><span class=""ifl"" id=""msg"">"
	
	if qsSearchTerms <> "" then
		Response.Write	SearchHiLite(formatStr(Topic_Message))
	else
		Response.Write	formatStr(Topic_Message)
	end if
	Response.Write "</span id=""msg""></td>" & _
	"</tr>"
	if CanShowSignature = 1 and Topic_Sig = 1 and Topic_MemberSig <> "" then
			Response.Write("                  <table width=""100%"">" & vbNewLine)
			Response.Write("                    <tr>" & vbNewLine)
			Response.Write "<td width=""100%"" class=""putc"">" 
			Response.Write	"<span class=""dsc""><center>" & formatStr(Topic_MemberSig) & "</center></span></tr>"
	end if

	if strEditedByDate = "1" and Topic_LastEditBy <> "" then
		if Topic_LastEditBy <> Topic_Author then 
			Topic_LastEditByName = getMemberName(Topic_LastEditBy)
		else
			Topic_LastEditByName = chkString(Member_Name,"display")
		end if
		Response.Write "<tr>" & _
		"<td class=""ffs iffc"" style=""border:none;"" valign=""bottom""><hr noshade=""noshade"" size=""1"" class=""ffcc"" />" & _
		"Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & _
		"</td></tr>"
	end if
	Response.Write "</table>" & _
	"</td>" & _
	"</tr>"
End Sub


And outputs this:

Thats modded alot tho :)
De Priofundus Calmo Ad Te Damine
Edited by - PeeWee.Inc on 28 August 2004 11:12:46
Go to Top of Page

tjhilder
Junior Member

United Kingdom
110 Posts
Posted - 28 August 2004 :  11:41:16  Show Profile  Visit tjhilder's Homepage
thanks for replying but I figured it out already though lol but at least others will know how to do the same.
"I must have a bad immune system because I catch colds better then I catch trains" - TJ 2004
Go to Top of Page

tjhilder
Junior Member

United Kingdom
110 Posts
Posted - 28 August 2004 :  11:49:21  Show Profile  Visit tjhilder's Homepage
how'd you get the member #6 thing on there? is that another MOD I haven't found yet?
"I must have a bad immune system because I catch colds better then I catch trains" - TJ 2004
Go to Top of Page

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts
Posted - 28 August 2004 :  12:31:03  Show Profile  Visit OneWayMule's Homepage  Send OneWayMule an ICQ Message
quote:
Originally posted by tjhilder

how'd you get the member #6 thing on there? is that another MOD I haven't found yet?

http://www.onewaymule.org/onewayscripts/forums/topic.asp?TOPIC_ID=29
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
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.35 seconds. Powered By: Snitz Forums 2000 Version 3.4.07