%
prot = "http"
https = lcase(request.ServerVariables("HTTPS"))
if https <> "off" then prot = "https"
domainname = Request.ServerVariables("SERVER_NAME")
filename = Request.ServerVariables("SCRIPT_NAME")
querystring = Request.ServerVariables("QUERY_STRING")
'response.write prot & "://" & domainname & filename & "?" & querystring
'response.write Request.ServerVariables("REMOTE_ADDR") &"
"
'response.write Request.ServerVariables("HTTP_REFERER") &"
"
'response.write Request.ServerVariables("PATH_INFO") &"
"
site = Request.ServerVariables("HTTP_REFERER")
If instr(domainname,"www.dbncomponents") then
session("refer")="dbnComponents"
response.redirect "page.asp"
pg="partnerDbnComp"
Else
session("refer")="blacksmith"
response.redirect "page.asp?page=blacksmithH"
End If
'response.write Request.ServerVariables("REMOTE_HOST") &"
"
If pg="blacksmith" or pg="partnerBlacksmith" or pg = "blacksmithH" then
imgLogo = ""
headerTxt = "Durban Blacksmiths Leading supplier of custom components"
footerTxt = "Copyright "&Year(Now())&" Durban Blacksmith CC All Rights Reserved"
Else
imgLogo = ""
headerTxt = "Durban Component Manufacturers Leading supplier of custom components"
footerTxt = "Copyright "&Year(Now())&" Durban Component Manufacturers CC All Rights Reserved"
End If
%>
|