<% Dim objTextS, objFS, FileText PhotoName = request.QueryString("Pic") if 4 < len(PhotoName) then PhotoName = left(PhotoName,len(PhotoName)-3) + "txt" set objFS = Server.CreateObject("Scripting.FileSystemObject") if objFS.FileExists(PhotoName) = true then set objTextS = objFS.OpenTextFile(PhotoName, 1, False, 0) FileText = objTextS.ReadAll Response.Write FileText objTextS.Close set objTextS = nothing end if set objFS = nothing end if %>