<% lcCode = getBannerInfo() response.write(lcCode) %> <% dim curTarg, gImgPath, basePath,curBack curTarg = Request.QueryString("tg") curBack = CInt(Request.QueryString("bk")) basePath = "Cities/San/Francisco/" if curBack > 0 then curPath=Split(basePath,"/") arrCnt=UBound(curPath) frontEnd="" for i = 1 to (arrCnt-curBack) frontEnd = frontEnd & curPath(i-1) & "/" Next gImgPath = frontEnd & curTarg for i=1 to curBack curTarg = "../"&curTarg Next else gImgPath = basePath & curTarg end if dim conn 'Database connection object: /oldphotovault/photovault_dev/datatbase/search.mdb dim rs1 'Image recordset: for asp image data dim strdata1 'Image data imgArray = Split(curTarg,"/")'Extration of image filename '------------Reading image data ------------- Set conn = Server.CreateObject("ADODB.Connection") conn.open "photoSearch","","" Set rs1=Server.CreateObject("ADODB.Recordset") strdata1 ="SELECT ImageData.title, ImageData.whitezone1, ImageData.whitezone2, ImageData.whitezone3, ImageData.whitezone4, ImageData.whitezone, ImageData.notes, IIf(IsNull(ImageData.ti_photographer),'Wernher Krutein', ImageData.ti_photographer) AS photographer FROM ImageData WHERE ImageData.filename = '"& imgArray(1) & ".jpg'" rs1.Open strdata1, conn %>




Code Number:    <%=imgArray(1)%>

 <% do until rs1.EOF %> <%rs1.MoveNext loop rs1.close conn.close %>
<% If rs1("title").ActualSize<>0 Then Response.Write("Title: ") blanktitle=1 End if %> <%=rs1("title")%>
<% If blanktitle=1 Then Response.Write("
") End If %> Subject: <% If rs1("whitezone1").ActualSize<>0 Then blankwhitezone=1 %> <%=rs1("whitezone1")%>
<% End if %> <% If rs1("whitezone2").ActualSize<>0 Then %> <%=rs1("whitezone2")%>
<% End if %> <% If rs1("whitezone3").ActualSize<>0 Then %> <%=rs1("whitezone3")%>
<% End if %> <% If rs1("whitezone4").ActualSize<>0 Then %> <%=rs1("whitezone4")%>
<% End if %> <% If rs1("whitezone").ActualSize<>0 Then blankwhitezone=1%> <%=rs1("whitezone")%>
<% End if %>
<% If blankwhitezone=1 Then Response.Write("
") End If %> <% If rs1("notes").ActualSize<>0 Then Response.Write("Information: ") blankinfo=1 End if %> <%=rs1("notes")%>
<% If blankinfo=1 Then Response.Write("
") End If %> Image by: <%=rs1("Photographer")%>

This image is available for licensing in any media. For Pricing, General Guidelines, and Delivery information click here. Or you may call at:

(415) 552-9682