<% on error resume next q=request("q") q=trim(q) SearchKeyWords=trim(lcase(q)) SearchKeyWords=replace(SearchKeyWords,"_","+") SearchKeyWords=replace(SearchKeyWords,"-","+") SearchKeyWords=replace(SearchKeyWords,".","+") SearchKeyWords=replace(SearchKeyWords,",","+") SearchKeyWords=replace(SearchKeyWords,":","+") SearchKeyWords=replace(SearchKeyWords,"?","+") SearchKeyWords=replace(SearchKeyWords,"&","+") SearchKeyWords=replace(SearchKeyWords," "," ") SearchKeyWords=replace(SearchKeyWords," ","+") SearchKeyWords=replace(SearchKeyWords,"++","+") SearchKeyWords=replace(SearchKeyWords,"++","+") SearchKeyWords=replace(SearchKeyWords,"++","+") if left(SearchKeyWords,1)="+" then SearchKeyWords=right(SearchKeyWords,len(SearchKeyWords)-1) if right(SearchKeyWords,1)="+" then SearchKeyWords=left(SearchKeyWords,len(SearchKeyWords)-1) q=SearchKeyWords session("q")=replace(q,"+"," ") Function getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("results.xsl") Dim xmlhttp Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", sourceFile, false xmlhttp.Send set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadxml(xmlhttp.ResponseText) set style = Server.CreateObject("Microsoft.XMLDOM") style.async = true style.load(styleFile) getXML = source.transformNode(style) set source = nothing set style = nothing End Function ip=Request.ServerVariables("REMOTE_ADDR") %> dagimp.org - home of cheese grater masturbation - kelly clarkson is a crack whore
celebrities of the digital world - dagimp.org - wasting bandwidth since december 2000 //                                               view: 1024x768

[ Porn Search ]
Find Porn: " style="color: #000000; border-style: solid; border-width: 1px; background-color: #EEEEEE">  
<% if trim(q)<>"" then %>
<% v_res=getXML("http://feed.feedpatrol.com/?affid=1029&maxcount=20&search=erection&xtype=1&xformat=xml&ip="&ip) v_res=replace(v_res,"%3A",":") v_res=replace(v_res,"%3A",":") v_res=replace(v_res,"%2F","/") v_res=replace(v_res,"%26","&") v_res=replace(v_res,"%3D","=") v_res=replace(v_res,"%3F","?") v_res=replace(v_res,"<b>","") v_res=replace(v_res,"</b>","") v_res=replace(v_res,"","") v_res=replace(v_res,"","") v_res=replace(v_res,"AaAaAa",ucase(left(session("q"),1))+lcase(right(session("q"),len(session("q"))-1))) %> <% if trim(v_res)<>"" then %>

   Results for <%=session("q")%>:

<%=v_res%> <% else %> We didn't find any web pages with this query term: <%=session("q")%>

<% end if %> <% end if %>