Heidi Scarfone

<% Option Explicit dim rs, conn, query, arrGetRows, viewType, catagory viewType = request.querystring("viewType") catagory = request.querystring("catagory") if catagory = "" then catagory = "personal" end if if viewType = "" then viewType = "Breast Feeding" end if query = "SELECT DISTINCT viewType FROM tblPics" %> <% set rs = conn.execute(query) arrGetRows = rs.GetRows() query = "SELECT * FROM tblPics WHERE catagory='" & catagory & "' AND viewType='" & viewType & "'" set rs = conn.execute(query) %> Heidi Scarfone

The following images are personal drawings that are not for sale. To see the images that are available for purchase please click on Product Gallery. If you should see a picture that you would like drawn of your own children,that may be similar to the images in the personal gallery or the product gallery, please e-mail Heidi at:
scarfone@quickclic.net for more information.

Click on the pictures to display more information about them.

<% Dim i for i = 0 to Ubound(arrGetRows, 2) %> <% next %>

<%=arrGetRows(0,i)%><%if i <> Ubound(arrGetRows, 2) then%> |<%end if%>

<% do while not rs.eof %> <% rs.moveNext loop %>

" target="pics"><%=rs("name")%>