<%@ Language=VBScript %> <% If Request.QueryString ("menuid") <> "" Then intMenuID = CInt (Request.QueryString ("menuid")) If intMenuID = 0 Then Response.Write "" Response.End () End If Call SetConn () sql = "Select tUrlName From tManBorder where ID = " & intMenuID & "" Set objTemp = Conn.Execute (sql) If not objTemp.Eof Then strUrl = objTemp (0) End If objTemp.close () Set objTemp = Nothing Call ClearConn () Response.Redirect strUrl End IF %>