<% Set Conn = Server.CreateObject("ADODB.Connection") Call SetConnectParameters() %> Thin Air Galleries - Where the Art & Business Worlds Collide

<% If Request("Page")<>"" And IsNumeric(Request("Page"))=True Then currentPage = CInt(Request("Page")) Else currentPage = 1 End If AlphabetStrip = "" If Trim(Request("SearchString"))<>"" Then strURL = "artists.asp?SearchString=" & Server.URLEncode(Trim(Request("SearchString"))) AbcSQL = "SELECT Distinct(Left(CompanyName,1)) FROM members WHERE CONTAINS(*,' ""*" & Trim(Request("SearchString")) & "*"" ') Order By Left(companyName,1)" Else strURL = "artists.asp?CategoryID=" & selectedCategoryID & "&CatSortAlphabet=" & CatSortAlphabet AbcSQL = "SELECT Distinct(Left(CompanyName,1)) FROM members WHERE MemberID IN (SELECT MemberID FROM MemberCategory WHERE CategoryID=" & selectedCategoryID & ") Order By Left(companyName,1)" End If Set CS = Conn.Execute(AbcSQL) Do While Not CS.EOF If Request("Alphabet")=UCase(CS(0)) Then AlphabetStrip = AlphabetStrip & " " & "" & UCase(CS(0)) & "" & vbCrLf Else AlphabetStrip = AlphabetStrip & " " & "" & UCase(CS(0)) & "" & vbCrLf End If CS.MoveNext Loop CS.Close Set CS = Nothing SQLPart = "" If Trim(Request("SearchString"))<>"" Then SQL = "SELECT * FROM Members WHERE CONTAINS(*,' ""*" & Trim(Request("SearchString")) & "*"" ')" Else SQL = "SELECT * FROM Members WHERE MemberID IN (SELECT MemberID FROM MemberCategory WHERE CategoryID=" & selectedCategoryID & ")" End If If CStr(Request("Alphabet")) <> "" Then SQLPart = " AND CompanyName Like '" & Request("Alphabet") & "%'" End If SQLPart = SQLPart & " Order By CompanyName" SQL = SQL & SQLPart ItemsPerPage = 10 PagePerStrip = 5 Set BS = Server.CreateObject("ADODB.RecordSet") BS.CursorLocation = adUseClient BS.PageSize = ItemsPerPage BS.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText NoOfRecords = BS.RecordCount PagesCount = BS.PageCount If CurrentPage>1 Then BS.Move ((CurrentPage-1) * ItemsPerPage) End If StartPointer = 1 + ((CurrentPage-1) * ItemsPerPage) EndPointer = StartPointer + ItemsPerPage - 1 If EndPointer>NoOfRecords Then EndPointer=NoOfRecords End If CurrentStrip = Ceiling(CurrentPage/PagePerStrip) StripCount = Ceiling(PagesCount / PagePerStrip) If CurrentStrip>1 Then FirstPageOfStrip = ((CurrentStrip-1) * PagePerStrip) + 1 If (((CurrentStrip-1)*PagePerStrip) + PagePerStrip)>PagesCount Then LastPageOfStrip = PagesCount Else LastPageOfStrip = ((CurrentStrip-1)*PagePerStrip) + PagePerStrip End If ElseIf CurrentStrip=1 AND StripCount>1 Then FirstPageOfStrip = 1 LastPageOfStrip = PagePerStrip Else FirstPageOfStrip = 1 LastPageOfStrip = PagesCount End If For i=FirstPageOfStrip To LastPageOfStrip Step 1 If i = CurrentPage Then PageLink = "" & i & "" LinkStrip = LinkStrip & " " & PageLink Else PageLink = i LinkStrip = LinkStrip & " " & "" & PageLink & "" End If Next If StripCount>CurrentStrip Then 'CurrentPagePointer in now at the last page NextStripPointer = CurrentStrip * PagePerStrip * PerPage NextStrip = " >> " End If If CurrentStrip>1 Then PreviousStripPointer = (FirstPageOfStrip*(CNColumns*CNRows)) - (2*CNColumns*CNRows) PreviousStrip= " << " End If LinkStrip = "Page: " & PreviousStrip & LinkStrip & NextStrip & "" %>
Calendar
 

Dragonfly Festival
Summer 2007

Dragonflies are a symbol of rejuvenation. The above work is detail from "Sky Fleet Celebration" on loan at the Cancer Survivor Park, UC Davis Medical Center, Sacramento.
Phill work was also featured at the Rancho Cordova Relay for Life in 2005 & 2006. The first Dragonfly Festival
will be a celebration of
Life, Wellness & the Arts.

<% If Request("CategoryID")<>"" And IsNumeric(Request("CategoryID"))=True Then SQL = "SELECT Top 1 CategoryID,Name FROM Categories Where CategoryID=" & Request("CategoryID") ElseIf Request("CatSortAlphabet")<>"" Then SQL = "SELECT Top 1 CategoryID,Name FROM Categories Where Name Like '" & Request("CatSortAlphabet") & "%' And CategoryID IN (SELECT Distinct CategoryID FROM MemberCategory) Order By Name" Else SQL = "SELECT Top 1 CategoryID,Name FROM Categories WHERE CategoryID IN (SELECT Distinct CategoryID FROM MemberCategory) Order By Name" End If Set BS = Conn.Execute(SQL) Do While Not BS.EOF selectedCategoryID = BS("CategoryID") selectedCategoryName = BS("Name") CatSortAlphabet = Left(BS("Name"),1) BS.MoveNext Loop BS.Close Set BS = Nothing %>
 
 
 
Artists will be showing their works throughout the area. It's wonderful to preview work at home on this website but nothing can replace seeing a piece of art in person and meeting the artist who created it!

Step up and support the arts... Step out and enjoy it!
 

Site design by: XLeration Services