<% 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... sometime is is beyond words!
 
 
 

Inspiration in the Men's Room

Edge Designs is an all-women run company that designs interior office space. They had a recent opportunity to do an office project in NYC.
The client allowed the women of this company a free hand in all design aspects. The client was a company that was also run by all women execs...

The result.....well.....We all know that men never talk...never look at each other....and never laugh much in the restroom..... The men's room is a serious and quiet place......

But now...with the addition of one mural on the wall... let's just say the men's restroom is inspired if not inspirational!

CLICK HERE to see the Mural...
 

Site design by: XLeration Services