<%@ Page Language="VB" ValidateRequest="False" %> <%@ Import Namespace="Omni" %> <% if len(request.querystring.tostring)>0 then dim _sQS as String = server.urldecode(request.querystring.tostring) if lcase(_sQS).startswith(lcase(_sURL)) then dim _u as Uri Try _u = new Uri(right(_sQS,len(_sQS)-4)) dim _aParts() as String=_u.segments if lcase(_aParts(_aParts.length-1)).endswith(lcase(_sExt)) then dim _aURL() as string = split(_aParts(_aParts.length-1),"-") if _aURL.length >= 2 then if isnumeric(_aURL(0)) and isnumeric(_aURL(1)) then _dirID=cint(_aURL(0)) _itmID=clng(_aURL(1)) dim _oDT as new omni.dirtype(_dirID) _dirName = _oDT.Singular if _oDT.ID=1 then dim _oHC as new omni.omnigym(_itmID) _itmName = _oHC.Name _oHC = nothing else dim _oGI as new omni.genericitem(_itmID) _itmName = _oGI.ContactCompany _oGI = nothing end if _oDT = nothing _showContent=false end if end if end if Catch ex as exception End Try end if end if %> <%@ Register TagPrefix="cont" TagName="header" Src="~/controls/header.ascx" %> <%@ Register TagPrefix="cont" TagName="directory_links" Src="~/controls/directory_links.ascx" %> <%@ Register TagPrefix="cont" TagName="employers_carousel" Src="~/controls/employers_carousel.ascx" %> <%@ Register TagPrefix="cont" TagName="footer" Src="~/controls/footer.ascx" %> <%@ Register TagPrefix="cont" TagName="left_menu" Src="~/controls/left_menu.ascx" %> <%@ Register TagPrefix="cont" TagName="rightblock" Src="~/controls/rightblock.ascx" %> <%@ Register TagPrefix="jobs" TagName="results" Src="~/controls/basic_job_list.ascx" %> <%@ Register TagPrefix="cont" TagName="alphabetical_employers" Src="~/controls/alphabetical_employers.ascx" %> <%@ Register TagPrefix="jobs" TagName="find_employers" Src="~/controls/find_employers.ascx" %> <%@ Register TagPrefix="cont" TagName="front_page" Src="~/controls/front_page.ascx" %> <% if not _showContent then response.write(_itmName & " : " & _dirName & " directory") else response.write("Sorry this page has been moved") end if %> <% if not _showContent then response.write("") else response.write("") end if %> <% if not _showContent then response.write("") else response.write("") end if %>

Sorry this page has been moved

<% if not _showContent then Server.Execute("/_aspx/diritem.aspx?site=57&dir=" & _dirID & "&itm=" & _itmID & "") else %>

Sorry we have either moved this page or it no longer exists.

Please either search again or click here to go to our homepage. Sorry for the inconvenience.

<% End If %>