<% dim fs,fo,x,freq freq=request.QueryString("freq") set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder(Server.MapPath("history")) for each x in fo.files if (InStr(x.name,freq)>0) then %> <% Response.Write(x.name) %>
<% end if next set fo=nothing set fs=nothing %>