| Author |
 Topic  |
|
|
luminousnerd
New Member
USA
97 Posts |
 Posted - 13 September 2006 : 18:13:26
|
| I made the image say "New Topic" in a cool font, so I want to get rid of the text link. How can I do this? I will want to do the same for "Reply to Topic". |
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 13 September 2006 : 20:05:51
|
Its in a sub called (I think) PostOptions - or something to that effect - in topic.asp. I went the other route and removed the images, leaving the text.  |
 |
|
|
luminousnerd
New Member
USA
97 Posts |
Posted - 14 September 2006 : 17:21:33
|
I don't want to screw anything up. This is what I have, I'm not sure..can I just delete the text? Or should I put a space there? Or what? :/ thanks! :)
sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then
if ((Cat_Status = 1) and (Forum_Status = 1)) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
else
if (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " Forum Locked" & vbNewLine
end if
end if
if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if ((AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "") then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>"
' DEM --> Added if statement to show normal icon for unmoderated posts.
if Topic_Status = 1 and Cat_Status <> 0 and Forum_Status <> 0 then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
else
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
end if
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if Topic_Status = 0 then
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
end if
end if
end if
if lcase(strEmail) = "1" and Topic_Status < 2 then
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 and mLev > 0 then
if strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 then
if InArray(strTopicSubs, Topic_ID) then
Response.Write " <br />" & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
Response.Write " <br />" & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
end if
end if
end if
if ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" then
Response.Write " <br /><a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "')"">Send Topic to a Friend</a>" & vbNewLine
end if
end if
if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then
Response.Write " <br /><a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">" & getCurrentIcon(strIconPrint,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">Printer Friendly</a>" & vbNewLine
end if
end if
Response.Write " </font>"
end sub
|
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 15 September 2006 : 06:00:31
|
Delete the parts in Red:
sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then
if ((Cat_Status = 1) and (Forum_Status = 1)) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
else
if (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " Forum Locked" & vbNewLine
end if
end if
if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if ((AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "") then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>"
' DEM --> Added if statement to show normal icon for unmoderated posts.
if Topic_Status = 1 and Cat_Status <> 0 and Forum_Status <> 0 then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
else
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
end if
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if Topic_Status = 0 then
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
end if
end if
end if
if lcase(strEmail) = "1" and Topic_Status < 2 then
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 and mLev > 0 then
if strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 then
if InArray(strTopicSubs, Topic_ID) then
Response.Write " <br />" & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
Response.Write " <br />" & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
end if
end if
end if
if ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" then
Response.Write " <br /><a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "')"">Send Topic to a Friend</a>" & vbNewLine
end if
end if
if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then
Response.Write " <br /><a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">" & getCurrentIcon(strIconPrint,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">Printer Friendly</a>" & vbNewLine
end if
end if
Response.Write " </font>"
end sub
I haven't had my coffee yet, so I may have missed something... as always have a backup handy.  |
|
|
|
luminousnerd
New Member
USA
97 Posts |
Posted - 21 September 2006 : 15:59:52
|
| Thanks a ton :) |
|
|
| |
Topic |
|
|
|
Topic Locked
