<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% If IsObject(Session("SaiBhajan_conn")) Then Set conn = Session("SaiBhajan_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "SaiBhajan","","" Set Session("SaiBhajan_conn") = conn End If %> <% sql = "SELECT tblBhajans.Line1, tblBhajans.Line2, tblBhajans.Line3, tblBhajans.Line4, tblBhajans.Line5, tblBhajans.Line6, tblBhajans.Line7, tblBhajans.Line8, tblBhajans.Line9, tblBhajans.Line10, tblBhajans.Line11, tblBhajans.Line12, tblBhajans.Line13, tblBhajans.Line14, tblBhajans.Line15, tblBhajans.Line16, tblBhajans.Line17, tblBhajans.Line18, tblBhajans.Line19, tblBhajans.copyrights, tblBhajans.Meaning FROM tblBhajans WHERE tblbhajans.Language <> 'English' ORDER BY tblBhajans.Line1" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>

"Copyright - All Rights Reserved. Permission Granted for Non-Commercial Use for the Purpose of Photocopying the Music for Personal or Group Devotional Singing. Recording Rights or Mass Redistribution Rights are Not Granted for Commercial or Non-Commercial Use. Contact the Owner of the Copyright for Permission. The Web Site Will Not Grant Permission for Any Other Use Held by the Owner of the Copyright."

All Devotional Songs - Part IV of IV ( <% =(rs.recordcount-1500) %> Bhajans)

    <% On Error Resume Next i = 0 rs.MoveFirst do while i < 1500 i = i+1 rs.MoveNext loop do while Not rs.EOF %>
  1. <%if (rs.Fields("Line1").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line1").Value)%>
    <%End If%><%if (rs.Fields("Line2").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line2").Value)%>
    <%End If%><%if (rs.Fields("Line3").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line3").Value)%>
    <%End If%><%if (rs.Fields("Line4").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line4").Value)%>
    <%End If%><%if (rs.Fields("Line5").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line5").Value)%>
    <%End If%><%if (rs.Fields("Line6").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line6").Value)%>
    <%End If%><%if (rs.Fields("Line7").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line7").Value)%>
    <%End If%><%if (rs.Fields("Line8").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line8").Value)%>
    <%End If%><%if (rs.Fields("Line9").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line9").Value)%>
    <%End If%><%if (rs.Fields("Line10").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line10").Value)%>
    <%End If%><%if (rs.Fields("Line11").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line11").Value)%>
    <%End If%><%if (rs.Fields("Line12").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line12").Value)%>
    <%End If%><%if (rs.Fields("Line13").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line13").Value)%>
    <%End If%><%if (rs.Fields("Line14").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line14").Value)%>
    <%End If%><%if (rs.Fields("Line15").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line15").Value)%>
    <%End If%><%if (rs.Fields("Line16").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line16").Value)%>
    <%End If%><%if (rs.Fields("Line17").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line17").Value)%>
    <%End If%><%if (rs.Fields("Line18").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line18").Value)%>
    <%End If%><%if (rs.Fields("Line19").Value <> "") then%><%=Server.HTMLEncode(rs.Fields("Line19").Value)%>
    <%End If%>

    Meaning:   <%=Server.HTMLEncode(rs.Fields("Meaning").Value)%>

    <%if (rs.Fields("Copyrights").Value <> " ") then%>

    Notes/Copyrights:  <%=Server.HTMLEncode(rs.Fields("Copyrights").Value)%>

    <%End If%>

    WB00853_.GIF (287 bytes)

    2. <% rs.MoveNext loop%>