quote:

---

 %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There Was A Problem With Your Details</font></p>

	<table align=center border=0>
	  <tr>
	    <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<ul>
		<% =Err_Msg %>
		</ul>
	    </font></td>
	  </tr>
	</table>

	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Go Back To Enter Data</a></font></p>
<% 

---

Go_Result "", 1
response.end

WriteFooter
Response.End

 
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

if (This has a problem) then err_Msg = addGoErr("This has a problem")

function addGoErr(strErrMessage)
  if err_Msg = "" then
    addGoErr = strErrMessage
  else
    addGoErr = "<br><br>" & strErrMessage
  end if
end function

quote:

---

I was just going to post that.

Line #1386 & 1387:

Go_Result "", 1
response.end

should be changed to:

WriteFooter
Response.End

---