Rescatar página referente

[Saruman]

Código:

main_page_link = request.ServerVariables("SERVER_NAME")
	if request.ServerVariables("QUERY_STRING") <> "" then
		query_string = "?" & request.ServerVariables("QUERY_STRING") & "&"
	else
		query_string = "?"
	end if
	
	if request.ServerVariables("SERVER_PORT") = 80 then
		main_page_link = "http://" & main_page_link & request.ServerVariables("SCRIPT_NAME") & query_string
	else
		main_page_link = "http://" & main_page_link & request.ServerVariables("SCRIPT_NAME") & ":" & request.ServerVariables("SERVER_PORT") & query_string
	end if

pd. no es por presumir, pero el mio esta mas completo... a mi me paso una vez que tenia un sitio en un puerto diferente al 80 y no me redireccionaba a ninguna parte... ahi lo arregle