<!-- Script Start
On error resume next
dim newUrl
dim docName

	if instr(1,window.top.location.href,"?") = 0 Then
		if InStr(1,lcase(window.top.location.href),"content/") > 0 AND right(lcase(window.top.location.href),4) = ".asp" Then
			newUrl = window.top.location.host
			if InStr(1,lcase(newUrl),"localhost") > 0 AND InStr(1,lcase(newUrl),"cosmodeva") = 0 Then newUrl = newUrl + "/COSMODEVA/"
			If Instr(1,LCase(newUrl),"http://") = 0 Then newUrl = "http://" + newUrl
			docName = Mid(window.top.location.href,InStrRev(window.top.location.href,"/",-1)+1)
			if InStr(1,docName,"_txt") > 0 Then docName = Mid(docName,1,InStr(1,docName,"_txt")-1) + Mid(docName,InStr(1,docName,"."))
			if docName = "NEWS_021.asp" Then docName = "NEWS_020.asp"
			newUrl = newUrl + "?frm=" + docName 
			window.top.location.href = newUrl
		end if
	end if 

-->