<% Dim page page = Request.QueryString("p") if isEmpty(Request.QueryString("p")) then page = "about" end if verify(page) sub getPage(p) select case p case "about" %><% case "studioblue" %><% case "wine" %><% case "federal" %><% case "government" %><% case "partners" %><% case "rs" %><% case "brand" %><% case "marcom" %><% case "idservices" %><% case "planning" %><% case "portfolio" %><% case "casestudies" %><% case "careers" %><% case "contact" %><% case "letter" %><% case "social" %><% case "podcasts" %><% case "library" %><% case "newsletter" %><% case "joinus" %><% case else page = "about" %><% end select end sub sub verify(p) select case p case "about" %><% case "studioblue" %><% case "wine" %><% case "federal" %><% case "government" %><% case "partners" %><% case "rs" %><% case "brand" %><% case "marcom" %><% case "idservices" %><% case "planning" %><% case "portfolio" %><% case "casestudies" %><% case "careers" %><% case "contact" %><% case "letter" %><% case "social" %><% case "podcasts" %><% case "library" %><% case "newsletter" %><% case "joinus" %><% case else page = "about" end select end sub %> MarCom Group, Inc. :: Fairfax, Virginia :: 703.218.1600 <% Dim user_agent, match, matchIphone, ie, iphone user_agent = Request.ServerVariables("HTTP_USER_AGENT") Set Regex = New RegExp With Regex .Pattern = "(MSIE)"'"(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm)" .IgnoreCase = True .Global = True End With Set RegexIphone = New RegExp With RegexIphone .Pattern = "(iPhone|iPod|iPad)"'"(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm)" .IgnoreCase = True .Global = True End With match = Regex.Test(user_agent) matchIphone = RegexIphone.Test(user_agent) If match Then ie = true if matchIphone then iphone = true ' if not iphone then %> <% ' end if if ie = true then %> <% end if if iphone then %> <% end if %>
style="bottom:82px;<% if page = "government" then %>left:100px;<% elseif page = "podcasts" or page = "newsletter" then %>left: 50px;<%end if%>"<% end if %>> <% if page = "about" then %>
MarCom Logo
<% getPage(page) %>
<% else getPage(page) end if %>
<% if not isEmpty(Request.QueryString("federalHR")) then %> <% end if %> <% if page = "about" or page = "studioblue" or page = "wine" or page = "federal" or page = "government" or page = "partners" then if isEmpty(Request.QueryString("federalHR")) then %>
<% else %>
<% end if elseif page = "rs" or page = "brand" or page = "marcom" or page = "idservices" or page = "planning" then %>
<% elseif page ="portfolio" or page = "casestudies" then if isEmpty(Request.QueryString("federalHR")) then %>
<% else %>
<% end if elseif page = "careers" then %>
<% elseif page = "contact" then %>
<% elseif page = "joinus" then %>
OPM
<% elseif page = "letter" or page = "social" or page = "podcasts" or page = "library" or page = "newsletter" then if isEmpty(Request.QueryString("federalHR")) then %>
<% else %>
<% end if end if %>
Every ripple makes an impact.
<% if page = "joinus" then%> <% elseif isEmpty(Request.QueryString("federalHR")) then%> <% end if %>