<%@ LANGUAGE="VBScript" %> <% OPTION EXPLICIT %> <% Dim rq Dim maker_id Dim car_class_id Dim type_id Dim mode Dim filename If Len(Trim(Request.QueryString)) <> "" Then maker_id = Request.QueryString("maker_id") car_class_id = Request.QueryString("car_class_id") type_id = Request.QueryString("type_id") mode = Request.QueryString("mode") End If If mode = 1 Then filename = "catalog" Elseif mode = 2 Then filename = "mitumori" Elseif mode = 3 Then filename = "sijyou" End if rq = "?" & "maker_id=" & maker_id & "&car_class_id=" & car_class_id & "&type_id=" & type_id Response.Redirect(strSSlDomain & "/support/" & filename &"/index.php" & rq) %>