<% Dim objDC, objRecd Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open "PaintingInfo", strConnect, 0, 1 Set objRecd = Server.CreateObject("ADODB.Recordset") Aid = Request.QueryString("ArtistID") Cat = Request.QueryString("Category") %>
<% If Len(Aid) <> 0 Then objRec.Filter = "ArtistID ='"&Aid&"'" %> <% While Not objRec.EOF%> <% objRec.MoveNext Wend objRec.Close Set objRec = Nothing %>
Artist Name Title Net Price To the picture
<%= objRec.Fields("LastName") & " " & objRec.Fields("FirstName") %> <%= objRec.Fields("Description") %> $<%= objRec.Fields("NetPrice") %> ">click here
<% End If If Len(Cat) <> 0 Then objRec.Filter = "Category ='"&Cat&"'" %>

Category: <%=Cat%>

<% While Not objRec.EOF%> <% objRec.MoveNext Wend objRec.Close Set objRec = Nothing %>
Artist Name Title Net Price To the picture
<%= objRec.Fields("LastName") & " " & objRec.Fields("FirstName") %> <%= objRec.Fields("Description") %> $<%= objRec.Fields("NetPrice") %> ">click here
<% End If objRecd.Open "Artist", strConnect, 0, 1 If Not objRecd.EOF Then objRecd.MoveFirst %>

 
<% End If objRecd.Close Set objRecd = Nothing %>

 
Home  Artists In the News Order Info Shopping Cart  About Us Contact Us Gallery Site Map
<%Session("lastpage") = "painting_index.asp?ArtistID="&Aid&""%>