<%@ Language=VBScript %>

Steve's Photo Gallery

I use two cameras. The first is a Minolta 7xi which use mainly with a 28-80mm zoom. I favour Kodachrome 200 and many of the pictures are scanned from transparencies. The other camera is a recent acquisition: a Canon PowerShot S20 which takes good quality snaps for a digital camera and is light enough to take anywhere.

If you want to see my pictures, click on the topic you want to look at then select an image from the index page

All pictures Steve Foster, all rights reserved


30-Oct-2006: I've changed my hosting service and I haven't had time to rewrite this in PHP yet. Sorry for lack or pictures. the gallery will return shortly  <% function Mangle(N) dim RN, i RN="" for i=1 to len(N) if mid(N,i,1)=" " then RN=RN+"%20%" else RN=RN+mid(N,i,1) end if next Mangle=RN end function dim MyConn, MyRS, NL, vbTab set MyConn=Server.CreateObject("ADODB.Connection") set MyRS=Server.CreateObject("ADODB.Recordset") NL=chr(13)+chr(10) vbTab=chr(9) MyConn.Open Application("MyConn_ConnectionString") MyRS.Open "Topics", MyConn response.write "

" Response.Write ""& NL Response.Write "" MyRS.MoveFirst while not MyRS.EOF Response.Write "" & NL Response.Write vbtab & ""& NL Response.Write vbtab & ""& NL Response.Write ""& NL MyRS.MoveNext wend MyRS.Close MyConn.Close Response.Write "
" & MyRS("Topic Name") & _ "" & MyRS("Topic Description") & "
"& NL %>

Home Biog Hobbies & Links Diatribes; Mail me