Thin Air Galleries - Where the Art & Business Worlds Collide

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

Susan Dakuzaku
(916) 965-4870
susan@xlnetworks.com

Click Here for some of the Frequently Asked Questions.

To stay informed, sign up for our mailing list below:

Please complete information in RED
First Name	Last Name
Email Address
Company Name
Phone	Best time to call

How did you hear about us?

Comments or Questions

Please send me emails informing me of new specials, promotions or news.

Site design by: XLeration Services