<% 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]