<% strURL = Request.ServerVariables("URL") woslashes = Replace(strURL, "/", vbNullStr) countlayer = len(strURL) - len(woslashes) 'response.write strURL 'on error resume next select case countlayer 'case "2" ' layer = "" case "3" layer = "../../" 'case "4" ' layer = "../../" 'case "5" ' layer = "../../../" end select dbpath = Server.Mappath(""&layer&"database/TPAC_Files.mdb") Response.write countlayer set objconn = Server.CreateObject ("ADODB.connection") objconn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbpath %> <% 'sqldiscipline = "SELECT Discipline FROM tblDiscipline WHERE Discipline <> 'Education' ORDER BY Discipline" 'Set rs = Server.CreateObject("ADODB.Recordset") 'rs.Open sqldiscipline, objconn 'if not (rs.bof or rs.eof) then ' disfound = true ' disary = rs.GetRows ' numofdis = UBound(disary, 2) 'else ' disfound = false 'end if 'rs.close 'Set rs = nothing sqlart = "SELECT d.Discipline, count(*) FROM tblContacts c INNER JOIN tblContactDiscipline d " sqlart = sqlart & "ON c.ContactID = d.ContactID WHERE c.ArtistRegistry = true and d.Discipline is not null " sqlart = sqlart & "group by d.Discipline order by d.Discipline " 'sqlart = "SELECT tblContactDiscipline.Discipline, tblContacts.ContactID, count(*) " 'sqlart = sqlart & "FROM tblContacts INNER JOIN tblContactDiscipline " 'sqlart = sqlart & "ON tblContacts.ContactID = tblContactDiscipline.ContactID " 'sqlart = sqlart & "WHERE tblContacts.ArtistRegistry = true " 'sqlart = sqlart & "GROUP BY tblContactDiscipline.Discipline, tblContacts.ContactID " 'sqlart = sqlart & "ORDER BY tblContactDiscipline.Discipline" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlart, objconn if not (rs.bof or rs.eof) then artistfound = true artistary = rs.GetRows numofartists = UBound(artistary, 2) else artistfound = false end if rs.close Set rs = nothing %> <% 'Disconnect object objconn.Close Set objconn = nothing %> Teaching Artist Roster - Tucson Pima Arts Council

Resources

Organizations and Links

Legal Issues for Artists

Logo Download for Grantees

Teaching Artist Roster

The Teaching Artist Roster is a resource for schools, organizations and communities interested in hiring artists for arts and cultural education projects and programs at their sites. These projects and programs are referred to as artist residencies. The artists listed on the Teaching Artist Roster have experience in residencies, teaching their disciplines to various populations -- youth to seniors, gifted and challenged -- and would welcome the opportunity to explore the arts with you. Please contact the artists directly with questions and ideas about a residency at your site

To view teaching artists, select a discipline.

<%if artistfound = false then%> <%else%> <%for i = 0 to numofartists%> <%next%> <%end if%>
Sorry, no artist records available.
<%=artistary(0, i)%> (<%=artistary(1, i)%>)