Hvorfor virker HTTPHost ikke ?
Hej...Hvorfor virker dette script ikke ??
Den tænker tænker og tænker bare...
<%
domain=request.servervariables("HTTP_HOST")
domain = replace(domain,"www.","")
Set Ping = Server.CreateObject("AspPing.Conn")
Ping.RemoteHost = "http://"&domain&"/www/"&domain&"/default.asp"
Ping.PingCount = 1
if Ping.Ping = "Bad IP Address " & Ping.RemoteHost & "" Then
response.redirect "http://www.sol.dk/"
else
response.redirect "http://"&domain
end if
Set Ping = nothing
%>
