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

achilles Convention Banner

Achilles Storm/Razzmatazz was first published
by Aja Blu Comix in 1990 by Sandra Chang
and Mark Beachum as a self published venture. This
Banner painted in oils on canvas was used to advertise
the comics at conventions in 1991. Sandra is considering
scanning the comics into the computer and making a
downloadable PDF.
<% set check_prt = rsa("buy_print") %> <% if check_prt <> "" then %> <% else %> <% end if %> <% if request.querystring("gal_id") = "20" 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 achilles 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 achilles where break_field = 'r'" rsd.Open sql, connd %> <% do while not rsd.eof %> <% rsd.movenext loop set rsd = nothing set connd = nothing %>
">" border=0>