<%@ LANGUAGE="VBSCRIPT" %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: blank.asp (Blank / Diagnostic) '## File Version: i-Gallery '## Copyright: This code is copyrighted. Please see http://www.b-cp.com for details. '## Notice: This code has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% Option Explicit Response.Expires = -1 Server.ScriptTimeout = 2400 %> <% Dim ImageDir, ImageFolder, UploadDir ImageDir = Request("D") ImageFolder = Replace(ImageDir,UploadPath,"") ImageFolder = Replace(ImageFolder,"\\","\") UploadDir = ImageDir function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(UploadDir) then TestEnvironment = "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "

"&IGblnk_ferr1&": " & ImageFolder & "

" TestEnvironment = TestEnvironment & "
" TestEnvironment = TestEnvironment & IGblnk_ferrmsg exit function end if fileName = UploadDir & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "

"&IGblnk_ferr2&": " & ImageFolder & "

" TestEnvironment = TestEnvironment & "
" TestEnvironment = TestEnvironment & IGblnk_write1 exit function end if Err.Clear testFile.Close fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "

"&IGblnk_ferr2&": " & ImageFolder & "

" TestEnvironment = TestEnvironment & "
" TestEnvironment = TestEnvironment & IGblnk_mod1 exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "" TestEnvironment = TestEnvironment & "

"&IGblnk_ferr3&"

" TestEnvironment = TestEnvironment & "
" TestEnvironment = TestEnvironment & IGblnk_adodb1 exit function end if Set streamTest = Nothing end function %>

---

<% If Request("DN") = "yes" Then Dim diagnostics diagnostics = TestEnvironment() If diagnostics <> "" Then response.write diagnostics End If End If %>