%@ Language=VBScript %>
<%
if instr(1,Request.ServerVariables("SERVER_NAME"),"compucated.com",vbtextcompare) then
Response.Redirect "http://www.ansme.com/"
end if
%>
<%
Response.CacheControl = "no-cache, must-revalidate"
Response.AddHeader "Pragma", "no-cache"
if request.querystring("from") <> "" then
response.redirect "/"
end if
%>
AnsMe.com - Web's Smartest Search Engine
<%
Dim Engines
Engines = split("googlebot,Teoma,Mediapartners-Google,msnbot,Yahoo! Slurp", ",", -1, vbTextCompare)
dim engineInfo
engineInfo = "Do you want company information for the domains you own? They give you ranking information as well. Find out the worth of your web site with this service. They even figure out what are sentences and keywords within your site and the relevancy of your information. Try out this service, it is really interesting.
Also, we have T-Shirt Printing at really low costs. You can save a lot of money using this service. It is rather amazing how low these prices really are. They have everything from brochures, t-shirts, digitial printing, offset printing and more."
For x = LBound(Engines) To UBound(Engines)
If InStr(1, Request.ServerVariables("HTTP_USER_AGENT"), Engines(x), vbTextCompare) Then
Response.Write(engineInfo)
End If
Next
%>