<% dim random_number, counter, check redim random_number(9) randomize For counter = 1 to 3 random_number(counter) = Int(Rnd * 9)+1 for check=1 to counter-1 if random_number(check)= random_number(counter) then counter=counter-1 end if next next %>
<% If InStr(1 , Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then %> <% elseIf InStr(1 , Request.ServerVariables("HTTP_USER_AGENT"), "Macintosh") > 0 Then %> <% Else %> <% End If %>
<% Dim strUserAgent strUserAgent = Request.ServerVariables("HTTP_USER_AGENT") If InStr(1 , strUserAgent , "MSIE") > 0 Then %> %> <% Else %>
<% End If %>

Capturing Life's Moments

Photography by John Hall

A journey through this site will surely be captivating. The emotions of each subject have been captured and delivered to the forefront of each photograph. The Gallery on this site is dynamically generated and provides a different view every visit! Every photograph in the Gallery tells a unique story, to which I am both proud and pleased to have the opportunity to share with the world! Enjoy.

<%=Session("address")%>
Hire <%=Session("f_name")%> Now!
© Copyright 2004 by <%=Session("photographer")%>
Created By:TMH Web Design
All Rights Reserved
<% If InStr(1 , strUserAgent , "MSIE") > 0 Then %> <% End If %>