<%
IF (Request.QueryString("seg")) <> "" THEN
strSegment = Request.QueryString("seg")
ELSE
strRefer= Request.ServerVariables("HTTP_REFERER")
IF InStr(strRefer,"seg=") THEN
strSegment=MID(strRefer,InStr(strRefer,"seg=")+4)
ELSEIF InStr(strRefer,"cp_") THEN
strSegment="cp"
ELSEIF InStr(strRefer,"ed_") THEN
strSegment="edu"
ELSEIF InStr(strRefer,"sb_") THEN
strSegment="smb"
ELSEIF InStr(strRefer,"gv_") THEN
strSegment="gov"
ELSEIF InStr(strRefer,"edu_") THEN
strSegment="edu"
ELSEIF InStr(strRefer,"/work/") THEN
strSegment="smb"
END IF
END IF
SELECT CASE strSegment
CASE "smb"
seg="sb"
strSegmentValue="Small Business"
CASE "sb"
seg="sb"
strSegmentValue="Small Business"
CASE "cp/"
seg="cp"
strSegmentValue="Corporation"
CASE "cp"
seg="cp"
strSegmentValue="Corporation"
CASE "edu"
seg="ed"
strSegmentValue="Education"
CASE "ed"
seg="ed"
strSegmentValue="Education"
CASE "gov"
seg="gv"
strSegmentValue="Government"
CASE "gv"
seg="gv"
strSegmentValue="Government"
CASE "cp"
seg="cp"
strSegmentValue="Home"
CASE ""
seg="sb"
strSegmentValue="Small Business"
END SELECT
%>
|
|
Gateway.com : reman'd pcs : what is is a remanufactured Gateway pc? |