<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>"> 

<input name="Refer" type="hidden" value="<%
	if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" then
		Response.write "topic.asp?TOPIC_ID=" & strRqTopicID
	Elseif 	strRqMethod = "Topic" or _
	strRqMethod = "TopicQuote" then
		Response.write "forum.asp?FORUM_ID=" & strRqForumId
		Else
			Response.write "default.asp"
		End If
%>">

quote:

---

I do not have a problem with infiniate looping when I post, so is this a general problem or does it only happen under specific circumstances ?

You should be a little more specific before proposing a fix.

---

	if Request.ServerVariables("HTTP_REFERER") = "" OR Request.ServerVariables("HTTP_REFERER") = " " Then
		if strRqMethod = "Edit" or _
			strRqMethod = "EditTopic" or _
			strRqMethod = "Reply" or _
			strRqMethod = "ReplyQuote" then
			
			
			'## Forum_SQL
			strSql = "SELECT " & strActivePrefix & "REPLY.REPLY_ID, " & _
				strActivePrefix & "REPLY.FORUM_ID, " & _
				strActivePrefix & "REPLY.TOPIC_ID, " & _
				strActivePrefix & "REPLY.R_DATE " & _
				" FROM " & strActivePrefix & "REPLY " & _
				" WHERE TOPIC_ID = " & strRqTopicID & " "

			strSql = strSql & " ORDER BY " & strActivePrefix & "REPLY.R_DATE ASC"

			if strDBType = "mysql" then 'MySql specific code		
				'## Forum_SQL - Get the total pagecount 
				strSql2 = "SELECT COUNT(" & strActivePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT "
				strSql2 = strSql2 & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "REPLY "
				strSql2 = strSql2 & " WHERE TOPIC_ID = " & strRqTopicID & " "
				
				set rsCount = my_Conn.Execute(strSql2)
				if not rsCount.eof then
					maxpages = (rsCount("REPLYCOUNT")  \ strPageSize )
					if rsCount("REPLYCOUNT") mod strPageSize <> 0 then
						maxpages = maxpages + 1
					end if
				else
					maxpages = 1
				end if 
			
				rsCount.close
				set rsCount = nothing
				
			else 'end MySql specific code
			
				set rsReplies = Server.CreateObject("ADODB.Recordset")
		
				rsReplies.cachesize = strPageSize
		
				rsReplies.open  strSql,  my_Conn, 3
		
				If not (rsReplies.EOF or rsReplies.BOF) then  '## No replies found in DB
					rsReplies.movefirst
					rsReplies.pagesize = strPageSize
					rsReplies.absolutepage = cint(rsReplies.pagecount)
					maxpages = cint(rsReplies.pagecount)
				end if
			end if
				Response.write "topic.asp?TOPIC_ID=" & strRqTopicID & "&wichpage=" & maxpages
				
		Elseif 	strRqMethod = "Topic" or _
			strRqMethod = "TopicQuote" then
				Response.write "forum.asp?FORUM_ID=" & strRqForumId
		Else
			Response.write "default.asp"
		End If
	Else
		response.write Request.ServerVariables("HTTP_REFERER") 
	end If