<% 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.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 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 Combination (Language + God Name) you have Selected at this time. Send in your requests and we will add them!!

Please Select a Different Combination. <%End if%> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %>

<%=Server.HTMLEncode(rs.Fields("Line1").Value)%>
<%=Server.HTMLEncode(rs.Fields("Line2").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%>