% 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 %>
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. |
|||||
|
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
%>
|
Opening Page | Travel | Books | Table of Contents | Artifacts | Masks and Ritual Objects | Jewelry | Paintings | Contact | Photography | Photo Lectures | |