Search pacifictabla.com

   

               

Local Tabla Performances

The goal of ths page is to highlight as many tabla performances as possible in the northwest. The only criteria is that tabla has to be involved. So any performance with tabla--Classical, Light Music, Bollywood, DJ accompaniment , fusion etc. can be listed here. If you know of a performance that is not listed below, please let us know..

<% Dim dbConn, objRS, strSQL Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\\brink-premfs1\sites\Premium4\urbanmojo\database\TablaSiteDatabase.mdb;" & _ "Persist Security Info=False" strSQL = "SELECT Performances.dtDate, Performances.timTime, Performances.strLocation, " &_ "Performances.memDescription, Performances.intPerformanceID FROM Performances "&_ "WHERE Performances.dtDate >= Date() ORDER BY dtDate, timTime, intPerformanceID" Set objRS = dbConn.Execute(strSql) While Not objRS.EOF 'Convert the time-once I figure out how to do it Dim timevar If left(objRS.Fields("timTime"),1) = "1" then timevar = left(objRS.Fields("timTime"), 5) + right(objRS.Fields("timTime"), 3) else timevar = left(objRS.Fields("timTime"), 4) + right(objRS.Fields("timTime"), 3) End If Response.Write "" objRS.MoveNext Wend objRS.Close dbConn.Close Set objRS = nothing Set dbConn = nothing %>

Date/Time

Location

Performers

Description

" & objRS.Fields("dtDate") & "
" &_ timevar & "

" &_ objRS.Fields("strLocation") & "

" Dim objRS1, varintPerfID, strSQL1 varintPerfID = objRS.Fields("intPerformanceID") strSQL1 = "SELECT Performers.strName, Performers.boolBioExists FROM PerformerPerformanceLink " &_ "INNER JOIN Performers ON PerformerPerformanceLink.intPerformerID = " &_ "Performers.intPerformerID WHERE PerformerPerformanceLink.intPerformanceID = " &_ varintPerfID Set objRS1 = dbConn.Execute(strSQL1) While Not objRS1.EOF If objRS1.Fields("boolBioExists") = FALSE then Response.Write objRS1.Fields("strName") & "
" Else Response.Write "" &_ objRS1.Fields("strName") & "
" End If objRS1.MoveNext Wend objRS1.Close Set objRS1 = nothing Response.Write "

" &_ objRS.Fields("memDescription") & "





Home   About This Site   About Tabla   About Vishal   Student Bios   Performances
Contact Us   Student Extranet   Links   Get Involved