<% showpicname = request.querystring("file") sizex = request.querystring("x") sizey = request.querystring("y") pictext1 = request.querystring("text") if (pictext1 = "") then pictext1 = "A Puppy Picture!" end if if (sizex = "") then sizex = 780 end if if (sizey = "") then sizey = 512 end if 'Append this picture name to file for pic access tracking! Dim fsPics Set fsPics = CreateObject("Scripting.FileSystemObject") Set picfile = fsPics.OpenTextFile("c:\synFTP\users\davej\data\david\hits2.txt", 8) outline = showpicname + chr(9) + Request.ServerVariables("REMOTE_ADDR") + chr(9) + CStr(Now) picfile.WriteLine(outline) picfile.Close %> Larger Puppy Picture
<% =pictext1 %>




Click on the picture to see the original Nikon D1 Image (very large).


[Main Page]