<% 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 & "" %>
Frequently Asked Questions
We are accepting works from artists in all medium. Please let us know if you would like to join our on-line gallery.

Dragonfly Festival
Summer 2007

<% 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 %>
 
Q: What are the benefits to being a part of ThinAirGalleries.com?
  • Artists: Benefits of participation
  • Businesses: How you can benefit
    • If you are a business that supports the arts (printing, interior design, etc.) or features the arts (gallery, studio, etc.) or displays the arts (hotel, real estate office, etc.) we would love to list you as a business resource. Benefits of participation
  • Membership: Benefits
Q: I appreciate the opportunity to show art up at Nimbus I do not think there is enough exposure to charge an artist 25 or 35 dollars for the day at this stage.
  • The cost includes lunch for the vendor 
  • Range is cost is $15 to $30 for members and they are given first option
  • Non-members are invited to participate for $5 more for the Nimbus events on a space available basis

Q: The best Western Ribbon cutting was a delightful event with great exposure but no one was there to buy art…little traffic looking at art...

  • Marketing is an education as well as an on-going effort.
  • That is why events such as the ones at Nimbus although small are important to keep the momentum and the exposure going...
  • It's the "chicken and the egg" riddle. If you say there is not enough buying traffic to warrant participation and EVERYONE thought that, there would never be ANYTHING to show the buying public. (We are keeping the cost at a minimum this first year to help get the egg rolling!)
  • As Sondheim said in "Sunday in the Park with George", "A vision's still a vision if it's only in your head..."

Have a question? Please let us know!

Sign the Guestbook to be notified as soon as the information is available

   
 

Site design by: XLeration Services