<%
' FP_ASP Script ASP généré automatiquement par un composant FrontPage. Ne pas modifier.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1256
Session.LCID = 5121
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Impossible de créer la connexion"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Impossible de créer un jeu d'enregistrements"
fp_conn.Open Application("_ConnectionString")
FP_DumpError strErrorUrl, "Impossible d'ouvrir la base de données"
fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Impossible d'ouvrir le jeu d'enregistrements"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Impossible d'ajouter un nouveau jeu d'enregistrements à la base de données"
Dim arFormFields0(0)
Dim arFormDBFields0(0)
Dim arFormValues0(0)
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
fp_rs.Update
FP_DumpError strErrorUrl, "Impossible de mettre à jour la base de données"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1256",_
"Confirmation de formulaire",_
"Merci de nous envoyer les informations suivantes :",_
"annuaire_quran.htm",_
"Retour au formulaire."
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
موسوعة التلاوة
إن
هذه
الصفحة
أنجزت
بالتعاون
الكبير
مع
موقع
إذاعة
طريق
الإسلام
الأمريكية،
كما لا
يفتني
أن
أشكر
جزيل
الشكر
للساهرين
على
هذا
الموقع
الذي
يعتبر
أدات
نبيلة
للدعــوة
الإلهيـــــــة
