%
If Request.Cookies("ReferringURL") = "" Then
ReferringURL = Request.ServerVariables("HTTP_REFERER")
If ReferringURL <> "" Then
If left(ReferringURL,11)="http://www." then
ReferringURL = Right(ReferringURL,len(ReferringURL)-11)
elseif left(ReferringURL,12) = "https://www." then
ReferringURL = Right(ReferringURL,len(ReferringURL)-12)
elseif left(ReferringURL,7)="http://" then
ReferringURL = Right(ReferringURL,len(ReferringURL)-7)
end if
'Updated Code Below To Remove Error 10-5-04
If instr(ReferringURL,"/") >=2 Then
ReferringURL = left(ReferringURL,instr(ReferringURL,"/")-1)
End If
Response.Cookies("ReferringURL")= ReferringURL
Response.Cookies("ReferringURL").Expires=date()+90
else
Response.Cookies("Referring URL")= "UnKnown Referrer"
Response.Cookies("ReferringURL").Expires=date()+90
end if
End If
%>
ImaginationX : Eagle Mountain ScreenSaver Free Download

More ScreenSavers