Directory Tree placement - Posted (1219 Views)
Average Member
Andy Humm
Posts: 908
908
I am in the process of altering my Email all members mod, and have removed the pop-up notion. The file works okay but I am trying to add a directory tree at the top of the input form/table and can not see where to insert the code.
I believe this could be some code for the tree
Response.Write "<p><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & _
getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">" & "All Forums</a><br />" & _
getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolder,"","align=""absmiddle""") & " <a href=""admin_pop_mail.asp"">" & "Email All Members" & _
"</a></font></p>"

The revised admin_pop_mail file is here (txt)
Thank you andy<
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Senior Member
MaD2ko0l
Posts: 1053
1053
this is straight from pm_view.asp, it is in its own table so its a good place to start.
Code:
	Response.Write	"<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""pm_view.asp"">Private Messages</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine

as for placement, i woudl put it around here.
find line

Code:
			"      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _

and then add the pm_view directory tree above the <table> tag

touch wood, it will be placed more or less where u want to to go...however i havent tryed it and i have onyl had a quick look at your txt file.
post a pic of the result if its not what you want<
© 1999-2010 MaD2ko0l
Posted
Average Member
Andy Humm
Posts: 908
908
Great starter for ten! I have resolved the tree, find the else line 190 just before
Response.write " <form action=""admin_pop_mail.asp"" method=""Post"" id=""Form1""
amend to read:
Code:
else 
Response.Write "<center>" & vbNewLine & _
"<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""admin_home.asp"">Admin Section</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " E-mail All Members</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
Response.write " <form action=""admin_pop_mail.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
thank you mad2ko0l<
Posted
Senior Member
MaD2ko0l
Posts: 1053
1053
;-) not a problem, glad i could be of assistance<
© 1999-2010 MaD2ko0l
 
You Must enter a message