<% Query = "SELECT * From tblSnowflake order by ClassificationCode" RS.Open Query, Conn, 1, 2 %> The Bentley Snow Crystal Collection
The Bentley Snow Crystal Collection of the Buffalo Museum of Science
     site map  
Home
The Collection
Snow Crystals
Search
Wilson A. Bentley
Photographic Process

Making the Digital Library

Other Resources
Contact Us
 
 

Primary Collection

  (Classified in Magono and Lee classification scheme)
<% If request.querystring("page") = "" Then pageno = 1 Else pageno = request.querystring("page") End If rs.pagesize = 20 totalpages = CInt(rs.pagecount) 'which page to work with rs.absolutepage = pageno If totalpages > 1 Then 'forward/next buttons response.write"" %> <% x=0 for x=1 to 10 IF rs.EOF then Exit FOR ELSE %> <% p=0 for p=1 to 2 IF rs.EOF then Exit FOR ELSE %> <% End IF rs.MoveNext next %> <% End IF next %> <% 'which page to work with rs.absolutepage = pageno If totalpages > 1 Then 'forward/next buttons response.write"" %>
Collection has <%=RS.RecordCount%> snowflakes.
 |  All  |  C1d  |  I4  |  P1a  |  P1b  |  P1c  |  P1d  |  P1e  |  P1f  | 
 |  P2a  |  P2b  |  P2d  |  P2e  |  P2f  |  P2g  |  P3b  |  P4a  |  P7b  | 

" 'see wether to write a previous If pageno > 1 Then response.write "   " End If 'do the page numbers For A = 1 To totalpages 'check to see if it is the current page - write in red if it is If Int(A) = Int(pageno) Then Response.write "" & A & "   " Else Response.write "" & A & "  " End If Next End If 'see if we're not at the last page! If int(pageno) < int(totalpages) Then response.write "   " End If response.write"
 
','','top=100, left=100, width=740, height=460, resizable=yes, scrollbars=yes') ;return false;">t.jpg" border=1 alt="Description at Right">
  • "><%= RS("ClassificationCode")%>  <%= RS("Snowflake")%>
  • <%= RS("CrystalDescription")%>
  • " 'see wether to write a previous If pageno > 1 Then response.write "   " End If 'do the page numbers For A = 1 To totalpages 'check to see if it is the current page - write in red if it is If Int(A) = Int(pageno) Then Response.write "" & A & "   " Else Response.write "" & A & "  " End If Next End If 'see if we're not at the last page! If int(pageno) < int(totalpages) Then response.write "   " End If response.write"
     
    <% 'Clean up... RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %>
     
       

    © 2004