A. Delahay Photographer

 

About UsContact UsSite MapPhotosBackpackingAustraliaEquipmentAlan's blog

Capturing a moment forever

"The wilderness holds answers to more questions than we yet know how to ask."

Nancy Newhall

 

To capture the beauty of the moment is to save it forever.

Img3.jpg


Call A. Delahay Photographer at (816) 233-3025

       OUTDOOR         WILDLIFE        SCENIC        LANDSCAPE

  PHOTOGRAPHY


<% '# Set the values of some variable imageStyle = "s4" serverPath = "//plugins.websitecomplete.com/wsc_images" protocol = "http:" If ucase(Request.ServerVariables("HTTPS")) = "ON" Then protocol="https:" DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn" Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open DataSource '# grab all their records to see what they have to offer sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'J96HLLur'" Set oRst = DataConn.Execute(sqlQuery) if not oRst.eof then counterNumber = CLng(oRst("current_value")) if Session("Counted") = "" then counterNumber = counterNumber + 1 '#update the current value in the database sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'J96HLLur';" DataConn.Execute(sqlQuery) DataConn.close Set DataConn = nothing Session("Counted") = true end if counterNumber = "0000000000" & counterNumber counterNumber = right(counterNumber,8) counterDisplay = "" howLong = len(counterNumber) for i=1 to howLong thisNumber = mid(counterNumber,i,1) counterDisplay = counterDisplay & "" next counterDisplay = "" & counterDisplay & "" counterDisplay = "" & counterDisplay & "" else counterDisplay = "" end if Set oRst = nothing %><%= counterDisplay %>

 
  
About Us | Contact Us | Site Map | Photographs | Backpacking | Australia | Equipment  | Kangaroo Island and the Souther Ocean




Go Daddy Software