home *** CD-ROM | disk | FTP | other *** search
/ lib.nur.ac.rw / lib.nur.ac.rw.tar / lib.nur.ac.rw / Intranet / Demande_Article.asp < prev    next >
Text File  |  2008-07-16  |  11KB  |  210 lines
  1. <%
  2. ' FP_ASP Script ASP gΘnΘrΘ automatiquement par un composant FrontPage. Ne pas modifier.
  3. On Error Resume Next
  4.  
  5. strErrorUrl = ""
  6.  
  7. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  8. If Request.Form("VTI-GROUP") = "0" Then
  9.     Err.Clear
  10.  
  11.     Set fp_conn =  Server.CreateObject("ADODB.Connection")
  12.     FP_DumpError strErrorUrl, "Impossible de crΘer la connexion"
  13.  
  14.     Set fp_rs = Server.CreateObject("ADODB.Recordset")
  15.     FP_DumpError strErrorUrl, "Impossible de crΘer un jeu d'enregistrements"
  16.  
  17.     fp_conn.Open Application("demandes_articles_ConnectionString")
  18.     FP_DumpError strErrorUrl, "Impossible d'ouvrir la base de donnΘes"
  19.  
  20.     fp_rs.Open "RΘsultats", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
  21.     FP_DumpError strErrorUrl, "Impossible d'ouvrir le jeu d'enregistrements"
  22.  
  23.     fp_rs.AddNew
  24.     FP_DumpError strErrorUrl, "Impossible d'ajouter un nouveau jeu d'enregistrements α la base de donnΘes"
  25.     Dim arFormFields0(10)
  26.     Dim arFormDBFields0(10)
  27.     Dim arFormValues0(10)
  28.  
  29.     arFormFields0(0) = "Tome"
  30.     arFormDBFields0(0) = "Tome"
  31.     arFormValues0(0) = Request("Tome")
  32.     arFormFields0(1) = "Email_Demandeur"
  33.     arFormDBFields0(1) = "Email_Demandeur"
  34.     arFormValues0(1) = Request("Email_Demandeur")
  35.     arFormFields0(2) = "Demandeur"
  36.     arFormDBFields0(2) = "Demandeur"
  37.     arFormValues0(2) = Request("Demandeur")
  38.     arFormFields0(3) = "Auteurs"
  39.     arFormDBFields0(3) = "Auteurs"
  40.     arFormValues0(3) = Request("Auteurs")
  41.     arFormFields0(4) = "Fasc"
  42.     arFormDBFields0(4) = "Fasc"
  43.     arFormValues0(4) = Request("Fasc")
  44.     arFormFields0(5) = "Acceptation"
  45.     arFormDBFields0(5) = "Acceptation"
  46.     arFormValues0(5) = Request("Acceptation")
  47.     arFormFields0(6) = "Titre"
  48.     arFormDBFields0(6) = "Titre"
  49.     arFormValues0(6) = Request("Titre")
  50.     arFormFields0(7) = "Periodique"
  51.     arFormDBFields0(7) = "Periodique"
  52.     arFormValues0(7) = Request("Periodique")
  53.     arFormFields0(8) = "Annee"
  54.     arFormDBFields0(8) = "Annee"
  55.     arFormValues0(8) = Request("Annee")
  56.     arFormFields0(9) = "Pages"
  57.     arFormDBFields0(9) = "Pages"
  58.     arFormValues0(9) = Request("Pages")
  59.  
  60.     FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
  61.  
  62.     If Request.ServerVariables("REMOTE_HOST") <> "" Then
  63.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nom_de_l'ordinateur_distant"
  64.     End If
  65.     If Request.ServerVariables("REMOTE_USER") <> "" Then
  66.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nom_d'utilisateur"
  67.     End If
  68.     FP_SaveFieldToDB fp_rs, Now, "Date_de_derniΦre_modification"
  69.     If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
  70.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Type_de_navigateur"
  71.     End If
  72.  
  73.     fp_rs.Update
  74.     FP_DumpError strErrorUrl, "Impossible de mettre α jour la base de donnΘes"
  75.  
  76.     fp_rs.Close
  77.     fp_conn.Close
  78.  
  79.     Session("FP_SavedFields")=arFormFields0
  80.     Session("FP_SavedValues")=arFormValues0
  81.     Response.Redirect "Demande_Confirm.asp"
  82.  
  83. End If
  84. End If
  85.  
  86. %>
  87. <html>
  88.  
  89. <head>
  90. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  91. <meta name="ProgId" content="FrontPage.Editor.Document">
  92. <title>Formulaire de demande d'article</title>
  93. <meta name="Microsoft Theme" content="pstmdrn 011, default">
  94. <meta name="Microsoft Border" content="tb, default">
  95. </head>
  96.  
  97. <body background="_themes/pstmdrn/postextb.gif" bgcolor="#FFFFFF" text="#000000" link="#660066" vlink="#666633" alink="#9999CC"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Helvetica">
  98.  
  99. <h3 align="center"><!--mstheme--><font color="#666699"><font face="Century Schoolbook" color="#000080"><strong><big>BibliothΦque
  100. centrale de l'UNR</big></strong></font><!--mstheme--></font></h3>
  101. <p align="center"><a href="../Informations%20generales.htm"><img border="0" src="images/Informations%20generales.htm_cmp_pstmdrn010_hbtn.gif" width="140" height="45"></a><a href="../Ressources.htm"><img border="0" src="images/Ressources.htm_cmp_pstmdrn010_hbtn.gif" width="140" height="45"></a><a href="../Formation.htm"><img border="0" src="images/Formation.htm_cmp_pstmdrn010_hbtn.gif" width="140" height="45"></a><a href="../Nouveautes.htm"><img border="0" src="images/Nouveautes.htm_cmp_pstmdrn010_hbtn.gif" width="140" height="45"></a><img border="0" src="images/Intranet.htm_cmp_pstmdrn010_hbtn_a.gif" width="140" height="45"></p>
  102. <p align="center"><font size="6"><strong><img src="_derived/Demande_Article.asp_cmp_pstmdrn010_bnr.gif" width="600" height="60" border="0" alt="Formulaire de demande d'article"></strong></font></p>
  103. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  104.  
  105. <!--mstheme--></font></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top"><!--mstheme--><font face="Arial, Helvetica">
  106.  
  107. <p> </p>
  108. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
  109. function FrontPage_Form1_Validator(theForm)
  110. {
  111.  
  112.   if (theForm.Periodique.value == "")
  113.   {
  114.     alert("Tapez une valeur pour le champ \"Periodique\".");
  115.     theForm.Periodique.focus();
  116.     return (false);
  117.   }
  118.  
  119.   if (theForm.Periodique.value.length < 5)
  120.   {
  121.     alert("Tapez au moins 5 caractΦres dans le champ \"Periodique\".");
  122.     theForm.Periodique.focus();
  123.     return (false);
  124.   }
  125.  
  126.   if (theForm.Demandeur.value == "")
  127.   {
  128.     alert("Tapez une valeur pour le champ \"Demandeur\".");
  129.     theForm.Demandeur.focus();
  130.     return (false);
  131.   }
  132.  
  133.   if (theForm.Demandeur.value.length < 4)
  134.   {
  135.     alert("Tapez au moins 4 caractΦres dans le champ \"Demandeur\".");
  136.     theForm.Demandeur.focus();
  137.     return (false);
  138.   }
  139.   return (true);
  140. }
  141. //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" action="Demande_Article.asp" webbot-action="--WEBBOT-SELF--">
  142.  <!--webbot bot="SaveDatabase" suggestedext="asp"
  143.  u-asp-include-url="_fpclass/fpdbform.inc" s-dataconnection="demandes_articles"
  144.  s-recordsource="RΘsultats" u-database-url="fpdb/demandes_articles.mdb"
  145.  u-confirmation-url="Demande_Confirm.asp"
  146.  s-builtin-fields="REMOTE_HOST REMOTE_USER Timestamp HTTP_USER_AGENT"
  147.  s-builtin-dbfields="Nom_de_l'ordinateur_distant Nom_d'utilisateur Date_de_derniΦre_modification Type_de_navigateur"
  148.  s-form-fields="Tome Email_Demandeur Demandeur Auteurs Fasc Acceptation Titre Periodique Annee Pages"
  149.  s-form-dbfields="Tome Email_Demandeur Demandeur Auteurs Fasc Acceptation Titre Periodique Annee Pages" startspan
  150.  --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="40548"
  151.  --><input type="hidden" name="Acceptation" value="En attente">
  152.  <div align="center">
  153.   <center>
  154.   <!--mstheme--></font><table border="0" cellspacing="1" width="95%" height="109">
  155.    <tr>
  156.     <td width="20%" height="36"><!--mstheme--><font face="Arial, Helvetica">Auteurs<!--mstheme--></font></td>
  157.     <td width="75%" height="36" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><input type="text" name="Auteurs" size="70"><!--mstheme--></font></td>
  158.    </tr>
  159.    <tr>
  160.     <td width="20%" height="30"><!--mstheme--><font face="Arial, Helvetica">Titre<!--mstheme--></font></td>
  161.     <td width="75%" height="30" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><input type="text" name="Titre" size="70"><!--mstheme--></font></td>
  162.    </tr>
  163.    <tr>
  164.     <td width="20%" height="33"><!--mstheme--><font face="Arial, Helvetica">Titre du pΘriodique<font color="#FF0000"><b><font size="1" face="Arial Black"><br>
  165.      </font></b></font><!--mstheme--></font></td>
  166.     <td width="75%" height="33" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><!--webbot bot="Validation"
  167.      b-value-required="TRUE" i-minimum-length="5" --><input type="text" name="Periodique" size="70"> 
  168.      <font color="#FF0000"><b><font size="1" face="Arial Black">(<blink>OBLIGATOIRE</blink>)</font></b></font><!--mstheme--></font></td>
  169.    </tr>
  170.    <tr>
  171.     <td width="20%" height="32"><!--mstheme--><font face="Arial, Helvetica">AnnΘe <input type="text" name="Annee" size="10"><!--mstheme--></font></td>
  172.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Tome (volume) <input type="text" name="Tome" size="10"><!--mstheme--></font></td>
  173.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Fasc <input type="text" name="Fasc" size="10"><!--mstheme--></font></td>
  174.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Pages <input type="text" name="Pages" size="15"><!--mstheme--></font></td>
  175.    </tr>
  176.    <tr>
  177.     <td width="95%" height="32" colspan="4"><!--mstheme--><font face="Arial, Helvetica"><!--mstheme--></font></td>
  178.    </tr>
  179.    <tr>
  180.     <td width="95%" height="32" colspan="4"><!--mstheme--><font face="Arial, Helvetica"> 
  181.      <p>Demandeur <!--webbot bot="Validation" s-data-type="String"
  182.      b-value-required="TRUE" i-minimum-length="4" --><input type="text" name="Demandeur" size="20" value="<%=Request("Demandeur")%>">
  183.      <font color="#FF0000"><b><font size="1" face="Arial Black">(<blink>OBLIGATOIRE</blink>)</font></b>
  184.      </font>        Email  <input type="text" name="Email_Demandeur" size="20" value="<%=Request("Email_Demandeur")%>"></p>
  185.      <p><input type="submit" value="Envoyer la demande" name="B1">       
  186.      <input type="reset" value="Effacer tout" name="B2"><!--mstheme--></font></td>
  187.    </tr>
  188.   </table><!--mstheme--><font face="Arial, Helvetica">
  189.   </center>
  190.  </div>
  191. </form>
  192. <p align="center"> </p>
  193.  
  194.  
  195. <!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Helvetica">
  196.  
  197. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  198. <p align="center"><nobr>[ Formulaire de demande d'article ]</nobr> <nobr>[ <a href="Recherche_Articles_init.asp">Recherche d'articles</a> ]</nobr> <nobr>[ <a href="Acceptation.asp">Acceptation d'articles</a> ]</nobr> <nobr>[ <a href="Reception.asp">Reception d'articles</a> ]</nobr></p>
  199. <p align="center"><br>
  200. <a href="http://www.nur.ac.rw"><img src="../images/logounr.gif" alt="Lien vers les pages WWW de l'UNR" border="0" width="31" height="29" align="absmiddle"></a>       
  201. <a href="../unr/Default.htm"><img src="../images/home.gif" alt="home.gif (201 octets)" border="0" width="30" height="26" align="absmiddle"></a>    
  202.   <a href="../unr/Aide.htm"><img border="0" src="../images/info.gif" width="44" height="39"></a><br>
  203. DerniΦre modification: le 22/01/01                        
  204. Webmaster : <img border="0" height="17" src="../images/email2.jpg" width="22">
  205. <a href="mailto:mutwaza@nur.ac.rw">Mutwaza Jonas</a></p>
  206.  
  207. <!--mstheme--></font></td></tr><!--msnavigation--></table></body>
  208.  
  209. </html>
  210.