New Artwork 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 new where gal_id = " & clng(request.querystring("gal_id")) rsa.Open sql, conna %> <% end if %>

LITTLE NAUGHTY FAERIE

This is one of the first paintings I drew directly in the
computer with my Cintiq Wacom Tablet. I didn’t plan it, it
was very spontaneous. The reference for the faerie is this
beautiful model named Veronika. I thought it would be
funny to depict this nature’s child in a very unladylike pose.
This is one of my favorite paintings to date and it was
created with Corel Painter.
<% set check_prt = rsa("buy_print") %> <% if check_prt <> "" then %> <% else %> <% end if %> <% if request.querystring("gal_id") = "16" 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 new where break_field = 'l'" 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 new where break_field = 'r' order by gal_id asc" rsd.Open sql, connd %> <% do while not rsd.eof %> <% rsd.movenext loop set rsd = nothing set connd = nothing %>
">" border=0>