Cynthia Walmsley :: Portrait Miniatures, Silhouettes and Portraits

<% 'get the records! 'check for search if request("search")<>"" then strsql="select * from [last_updated] where last_updated like '%" & replace(request("search"),"'","''") & "%'" else strsql="select * from [last_updated]" end if 'check for ordering if request("od")<>"" then strsql=strsql & " order by " & request("od") end if rs.open strsql,mydsn if rs.eof and rs.bof then%> <%else 'do the paging - find what page we're on 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"" End If %>

" 'see wether to write a previous If pageno > 1 Then response.write "previous " End If 'see if we're not at the last page! If int(pageno) < int(totalpages) Then response.write "next " End If response.write("
") '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 response.write"

<%x=0 'now display the records For x = 1 To 20 If rs.EOF Then 'we're at the end of the recordset so exit.. Exit For Else 'write the link to the detail screen %> <%end if rs.movenext next end if%> <% 'clean up! rs.close set rs=nothing%>

Portrait Miniatures, Silhouettes and Portraits presented by

HOME

FAIRS

PORTRAIT MINIATURES

SILHOUETTES

PORTRAITS

CONTACT

If you would like to purchase any of the items, please contact me to arrange payment and delivery:

Your Name:
Your Email Address:
Address:
Subject or Items:

Cynthia Walmsley
PO Box 337
Nottingham NG7 1BF
t +44 (0) 115 941 7061
m 07785 792 227
f +44 (0) 115 948 0785
e

Cynthia Walmsley - Specialist dealer in portrait miniatures, silhouettes and portraits.
e t +44 (0) 115 941 7061 m 07785 792 227 f +44 (0) 115 948 0785

an interfine.com website