<% response.buffer=true %>
<%
Function getit(strAdd,strFrom,strTo)
Dim objXMLHTTP, strGot, strSource
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strAdd, False
objXMLHTTP.Send
strSource = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
Dim b,e
b=Instr(strSource,strFrom)
If b<>0 Then
b=b+Len(strFrom)
e=Instr(b,strSource,strTo)
strGot=Mid(strSource, b, e-b)
Else
Response.Write " "
End If
getit = strGot
End Function
dim Grabbed, CopyFrom, CopyTo
Grabbed = "http://search.dmoz.org/cgi-bin/search?search=" & replace(request("strSearch"), " ", "+")
Grabbed = "http://search.dmoz.org/cgi-bin/search?search=" & request.querystring("strSearch")
CopyFrom = "Open Directory Sites "
CopyTo = "
"
Dim strPreSource, strSource
strPreSource = Replace(getit(Grabbed,CopyFrom,CopyTo),"http://dmoz.org/","scat.asp?ID=")
strSource = Replace(strPreSource,"href=""search?","href=""ssearch.asp?ID=")
%>
Nuts Search
<%
dim howmany,iNewLen,sBox
sBox = "
"
howmany = Left(strSource,70)
If InStr(howmany,"(") Then
mystr = howmany
splArr = SPLIT(mystr,"of")
ri1 = splArr(0)
le1 = splArr(1)
mybegin = split(ri1,"-")
mystart = mybegin(1)
myend = split(le1,")")
mystop = myend(0)
If CInt(mystart) < CInt(mystop) Then
next1 = CInt(mystart + 1)
ElseIf CInt(mystart) = CInt(mystop) Then
next1 = 0
End If
If CInt(next1) > 0 Then
response.write sBox & (strSource) & "
NEXT >>>"
Else
response.write sBox & (strSource)
End If
Else
%>
<%
End If
%>
