Selected Bhajans

<% 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 %> <% if Request.QueryString("[Diety]") = "All" and Request.QueryString("[Language]") = "All" then 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" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If elseif Request.QueryString("[Diety]") = "All" and Request.QueryString("[Language]") <> "All" then 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)='" & Request.QueryString("[Language]") & "'))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If Elseif Request.QueryString("[Language]") = "All" and Request.QueryString("[Diety]") <> "All" then 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.Diety)='" & Request.QueryString("[Diety]") & "'))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If Else 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)='" & Request.QueryString("[Language]") & "') AND ((tblBhajans.Diety)='" & Request.QueryString("[Diety]") & "'))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If 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."

Devotional Songs (<% =rs.recordcount%> Bhajans)

<% if Request.QueryString("[Diety]")= "All" and Request.QueryString("[Language]") = "All" then%>

You Have Selected to List all the Devotional Songs. Please Click below to Display the devotional songs in four parts.

Part-I (First 500 Devotional Songs)

<% Elseif rs.recordcount = false then%>

There are no Devotional Songs Available for the Combination (Language + God Name) you have Selected at this time. Send in your requests and we will add them!!

Please Select a Different Combination.

If you need Help, please click on the "help" at the bottom of the left side window .

<%Else%>

<%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%>