<%@ codepage = 1256 LCID = 1065 %> <% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% displayRecs = 20 recRange = 10 %> <% ' Get table name tablename = "[akhbar]" dbwhere = "" a_search = "" b_search = "" %> <% ' Get search criteria for basic search pSearch = Request.QueryString("psearch") If pSearch <> "" Then pSearch = replace(pSearch,"'","''") pSearch = replace(pSearch,"[","[[]") b_search = b_search & "[titr] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[sharh] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[date-sh] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[data-m] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[time] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[pic] LIKE '%" & pSearch & "%' OR " End If If len(b_search) > 4 Then b_search = mid(b_search,1,len(b_search)-4) b_search = "(" & b_search & ")" End If %> <% 'Build search criteria If a_search <> "" Then dbwhere = dbwhere & a_search 'advance search ElseIf b_search <> "" Then dbwhere = dbwhere & b_search 'basic search End If 'Save search criteria If dbwhere <> "" Then Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1 Session("akhbar_REC") = startRec Else If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If 'Get clear search cmd If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd") If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If %> <% ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("akhbar_OB") = OrderBy Then If Session("akhbar_OT") = "ASC" Then Session("akhbar_OT") = "DESC" Else Session("akhbar_OT") = "ASC" End if Else Session("akhbar_OT") = "ASC" End If Session("akhbar_OB") = OrderBy Session("akhbar_REC") = 1 Else OrderBy = Session("akhbar_OB") if OrderBy = "" then OrderBy = DefaultOrder Session("akhbar_OB") = OrderBy Session("akhbar_OT") = DefaultOrderType End If End If ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("akhbar_REC") = startRec Else startRec = Session("akhbar_REC") if not isnumeric(startRec) or startRec = "" then 'reset start record counter startRec = 1 Session("akhbar_REC") = startRec End If End If ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Build Query strsql = "select * from [akhbar]" If dbwhere <> "" Then strsql = strsql & " WHERE " & dbwhere End If if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("akhbar_OT") end if 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount %> <% 'Avoid starting record > total records if clng(startRec) > clng(totalRecs) then startRec = totalRecs end if 'Set the last record to display stopRec = startRec + displayRecs - 1 'Move to first record directly for performance reason recCount = startRec - 1 if not rs.eof then rs.movefirst rs.move startRec - 1 end if recActual = 0 'Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 %> <% 'set row color bgcolor="#FFFFFF" %> <% ' Display alternate color for rows If recCount mod 2 <> 0 Then bgcolor="#F5F5F5" End If %> <% x_titr = rs("titr") x_brief = rs("brief") x_date2Dsh = rs("date-sh") x_sharh = rs("sharh") x_data2Dm = rs("data-m") x_time = rs("time") x_pic = rs("pic") x_id = rs("id") %> ::گروه معارف ::

نظر خواهی نماهنگ گروه های برنامه ساز تازه های تولید جدول پخش

 
مراکز علوم قرآنی
بانک اطلاعات مساجد
استفتائات قرآنی
قاریان مشهور
تکنولوژی در خدمت قرآن
   
 
 
  سخنان مقام معظم رهبری در مراسم افتتاح شبکه قران سیما
   
متن سخنان حضرت آیت اله جوادی آملی در جمع مدیران شبکه قرآن سیما 
   
 

 

 

 

تعريف:

 گروه معارف شبكه قرآن گروهى است كه به منظور تبيين و ترويج فرهنگ و معارف قرآنى ونهادينه شدن آن در جامعه بر اساس مبانى معرفتى اهل بيت (ع) با رويكردهاى اطلاعاتى وارشادى مبادرت به برنامه سازى مى كند .

اهداف:

 اهداف شناختى:

  1- تحكيم مبانى اعتقادى مخاطبان وآشنايى با نگرشهاى نو در عرصه تفكرات دينى

 2- افزايش آگاهيهاى مخاطبان نسبت به معارف  وآموزه هاى اخلا قى واجتماعى قرآن به منظور نهادينه شدن فرهنگ قرآنى

 3- ارتقا، بينش اعتقادى و سياسى در زمينه امامت ورهبرى جامعه اسلامى
 4- آشنايى مخاطبان با سيره پيامبر (ص) واهل بيت بعنوان الگوها ى متعالى
 5- آشنايى مخاطبان با تاريخ وعلوم قرآنى
 
    اهداف گرايشى:
       1- گسترش علاقمندى به فرهنگ ومعارف قرآن وعترت
         2- گسترش علاقمندى و نگرش مثبت به حكومت دينى
         3- تقويت وحدت و همگرايى بين اديان ومذاهب
         4- واگرايى نسبت به انديشه هاى ضد دينى
  
   اهداف رفتارى:
        1- تهذيب اخلاق وتربيت معنوى و اجتماعى مخاطبان وايجاد مصونيت نسبت به تهاجم بيگانه
         2- تقويت وفاق د ينى ووحدت ملى
         3- بزرگداشت شعائر الهى وايام مذهبى

 

 

 

s
 

اخبار شبكه

فيلم و سريال

تلاوت

همخواني

گزيده نظرات

  

©2006 Islamic Republic of Iran Broadcasting Website
Email: simaquran@irib.ir