Art Gallery by Sandra chang
<% application("appa")="driver={Microsoft ACCESS Driver (*.mdb)};dbq=" & Server.MapPath("access_db\netcommander.mdb") set conna = Server.CreateObject("ADODB.Connection") conna.open application("appa") set rsa = Server.CreateObject("ADODB.Recordset") rsa.CursorType = 2 'Set the cursor type we are using so we can navigate through the recordset rsa.LockType = 3 'Set the lock type so that the record is locked by ADO when it is updated %> <% if request.querystring("gal_id") = "" or request.querystring("gal_id") = "1" then %> <% else %> <% sql = "select * from artgallery where gal_id = " & clng(request.querystring("gal_id")) rsa.Open sql, conna %> <% end if %>

Water Demon

Painted in Watercolors. This was the cover
for "Goodies" Magazine in 1991. I used photographs
of water and ice as reference for the guy. This was
before T2 came out. This is still one of my favorite
paintings. I love the energy and details in this piece.
<% set check_prt = rsa("buy_print") %> <% if check_prt <> "" then %> <% else %> <% end if %> <% if request.querystring("gal_id") = "29" then %> <% else %> <% end if %>
"> " target="_blank"> ">

<% = rsa("Title") %>

<% = rsa("Description") %>

" border=0>
<% application("appc")="driver={Microsoft ACCESS Driver (*.mdb)};dbq=" & Server.MapPath("access_db\netcommander.mdb") set connc = Server.CreateObject("ADODB.Connection") connc.open application("appc") set rsc = Server.CreateObject("ADODB.Recordset") rsc.CursorType = 2 'Set the cursor type we are using so we can navigate through the recordset rsc.LockType = 3 'Set the lock type so that the record is locked by ADO when it is updated sql = "select * from artgallery where break_field = 'l' order by gal_id asc" rsc.Open sql, connc %> <% do while not rsc.eof %> <% rsc.movenext loop set rsc = nothing set connc = nothing %>
">" border=0>
<% application("appc")="driver={Microsoft ACCESS Driver (*.mdb)};dbq=" & Server.MapPath("access_db\netcommander.mdb") set connd = Server.CreateObject("ADODB.Connection") connd.open application("appc") set rsd = Server.CreateObject("ADODB.Recordset") rsd.CursorType = 2 'Set the cursor type we are using so we can navigate through the recordset rsd.LockType = 3 'Set the lock type so that the record is locked by ADO when it is updated sql = "select * from artgallery where break_field = 'r'" rsd.Open sql, connd %> <% do while not rsd.eof %> <% rsd.movenext loop set rsd = nothing set connd = nothing %>
">" border=0>