<% if Request("tek9") = "./../" OR Request("tek9") = "./../../" OR Request("tek9") = "./" OR Request("tek9") = "./../../" OR Request("tek9") = "././" OR Request("tek9") = "./../../../" OR Request("tek9") = "./../../../" THEN response.redirect("default.asp") end if ' make sure you have the 6 dir_*.gif files! ' yes, you can copy ours if ya want too.. :) ' http://line9.com/img/dir_dir.gif .. etc. Function ShowImageForType(strName) strTemp = strName If strTemp <> "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End If Select Case strTemp Case "dir" strTemp = "dir" Case "asp" strTemp = "asp" Case "htm", "html" strTemp = "asp" Case "gif", "jpg", "jpeg", "png", "tif", "cpt", "bmp", "pcx", "tga", "psd", "eps" strTemp = "img" Case "txt", "text", "dat", "bat", "sys" strTemp = "txt" Case Else strTemp = "misc" End Select strTemp = "" ShowImageForType = strTemp End Function Tek9 = Request.QueryString("Tek9") If Tek9 = "" Then strPath = "./" Else strPath = Tek9 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) Response.Write"View our files and folders here:Right click and choose save target as to save!:
"&_ "" For Each objItem In objFolder.SubFolders If InStr(1, objItem, "_vti", 1) = 0 Then Response.Write"" End If Next For Each objItem In objFolder.Files Response.Write""&_ "" Next Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing Response.Write"

"&_ " "&strPath&"
"&ShowImageForType("dir")&" "&_ ""&_ ""&objItem.Name&"
"&_ "        "&ShowImageForType(objItem.Name)&" "&_ ""&objItem.Name&"	"&objItem.Size&"

" %>