<% option explicit ' ======= Open connection to the database ======= Dim dbConn, db, dbCount, SQL, conn, SQLWHERE, SQLORDERBY Dim data Session.timeout = 15 ' ======= Comment by Kasapa Aware Co,Ltd ======= 'conn = "photoDB" 'Set dbConn = Server.CreateObject("ADODB.Connection") 'dbConn.Open conn ' ======= Add by Kasapa Aware Co,Ltd ======= ' data ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/photolist.mdb") data = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\hosting\dfs\21\2\7\0\2157918072\user\sites\inspiredplanet.com\www\database\photolist.mdb" ' Parse input from URL Dim strSort, intPerPage, strCategory, intStart strCategory = Request("cat") If strCategory = "" Then strCategory = "all" End If strSort = Request("sort") intPerPage = Cint(Request("count")) if intPerPage = 0 Then intPerPage = 25 End IF if Request("start") = "" Then intStart = 0 Else intStart = cInt(Request("start")) End If %> Inspired Planet photolist
 
Photo Catalog
All photographs are copywrited by Inspired Planet and Dudley Levenson. It is forbidden to use these images without our agreement. They are available for purchase or may be leased on a per use basis. Please E-mail us for permission, details, and special requests.

Prints or Transparencies of images are finer quality than website images.
Categories

All
Artifacts
Landscapes
People
Animals
Asia
Africa
America
Aerial

Sort By:      Images per page:    
<% dim intCount, intCurrent, count, intTotal, intNum SQLORDERBY = "ID" if strCategory <> "all" Then SQLWHERE = "WHERE category = '" & strCategory & "' " End If If strSort <> "" And strSort <> "default" Then SQLORDERBY = strSort End If ' ======= Comment by Kasapa Aware Co,Ltd ======= 'SQL = "SELECT * FROM Photo " & SQLWHERE & "ORDER BY " & SQLORDERBY 'set db = dbConn.Execute(SQL) 'SQL = "SELECT COUNT(*) AS [total] FROM photo " & SQLWHERE 'Set dbCount = dbConn.Execute(SQL) ' ======= Add by Kasapa Aware Co,Ltd ======= SQL = "SELECT * FROM Photo " & SQLWHERE & "ORDER BY " & SQLORDERBY Set db = Server.CreateObject("ADODB.Recordset") db.Open SQL, data,1,3 SQL = "SELECT COUNT(*) AS [total] FROM photo " & SQLWHERE Set dbCount = Server.CreateObject("ADODB.Recordset") dbCount.Open SQL, data,1,3 intCount = intStart count = 0 intCurrent = 0 Do While Not db.eof And intCurrent <> intCount intCurrent = intCurrent + 1 db.movenext Loop intCount = intCount + intPerPage Do While Not db.eof And intCurrent <> intCount %> <% Do While count < 5 And Not db.eof And intCurrent <> intCount %> <% count = count + 1 intCurrent = intCurrent + 1 db.movenext Loop count = 0 %> <% Loop %>
">" width="98" border="0">
<%=db("Title")%>
">Inquire
Page Navigation <% intCurrent = 0 intNum = 0 intTotal = cInt(dbCount("total")) if intCount > intPerPage Then response.write("<< Prev " & vbNewLine) End If do until intCurrent >= intTotal intNum = intNum + 1 if intCurrent = intStart then response.write(" " & intNum & " ") else response.write(" " & intNum & " " & vbNewline) end if intCurrent = intCurrent + intPerPage loop if intCount <= intTotal Then response.write("Next >> " & vbNewLine) End If %>


Send this page to a friend

Opening Page | Travel | Books | Table of Contents | Artifacts | Masks and Ritual Objects | Jewelry | Paintings | Contact | Photography | Photo Lectures |

<% 'dbConn.close set dbconn = nothing set db = nothing %>