<% showpicname = request.querystring("pic")
pictext1 = request.querystring("text")
cam = request.querystring("cam")
sizex = 1536
sizey = 1024
if (cam = 2) then
sizex = 2000
sizey = 1312
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\hits3.txt", 8)
outline = showpicname + chr(9) + Request.ServerVariables("REMOTE_ADDR") + chr(9) + CStr(Now)
picfile.WriteLine(outline)
picfile.Close
%>
David's Gallery: <% =showpicname %> (<% =showpicname %>.jpg)
<% =pictext1 %>
All pictures are copyright 1998-2000 David Johnston.
[Main Page]