<%
Dim redirectUrl
redirectUrl = request("r")
SELECT CASE redirectUrl
	CASE "nb1"
		redirectUrl = "http://www.nxtbook.com/nxtbooks/gbi/affiliation/index.php"
	CASE "nb2"
		redirectUrl = "http://www.nxtbook.com/nxtbooks/gbi/affiliation2/index.php"
	CASE "nb3"
		redirectUrl = "http://www.nxtbook.com/nxtbooks/gbi/affiliation3/index.php"
	CASE else
		redirectUrl = "http://www.gbi.org"
END SELECT

Response.Redirect(redirectUrl)
%>