Javascript to VBScript, Domain relocate 1

[Fendal]

Hi, All

Could someone point me in the right direction in changing the following code to server-side VBScript with asp.

<script type="text/javascript">
if(document.location.href=="[URL unfurl="true"]http://www.olddomain1.com"||"http://olddomain1.com"){document.location.href=="http://www.olddomain1.com/forsale.asp"};[/URL]
if(document.location.href=="[URL unfurl="true"]http://www.newdomain2.com"||"http://newdomain2.com"){document.location.href=="http://www.newdomain2.com/index.asp"};[/URL]
if(document.location.href=="[URL unfurl="true"]http://255.255.255.255"){document.location.href=="http://255.255.255.255/404error.html"};[/URL] 
</script>

Thanks.

 

[ChrisHirst]

dim hostname
hostname = request.servervariables("HTTP_HOST")
if instr(hostname,"olddomain1") > 0 then 
    response.addheader = "Location","[URL unfurl="true"]http://www.olddomain1.com/forsale.asp"[/URL]
' note: this will be a 302 response 
end if
if instr(hostname,"newdomain2") > 0 and instr(hostname,"ww.") <> 1 then 
    response.status = "301 Moved Permanently"
    response.addheader = "Location","[URL unfurl="true"]http://www.newdomain2.com/"[/URL]
' note: for SE friendliness you should not link to the index page.
end if
if request.servervariables("LOCAL_ADDR") = "255.255.255.255"
    response.status = "404 Not Found"
end if

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[Fendal]

Damn it, thats a lot more than a point, Thanks a lot, Chris