<% 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 & "" %>
Stories

A picture is worth a thousand words... Well, Art Speaks Volumes!

Click Here for Businesses that can help you apply the Arts.
 
 

 

Message on the Move: Getting the Word Out and About your Business

Take a look at these images of European semi-trucks... with barely a word, they send a head-snapping, memorable marketing message. 'Nuff said!

 

 
 

Site design by: XLeration Services