okiday...
here is goes....
*mental coffee cup sent to all who read the whole thing*
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connPace.asp" -->
<title>Pace Prints | Artists</title>
<% Server.ScriptTimeout=90 %>
<%
set rsMenuNames = Server.CreateObject("ADODB.Recordset"

rsMenuNames.ActiveConnection = MM_connPace_STRING
rsMenuNames.Source = "SELECT DISTINCT author, RIGHT(author, LEN(author) - CHARINDEX(' ', author)) AS lastname, LEFT(RIGHT(author, LEN(author) - CHARINDEX(' ', author)),1) as letter FROM paceprints.stocklist WHERE contemp=1 and canpurchase = 1 and author IN (SELECT DISTINCT author FROM biography) ORDER BY letter, lastname"
rsMenuNames.CursorType = 0
rsMenuNames.CursorLocation = 2
rsMenuNames.LockType = 3
rsMenuNames.Open()
rsMenuNames_numRows = 0
%>
<%
set rsLetter = Server.CreateObject("ADODB.Recordset"

rsLetter.ActiveConnection = MM_connPace_STRING
rsLetter.Source = "SELECT DISTINCT LEFT(RIGHT(author, LEN(author) - CHARINDEX(' ', author)),1) as letter FROM paceprints.stocklist WHERE contemp=1 and canpurchase = 1 and author IN (SELECT DISTINCT author FROM biography) ORDER BY letter"
rsLetter.CursorType = 0
rsLetter.CursorLocation = 2
rsLetter.LockType = 3
rsLetter.Open()
rsLetter_numRows = 0
%>
<%
set rsPre = Server.CreateObject("ADODB.Recordset"

rsPre.ActiveConnection = MM_connPace_STRING
rsPre.Source = "SELECT author, RIGHT(author, LEN(author) - CHARINDEX(' ', author)) AS lastname, LEFT(RIGHT(author, LEN(author) - CHARINDEX(' ', author)),1) as letter FROM paceprints.stocklist WHERE contemp=1 and canpurchase = 1 and author IN (SELECT DISTINCT author FROM paceprints.stocklist) and author IN (SELECT DISTINCT author FROM biography) ORDER BY letter, lastname"
rsPre.CursorType = 0
rsPre.CursorLocation = 2
rsPre.LockType = 3
rsPre.Open()
rsPre_numRows = 0
%>
<!--#include file="menu/header.inc" -->
<!-- page content -->
<table width="760" bgcolor="#ffffff" cellpadding="0" cellspacing="0" border="0">
<tr>
<td rowspan="2" width="22"><img src="images/t.gif" width="22" height="1" border="0"></td>
<td height="33" colspan="8"> <img src="images/titles/artistsonsite.gif" width="261" height="33" border="0">
</td>
<!-- space -->
<td width="12" rowspan="2"><img src="images/t.gif" width="12" height="1"></td>
<!-- /space -->
<!-- divider -->
<td width="1" bgcolor="#12477C" valign="top" rowspan="2"><img src="images/whitedot.gif" width="1" height="6"></td>
<!-- /divider -->
<!-- space -->
<td width="4" rowspan="2"><img src="images/t.gif" width="4" height="1"></td>
<!-- /space -->
<!-- right col -->
<td width="181" valign="top" rowspan="2">
<!-- ************************************** -->
<center>
<img src="images/artists-abouttheartists.gif" width="136" height="40" border="0">
</center>
<p> Click on any artist’s name to view an online portfolio of that artist's
work as available from Pace Prints and PacePrints.com. </p>
<!-- ************************************** -->
<p> </p><table width="100%" height="67" border="0">
<tr>
<td> <P>To view selected works from our collection <a href="selectimages.asp" class="newed">Click
here</a>.</P></td>
</tr>
</table></td>
<!-- /right col -->
<!-- space -->
<td width="1" rowspan="2"><img src="images/t.gif" width="1" height="1"></td>
<!-- /space -->
<!-- border -->
<td rowspan="2" width="1" bgcolor="#12477C"><img src="images/t.gif" width="1" height="1"></td>
<!-- /border -->
</tr>
<tr>
<!-- ********** col one ********** -->
<td valign="top" width="215">
<% if rsLetter("letter"

="A" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">A</span><br>
<% rsMenuNames.MoveFirst() %>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="A" and rsPre("letter"

="A" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed"><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="A" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="B" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">B</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="B" and rsPre("letter"

="B" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="B" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="C" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">C</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="C" and rsPre("letter"

="C" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="C" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="D" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">D</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="D" and rsPre("letter"

="D" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="D" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="E" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">E</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="E" and rsPre("letter"

="E" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="E" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="F" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">F</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="F" and rsPre("letter"

="F" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="F" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="G" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">G</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="G" and rsPre("letter"

="G" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="G" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<img src="images/t.gif" width="215" height="50"> </td>
<!-- ********** /col one ********** -->
<!-- ********** col two ********** -->
<td valign="top" width="174">
<% if rsLetter("letter"

="H" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">H</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="H" and rsPre("letter"

="H" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="H" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="I" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">I</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="I" and rsPre("letter"

="I" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="I" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="J" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">J</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="J" and rsPre("letter"

="J" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="J" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="K" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">K</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="K" and rsPre("letter"

="K" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="K" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="L" then %><% rsLetter.MoveNext() %>
<p>
<span class="letter">L</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="L" and rsPre("letter"

="L" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="L" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="M" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">M</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="M" and rsPre("letter"

="M" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="M" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="N" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">N</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="N" and rsPre("letter"

="N" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="N" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="O" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">O</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="O" and rsPre("letter"

="O" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="O" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="P" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">P</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="P" and rsPre("letter"

="P" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="P" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="Q" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">Q</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="Q" and rsPre("letter"

="Q" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="Q" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="R" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">R</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="R" and rsPre("letter"

="R" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="R" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<img src="images/t.gif" width="174" height="50"> </td>
<!-- ********** /col two ********** -->
<!-- ********** col three ********** -->
<td valign="top" width="143">
<% if rsLetter("letter"

="S" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">S</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="S" and rsPre("letter"

="S" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="S" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="T" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">T</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="T" and rsPre("letter"

="T" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="T" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="U" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">U</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="U" and rsPre("letter"

="U" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="U" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="V" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">V</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="V" and rsPre("letter"

="V" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="V" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="W" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">W</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="W" and rsPre("letter"

="W" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="W" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="X" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">X</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="X" and rsPre("letter"

="X" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="X" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="Y" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">Y</span><br>
<% while NOT rsMenuNames.EOF and rsMenuNames("letter"

="Y" and rsPre("letter"

="Y" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% while rsPre("letter"

="Y" %>
<% rsPre.MoveNext %>
<% wend %>
<% end if %>
<% if rsLetter("letter"

="Z" then %>
<% rsLetter.MoveNext() %>
<p>
<span class="letter">Z</span><br>
<% while NOT rsMenuNames.EOF and rsPre("letter"

="Z" %>
<% if rsMenuNames("author"

=rsPre("author"

then %>
<a href="
Server.urlEncode( rsMenuNames("author"

) %>" class="newed" ><%= rsMenuNames("author"

%></a><br>
<% rsMenuNames.MoveNext %>
<% rsPre.MoveNext %>
<% else %>
<% rsPre.MoveNext %>
<% end if %>
<% wend %>
</p>
<% end if %>
<img src="images/t.gif" width="174" height="50"> </td>
<!-- ********** /col three ********** -->
</tr>
</table>
<!-- /page content -->
<!--#include file="menu/footer.inc" -->
~:judy:~