<% dim conn, strSQL, rsMaster,rsChild, strMDBPath, intMasterID set conn=server.createobject("ADODB.Connection") set rsMaster=server.createobject("ADODB.Recordset") strMDBpath = Server.MapPath("..\private\thath.mdb") 'strMDBpath = Server.MapPath("db\thath.mdb") conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath %>

 

<% strSQL = "SELECT tblAudioMaster.ID, tblAudioMaster.Artist, tblAudioMaster.Date, tblAudioMaster.PicturePath, tblAudioMaster.OrderId, tblAudioMaster.GalleryPath " strSQL = strSQL & " FROM tblAudioMaster " strSQL = strSQL & "ORDER BY OrderId desc" rsMaster.open strSQL,conn,1,2 Do while not rsMaster.eof intMasterID = rsMaster.fields("ID").value response.write "" %> <% rsMaster.movenext Loop %>
live kirtan (MP3)

width="150" height="113"> <% = rsMaster.fields("Artist").value %>
<% = rsMaster.fields("Date").value %>

/index.html')">View Photos

View/Hide Kirtan

 
 
 
 


Nanaksar Thath Isher Darbar
Mander Street, Wolverhampton, England, WV3 0JZ Tel: +441902 429379

 
<% rsMaster.close rsChild.close conn.close set rsMaster=nothing set rsChild=nothing set conn = nothing %>