Dominant Women art 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 dom where gal_id = " & clng(request.querystring("gal_id")) rsa.Open sql, conna %> <% end if %>

Bounded Angel

Drawn in pencil and then scanned into the computer and
painted in Photoshop. This was one of my favorite paintings.
It was originally done to advertise <<O>>Zone Magazine.
A Magazine similar to the format of Heavy Metal
which never came out.
<% set check_prt = rsa("buy_print") %> <% if check_prt <> "" then %> <% else %> <% end if %> <% if request.querystring("gal_id") = "22" 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 dom 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 dom 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>