<% Dim aqid aqid=Request("qid") Session("qid")=aqid %>
<% dim rs1 set rs1=server.CreateObject("adodb.recordset") sql="SELECT * FROM Quran WHERE Qid=" & aqid if rs1.state then rs1.close rs1.CursorLocation = 3 rs1.open sql,conn,1,2 if not rs1.eof then %>

Qur'aan Qira'at (Recitation)-<%=rs1("Qtype")%>

<%=rs1("QaariName")%>

Language: Arabic <% if rs1("TranslationLanguage") <> "" then Response.Write("- " & rs1("TranslationLanguage") ) end if %>

Format: <%=rs1("MediaInfo")%>

Duration: <%=rs1("Duration")%>

(To save these files on your computer Use Right Click on Download Link and choose save target as)

<% end if Set rs1=Nothing %>

Go back