When I was tweaking my post_info.asp I replaced all instances of the statement block pointed out by Nathan with Go_Result err_msg,0
Then here is how I Modified the sub Go_result
sub Go_Result(str_err_Msg, boolOk)
%><table border="0" width="100%">
<tr>
<td width="33%" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="icons/icon_folder_open.gif" border="0" WIDTH="15" HEIGHT="15"> <a href="default.asp">All Forums</a><br>
<%if Request.form("Method_Type") = "Topic" or _
Request.form("Method_Type") = "TopicQuote" or _
Request.form("Method_Type") = "Reply" or _
Request.form("Method_Type") = "ReplyQuote" or _
Request.form("Method_Type") = "EditTopic" then
%> <img src="icons/icon_bar.gif" border="0" WIDTH="15" HEIGHT="15"><img src="icons/icon_folder_open.gif" border="0" WIDTH="15" HEIGHT="15"> <a href="link.asp?FORUM_ID=<% = Request.Form("FORUM_ID") %>"><% =ChkString(Request.Form("FORUM_Title"),"display") %></a><br>
<%end if
if Request.form("Method_Type") = "Reply" or _
Request.form("Method_Type") = "ReplyQuote" or _
Request.form("Method_Type") = "TopicQuote" or _
Request.form("Method_Type") = "EditTopic" then
%> <img src="icons/icon_blank.gif" border="0" WIDTH="15" HEIGHT="15"><img src="icons/icon_bar.gif" border="0" WIDTH="15" HEIGHT="15"><img src="icons/icon_folder_open_topic.gif" border="0" WIDTH="15" HEIGHT="15"> <a href="<% =Request.Form("refer") %>"><% =ChkString(Request.Form("Topic_Title"),"title") %></a>
<%end if
%> </font>
</td>
</tr>
</table>
<%if boolOk = 1 then
%> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">
<% select case Request.Form("Method_Type")
case "Edit"
Response.Write("Your Reply Was Changed Successfully!")
case "EditGroup"
Response.Write("Group Information Updated Successfully!")
case "EditCategory"
Response.Write("Category Information Updated Successfully!")
case "EditForum"
Response.Write("FORUM Information Updated Successfully!")
case "EditTopic"
Response.Write("Topic Changed Successfully!")
case "EditURL"
Response.Write("URL Information Updated Successfully!")
case "Reply"
Response.Write("New Reply Posted!")
DoPCount
DoUCount Request.Form("UserName")
DoULastPost Request.Form("UserName")
case "ReplyQuote"
Response.Write("New Reply Posted!")
DoPCount
DoUCount Request.Form("UserName")
DoULastPost Request.Form("UserName")
case "TopicQuote"
Response.Write("New Reply Posted!")
DoPCount
DoUCount Request.Form("UserName")
DoULastPost Request.Form("UserName")
case "Topic"
DoTCount
DoPCount
DoUCount Request.Form("UserName")
DoULastPost Request.Form("UserName")
Response.Write("New Topic Posted!")
case "Forum"
Response.Write("New Forum Created!")
case "URL"
Response.Write("New URL Created!")
case "Category"
Response.Write("New Category Created!")
case "Group"
Response.Write("New Group Created!")
case else
Response.Write("Complete!")
DoPCount
DoUCount Request.Form("UserName")
DoULastPost Request.Form("UserName")
end select
%> </font></p>
<meta http-equiv="Refresh" content="2; URL=<% =Request.Form("refer")%>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">
<% select case Request.Form("Method_Type")
case "Group"
Response.Write("Assign categories to this Group.")
case "EditGroup"
Response.Write("Thank you for your contribution!")
case "Category"
Response.Write("Remember to create at least one new forum in this category.")
case "EditCategory"
Response.Write("Thank you for your contribution!")
case "Forum"
Response.Write("The new forum is ready for users to begin posting!")
case "EditForum"
Response.Write("Thank you for your contribution!")
case "URL"
Response.Write("The new URL is in place!")
case "EditURL"
Response.Write("Cheers! Have a nice day!")
case "Topic"
Response.Write("Thank you for your contribution!")
case "TopicQuote"
Response.Write("Thank you for your contribution!")
case "EditTopic"
Response.Write("Thank you for your contribution!")
case "Reply"
Response.Write("Thank you for your contribution!")
case "ReplyQuote"
Response.Write("Thank you for your contribution!")
case "Edit"
Response.Write("Thank you for your contribution!")
case else
Response.Write("Have a nice day!")
end select
%> </font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.Form("refer")%>">Back To Forum</font></a></p>
<%else
%> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There has been a problem with the details!</font></p>
<p align="center"><font color="red" size="<% =strHeaderFontSize %>"><% =str_err_Msg %></font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">Go back to correct the problem.</a></font></p>
<%end if
WriteFooter
Response.End
end sub
www.forumSquare.com - GauravBhabu - It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.