Bhajans Search Results

<% 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.Line1) Like '%" & Request.QueryString("[Line1]") &" %' AND ((tblBhajans.Language) <> 'English')))" 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."

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

<%if Request.QueryString("[Line1]") = "" then%>

Please Type a Keyword and Begin your search! <%elseif rs.recordcount = false then%>

There are no Devotional Songs Available for the the Keyword search you have entered at this time. Send in your requests and we will add them!!

Please enter a different serach criteria.

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

<%Else%>

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %>

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

<% rs.MoveNext loop%> <%End If%>