<% 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.Meaning FROM tblBhajans WHERE (((tblBhajans.Line1) Like '" & Request.QueryString("[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 %>

Devotional Songs

 

<%if 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 search criteria.

If you need help, please click on the "help" at the bottom of the left side window . <%End if%> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %>

<%=Server.HTMLEncode(rs.Fields("Line1").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line3").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line4").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line5").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line6").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line7").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line8").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line9").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line10").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line11").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line12").Value)%>

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

-----------------------------------------------

<% rs.MoveNext loop%>