<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'plugin a cura di Antanio! 'FUNZIONE: questo plugin si occupa di creare l'indice della Directory Dmoz %> <% response.buffer=true %> <% If Request.QueryString() = "/" Then Response.Redirect "directory_home.asp" End If dim DMOZURL DMOZURL = "http://dmoz.org/" & request.querystring() Dim DMOZresult DMOZresult = gethtmlresult(DMOZURL,"","") strtitle = request.querystring() 'strtitle = Replace(strtitle,"/"," ") MyArray = Split(strtitle,"/") i = (UBound(MyArray) - 1) strtitle = MyArray(i) strtitle = Replace(strtitle,"_"," ") %> <% Sub Contenuto() %>
<% DMOZresult = Replace(DMOZresult,"","") If DMOZresult = "" Then %>
Sorry, This Page Is Not Available
<< BACK
<% Else response.write DMOZresult End If %>
Help build the largest human-edited directory on the web.
Submit a Site - Open Directory Project - Become an Editor
Search Again
<% end sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), METATitleDinamicoPagina, METAKeywordDinamicoPagina, METADescriptionDinamicoPagina) Conn.Close Set Conn = Nothing %>