<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
parent = Request.Querystring("p")

Select Case parent
	case "306"
		vgoto = "/gallery.php?id=4"
	case "180"
		vgoto = "/gallery.php?id=2"
	case "271"
		vgoto = "/shilut.php?id=21"
	case "6"
		vgoto = "/gallery.php?id=2"
	case "289"
		vgoto = "/shilut.php?id=19"
	case "179"
		vgoto = "/exhibitions.php?id=7"
	case "140"
		vgoto = "/tezoga.php?id=32"
	case "9"
		vgoto = "/tezoga.php?id=31"
	case "182"
		vgoto = "/exhibitions.php?id=10"
	case "323"
		vgoto = "/exhibitions.php?id=10"
	case "8"
		vgoto = "/shilut.php"
	case "243"
		vgoto = "/exhibitions.php?id=8"
	case "177"
		vgoto = "/exhibitions.php"
	case "335"
		vgoto = "/shilut.php"
	case "181"
		vgoto = "/exhibitions.php?id=6"
	case "275"
		vgoto = "/shilut.php"
	case "344"
		vgoto = "/gallery.php?id=3"
	case "322"
		vgoto = "/exhibitions.php?id=10"
	case "235"
		vgoto = "/shilut.php?id=20"
	Case Else
		vgoto = "/gallery.php"
end select

Response.Status="301 Moved Permanently" 
Response.AddHeader "Location", vgoto
%>