<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ackermann_STRING Recordset1.Source = "SELECT * FROM categories ORDER BY catname ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "1" If (Request.QueryString("category") <> "") Then Recordset2__MMColParam = Request.QueryString("category") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_ackermann_STRING Recordset2.Source = "SELECT * FROM products WHERE category = '" + Replace(Recordset2__MMColParam, "'", "''") + "'" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 Recordset2_numRows = Recordset2_numRows + HLooper1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset2_total Dim Recordset2_first Dim Recordset2_last ' set the record count Recordset2_total = Recordset2.RecordCount ' set the number of rows displayed on this page If (Recordset2_numRows < 0) Then Recordset2_numRows = Recordset2_total Elseif (Recordset2_numRows = 0) Then Recordset2_numRows = 1 End If ' set the first and last displayed record Recordset2_first = 1 Recordset2_last = Recordset2_first + Recordset2_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset2_total <> -1) Then If (Recordset2_first > Recordset2_total) Then Recordset2_first = Recordset2_total End If If (Recordset2_last > Recordset2_total) Then Recordset2_last = Recordset2_total End If If (Recordset2_numRows > Recordset2_total) Then Recordset2_numRows = Recordset2_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset2_total = -1) Then ' count the total records by iterating through the recordset Recordset2_total=0 While (Not Recordset2.EOF) Recordset2_total = Recordset2_total + 1 Recordset2.MoveNext Wend ' reset the cursor to the beginning If (Recordset2.CursorType > 0) Then Recordset2.MoveFirst Else Recordset2.Requery End If ' set the number of rows displayed on this page If (Recordset2_numRows < 0 Or Recordset2_numRows > Recordset2_total) Then Recordset2_numRows = Recordset2_total End If ' set the first and last displayed record Recordset2_first = 1 Recordset2_last = Recordset2_first + Recordset2_numRows - 1 If (Recordset2_first > Recordset2_total) Then Recordset2_first = Recordset2_total End If If (Recordset2_last > Recordset2_total) Then Recordset2_last = Recordset2_total End If End If %> art gallery artist paintings picasso van gogh thomas ackermann


  <%=formatdatetime( DateAdd( "h", 1, now() ) , vblongdate )%>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
  View By Category
  #a"><%=(Recordset1.Fields.Item("catname").Value)%>
  About Thomas
  Biography
  Links
  Critiques
  Request information
  <% if NOT (Recordset2.EOF) then %>
Found <%=(Recordset2_total)%> pieces

Art Category
>> <%=(Recordset2.Fields.Item("category").Value)%>
<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not Recordset2.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not Recordset2.EOF)) %> <% startrw = startrw + 1 Recordset2.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
<%Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") objFile = Request.ServerVariables("SCRIPT_NAME") ImagePath = Server.MapPath("images\") ImagePath = ImagePath & "\" & (Recordset2.Fields.Item("logo").Value) If objFileSystem.FileExists(ImagePath) then%> ">" alt="" width="120" border="0"> <%End If%>
<% else%> Sorry we have not added these pieces online as of yet. Please check back soon. <% end if %>

 

 

 

<%=Year(Date())%> Thomas Ackermann thomas@ackermann-artist.com

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>