<% conn="provider=SQLOLEDB;data source=65.163.13.115;initial catalog=michael;UID=michael;PWD=miguelmiguel12" Set objconn = Server.CreateObject("ADODB.Connection") objconn.open conn %> <% Dim CurPage,TotalPages,count If Request.QueryString("CurPage") = "" then CurPage = 1 'We're on the first page Else CurPage = Request.QueryString("CurPage") End If ' product list Set rs2 = Server.CreateObject("ADODB.Recordset") sql2 = "SELECT * from artwork a" if request("categoryid") > 0 THEN Sql2 = sql2 & " WHERE a.categoryid = "& request("categoryid")&"" end if rs2.Open sql2, conn, 3,1 If rs2.BOF And rs2.EOF Then ' Response.write("no records") else rs2.MoveFirst rs2.PageSize = 9 TotalPages = rs2.PageCount rs2.AbsolutePage = CurPage end if x=0 %> <% Count = 0 Do While Not rs2.EOF And Count < rs2.PageSize X = X + 1 Response.write("") If x = 3 Then Response.write("") x=0 End If Count = Count + 1 rs2.movenext Loop If rs2.BOF And rs2.EOF Then Response.write("") end if %>

<% If CInt(TotalPages) > 1 Then 'Display Next / Prev buttons if CurPage > 1 then 'We are not at the beginning, show the prev button 'Response.Write("") Response.Write("") End If Response.Write("Page " & CurPage & " of " & TotalPages & "  ") if CInt(CurPage) <> CInt(TotalPages) then 'We are not at the end, show a next button 'Response.Write("") Response.Write("") End If end if %>

") Response.write(rs2("arttitle")&" $"&rs2("price")&".00

At this time we do not have any artwork in stock. Please try back later.