home *** CD-ROM | disk | FTP | other *** search
/ lib.nur.ac.rw / lib.nur.ac.rw.tar / lib.nur.ac.rw / Demande_Article.asp < prev    next >
Text File  |  2008-07-16  |  10KB  |  206 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(11)
  26.     Dim arFormDBFields0(11)
  27.     Dim arFormValues0(11)
  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) = "URL"
  42.     arFormDBFields0(4) = "URL"
  43.     arFormValues0(4) = Request("URL")
  44.     arFormFields0(5) = "Fasc"
  45.     arFormDBFields0(5) = "Fasc"
  46.     arFormValues0(5) = Request("Fasc")
  47.     arFormFields0(6) = "Acceptation"
  48.     arFormDBFields0(6) = "Acceptation"
  49.     arFormValues0(6) = Request("Acceptation")
  50.     arFormFields0(7) = "Titre"
  51.     arFormDBFields0(7) = "Titre"
  52.     arFormValues0(7) = Request("Titre")
  53.     arFormFields0(8) = "Periodique"
  54.     arFormDBFields0(8) = "Periodique"
  55.     arFormValues0(8) = Request("Periodique")
  56.     arFormFields0(9) = "Annee"
  57.     arFormDBFields0(9) = "Annee"
  58.     arFormValues0(9) = Request("Annee")
  59.     arFormFields0(10) = "Pages"
  60.     arFormDBFields0(10) = "Pages"
  61.     arFormValues0(10) = Request("Pages")
  62.  
  63.     FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
  64.  
  65.     If Request.ServerVariables("REMOTE_HOST") <> "" Then
  66.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nom_de_l'ordinateur_distant"
  67.     End If
  68.     If Request.ServerVariables("REMOTE_USER") <> "" Then
  69.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nom_d'utilisateur"
  70.     End If
  71.     FP_SaveFieldToDB fp_rs, Now, "Date_de_derniΦre_modification"
  72.     If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
  73.         FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Type_de_navigateur"
  74.     End If
  75.  
  76.     fp_rs.Update
  77.     FP_DumpError strErrorUrl, "Impossible de mettre α jour la base de donnΘes"
  78.  
  79.     fp_rs.Close
  80.     fp_conn.Close
  81.  
  82.     Session("FP_SavedFields")=arFormFields0
  83.     Session("FP_SavedValues")=arFormValues0
  84.     Response.Redirect "Demande_Confirm.asp"
  85.  
  86. End If
  87. End If
  88.  
  89. %>
  90. <html>
  91.  
  92. <head>
  93. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  94. <meta name="ProgId" content="FrontPage.Editor.Document">
  95. <title>Formulaire de demande d'article</title>
  96. <meta name="Microsoft Theme" content="pstmdrn 011, default">
  97. <meta name="Microsoft Border" content="tb, default">
  98. </head>
  99.  
  100. <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">
  101.  
  102. <h3 align="center"><!--mstheme--><font color="#666699"><font face="Century Schoolbook" color="#000080"><strong><big>BibliothΦque
  103. centrale de l'UNR</big></strong></font><!--mstheme--></font></h3>
  104.  
  105. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  106.  
  107. <p align="left" style="margin-bottom: 10"><strong><font color="#000080" face="Arial"><br>
  108. </font></strong></p>
  109. <!--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">
  110.  
  111. <p> </p>
  112. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
  113. function FrontPage_Form1_Validator(theForm)
  114. {
  115.  
  116.   if (theForm.Periodique.value == "")
  117.   {
  118.     alert("Tapez une valeur pour le champ \"Periodique\".");
  119.     theForm.Periodique.focus();
  120.     return (false);
  121.   }
  122.  
  123.   if (theForm.Periodique.value.length < 5)
  124.   {
  125.     alert("Tapez au moins 5 caractΦres dans le champ \"Periodique\".");
  126.     theForm.Periodique.focus();
  127.     return (false);
  128.   }
  129.  
  130.   if (theForm.Demandeur.value == "")
  131.   {
  132.     alert("Tapez une valeur pour le champ \"Demandeur\".");
  133.     theForm.Demandeur.focus();
  134.     return (false);
  135.   }
  136.  
  137.   if (theForm.Demandeur.value.length < 4)
  138.   {
  139.     alert("Tapez au moins 4 caractΦres dans le champ \"Demandeur\".");
  140.     theForm.Demandeur.focus();
  141.     return (false);
  142.   }
  143.   return (true);
  144. }
  145. //--></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--">
  146.  <!--webbot bot="SaveDatabase" suggestedext="asp"
  147.  u-asp-include-url="_fpclass/fpdbform.inc" s-dataconnection="demandes_articles"
  148.  s-recordsource="RΘsultats" u-database-url="fpdb/demandes_articles.mdb"
  149.  u-confirmation-url="Demande_Confirm.asp"
  150.  s-builtin-fields="REMOTE_HOST REMOTE_USER Timestamp HTTP_USER_AGENT"
  151.  s-builtin-dbfields="Nom_de_l'ordinateur_distant Nom_d'utilisateur Date_de_derniΦre_modification Type_de_navigateur"
  152.  s-form-fields="Tome Email_Demandeur Demandeur Auteurs URL Fasc Acceptation Titre Periodique Annee Pages"
  153.  s-form-dbfields="Tome Email_Demandeur Demandeur Auteurs URL Fasc Acceptation Titre Periodique Annee Pages" startspan
  154.  --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="40548"
  155.  -->
  156.  <div align="center">
  157.   <center>
  158.   <!--mstheme--></font><table border="0" cellspacing="1" width="95%" height="109">
  159.    <tr>
  160.     <td width="20%" height="36"><!--mstheme--><font face="Arial, Helvetica">Auteurs<!--mstheme--></font></td>
  161.     <td width="75%" height="36" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><input type="text" name="Auteurs" size="74"><!--mstheme--></font></td>
  162.    </tr>
  163.    <tr>
  164.     <td width="20%" height="30"><!--mstheme--><font face="Arial, Helvetica">Titre<!--mstheme--></font></td>
  165.     <td width="75%" height="30" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><input type="text" name="Titre" size="74"><!--mstheme--></font></td>
  166.    </tr>
  167.    <tr>
  168.     <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>
  169.      </font></b></font><!--mstheme--></font></td>
  170.     <td width="75%" height="33" colspan="3"><!--mstheme--><font face="Arial, Helvetica"><!--webbot bot="Validation"
  171.      b-value-required="TRUE" i-minimum-length="5" --><input type="text" name="Periodique" size="74"> 
  172.      <font color="#FF0000"><b><font size="1" face="Arial Black">(<blink>OBLIGATOIRE</blink>)</font></b></font><!--mstheme--></font></td>
  173.    </tr>
  174.    <tr>
  175.     <td width="20%" height="32"><!--mstheme--><font face="Arial, Helvetica">AnnΘe <input type="text" name="Annee" size="15"><!--mstheme--></font></td>
  176.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Tome (volume) <input type="text" name="Tome" size="14"><!--mstheme--></font></td>
  177.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Fasc <input type="text" name="Fasc" size="15"><!--mstheme--></font></td>
  178.     <td width="25%" height="32"><!--mstheme--><font face="Arial, Helvetica">Pages <input type="text" name="Pages" size="20"><!--mstheme--></font></td>
  179.    </tr>
  180.   </table><!--mstheme--><font face="Arial, Helvetica">
  181.   </center>
  182.  </div>
  183.  <p> </p>
  184.  <p>Demandeur <!--webbot bot="Validation" s-data-type="String"
  185.  b-value-required="TRUE" i-minimum-length="4" --><input type="text" name="Demandeur" size="20" value="<%=Request("Demandeur")%>">
  186.  <font color="#FF0000"><b><font size="1" face="Arial Black">(<blink>OBLIGATOIRE</blink>)</font></b>
  187.  </font>        Email  <input type="text" name="Email_Demandeur" size="20" value="<%=Request("Email_Demandeur")%>"></p>
  188.  <p><input type="submit" value="Envoyer la demande" name="B1">       
  189.  <input type="reset" value="Effacer tout" name="B2"></p>
  190.  <input type="hidden" name="Acceptation" value="En attente"><input type="hidden" name="URL" value="http://www.lib.nur.ac.rw/">
  191. </form>
  192.  
  193.  
  194. <!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Helvetica"><p align="center"><br>
  195. <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>       
  196. <a href="Default.htm"><img src="images/home.gif" alt="home.gif (201 octets)" border="0" width="30" height="26" align="absmiddle"></a>    
  197.   <a href="Aide.htm"><img border="0" src="images/info.gif" width="44" height="39"></a><br>
  198. DerniΦre modification: 17/01/2001
  199.                         
  200. Webmaster : <img border="0" height="17" src="images/email2.jpg" width="22"> <a href="mailto:mutwaza@nur.ac.rw">Mutwaza
  201. Jonas</a></p>
  202.  
  203. <!--mstheme--></font></td></tr><!--msnavigation--></table></body>
  204.  
  205. </html>
  206.