The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I am looking to remove the screensize option that appears at the top of post.asp and widen the table out to 100% to bring the edges inline with the table edges of the topic review and reply postings below. Having removed the 'screensize' option could we put a table header in place and provide a title.
I would like to change the format of post from this:
To something like this
I have been having a fiddle with the tables etc and can not pinpoint the exact code to get it to have a 100% table width in the first place. Any help would as always be greatly appreciated..
Andy<
I would like to change the format of post from this:
To something like this
I have been having a fiddle with the tables etc and can not pinpoint the exact code to get it to have a 100% table width in the first place. Any help would as always be greatly appreciated..
Andy<
نوشته شده در
dont know if this is what u want but what i have came up with is like so....Line numbers will be different as this si from a modded forums file.
find line 42, shoudl read this
dim strSelectSize
add this below
strSelectSize = 3
change the number as shown
1 = 640x480
2 = 800x600
3 = 1024x768
4 = 1280x1024
if you want a different size you will need to look for this section
select case strSelectSize
and change as necessory
find lines 531 - 553 it should read this
you can either delete or comment that section out
then add this section above the commented section with this
touch wood, this will do more or less what you want it to<
find line 42, shoudl read this
dim strSelectSize
add this below
strSelectSize = 3
change the number as shown
1 = 640x480
2 = 800x600
3 = 1024x768
4 = 1280x1024
if you want a different size you will need to look for this section
select case strSelectSize
and change as necessory
find lines 531 - 553 it should read this
Code:
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Screensize:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""SelectSize"" size=""1"" tabindex=""-1"" onchange=""resizeTextarea('" & strUniqueID & "')"">" & vbNewLine & _
" <option value=""1"""
if strSelectSize = "1" then Response.Write(" selected")
Response.Write ">640 x 480</option>" & vbNewLine & _
" <option value=""2"""
if strSelectSize = "2" or strSelectSize = "" then Response.Write(" selected")
Response.Write ">800 x 600</option>" & vbNewLine & _
" <option value=""3"""
if strSelectSize = "3" then Response.Write(" selected")
Response.Write ">1024 x 768</option>" & vbNewLine & _
" <option value=""4"""
if strSelectSize = "4" then Response.Write(" selected")
Response.Write ">1280 x 1024</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
you can either delete or comment that section out
then add this section above the commented section with this
Code:
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap vAlign=""top"" align=""center"" Colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Post</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
touch wood, this will do more or less what you want it to<
نوشته شده در
MaD2ko0l, thank you so far, being at work I have nil access to my files, but reading through the suggestion has the screensize option removal been replaced with alternative code to size the table to 100% similar to the tables below it.
I will await reply and give it a try tonight when andy return from shift.. Thank you
andy<
andy<
نوشته شده در
Here's another approach:
In post.asp, lines 486-494
Add the bits in red, and your size will be fixed.
For part 2, adding a title:
Lines 518-520:
Add the line in red, you've got your title. You can keep or discard the screensize resolution at that point.
Edit: I modified the line in the second box to incorporates the changes referred to below.<
In post.asp, lines 486-494
Code:
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & Msg & "</font></p>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"""
Add the bits in red, and your size will be fixed.
For part 2, adding a title:
Lines 518-520:
Code:
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ background=""" & strImageURL & strHeadCellBGImage & """ colspan=""2"" align=""center"" vAlign=""middle""><b><font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """>Post New " & strRqMethod & "</b></font></td></tr><tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Screensize:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
Add the line in red, you've got your title. You can keep or discard the screensize resolution at that point.
Edit: I modified the line in the second box to incorporates the changes referred to below.<
نوشته شده در
Carefree, thank you does this apply for post.asp?<
نوشته شده در
"Having removed the 'screensize' option could we put a table header in place and provide a title"
What happened to your title box?
<
What happened to your title box?
<