<%@LANGUAGE="VBSCRIPT"%> <% dim url_var url_var = request.querystring("p") Select Case url_var Case "2" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/about_tbi/" Case "3" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/about_ifs/" Case "4" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/contact/" Case "5" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/about_the_trip/why_us/" Case "7" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/sample_itinerary/" Case "8" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/q_and_a/" Case "9" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/pix_and_quotes/" Case "10" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/safety_and_security/security_information/" Case "37" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/flight_info_extensions/" Case "68" Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/register_now/" Case Else Response.Status = "301 Moved Permanently" Response.AddHeader "Location","http://www.israelfreespirit.com/" End Select %>