<% Host = Request.ServerVariables("HTTP_HOST") If Left(Host, 4) = "www." then DomainID = Mid(Host, 5) Else DomainID = Host End If If DomainID = "affordable-pregnancy-tests.com" then Response.Write "User-agent: *" & vbcrlf Response.Write "Disallow: " ElseIf DomainID = "testsforless.com" then Response.Write "User-agent: *" & vbcrlf Response.Write "Disallow: /" End If %>