home *** CD-ROM | disk | FTP | other *** search
/ lib.nur.ac.rw / lib.nur.ac.rw.tar / lib.nur.ac.rw / Intranet / Update_accepte.asp < prev    next >
Text File  |  2008-07-16  |  11KB  |  150 lines
  1. <html>
  2.  
  3. <head>
  4. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  5. <meta name="ProgId" content="FrontPage.Editor.Document">
  6. <title>Acceptation d'articles</title>
  7. <meta name="Microsoft Theme" content="pstmdrn 011, default">
  8. <meta name="Microsoft Border" content="tb, default">
  9. </head>
  10.  
  11. <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">
  12.  
  13. <h3 align="center"><!--mstheme--><font color="#666699"><font face="Century Schoolbook" color="#000080"><strong><big>BibliothΦque
  14. centrale de l'UNR</big></strong></font><!--mstheme--></font></h3>
  15. <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>
  16. <p align="center"><font size="6"><strong><img src="_derived/Update_accepte.asp_cmp_pstmdrn010_bnr.gif" width="600" height="60" border="0" alt="Acceptation d'articles"></strong></font></p>
  17. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  18.  
  19. <!--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">
  20.  
  21. <%
  22. 'Set up the variables 
  23. Dim myCDONTSMail 
  24. Dim strFrom 
  25. Dim strTo 
  26. Dim strSubject 
  27. Dim strBody 
  28. strFrom="facmed@nur.ac.rw"
  29. if request.form("New_Acceptation")= "AcceptΘ" then 
  30.     strTo="ud.fapse@ulg.ac.be"
  31.     strSubject = "Demande d'article UNR"
  32.     strBody="<html> Demande UNR N░ <b>" & request.form("New_Identificateur") & "</b><p>"
  33.     strBody=strbody & request.form("New_Lieu") & "<p>"
  34.     strBody=strbody & "<div align='left'> <table border='0' cellspacing='1' width='90%'>"
  35.     strBody=strbody & "<tr><td width='60' height='20'> AU : </td><td height='20'><b>" & request.form("Auteurs") & "</b></td></tr>"
  36.     strBody=strbody & "<tr><td width='60' height='20'> TI : </td><td height='20'>" & request.form("Titre") & "</td></tr>"
  37.     strBody=strbody & "<tr><td width='60' height='20'> PY : </td><td height='20'>" & request.form("Annee") & "</td></tr>"
  38.     strBody=strbody & "<tr><td width='60' height='20'> JN : </td><td height='20'><b><i>" & request.form("Periodique") & "</i></b></td></tr>"
  39.     strBody=strbody & "<tr><td width='60' height='20'> Vo : </td><td height='20'>" & request.form("Tome") & " (" & request.form("Fasc") & " ) "  & request.form("Pages")& "</td></tr>"
  40.     strBody=strbody & "</table></div></html>"
  41.     'Create a new mail message object 
  42.     Set myCDONTSMail = CreateObject("CDONTS.NewMail") 
  43.     'Sent the new mail message object by passing the parameters 
  44.     'defined above 
  45.     myCDONTSMail.Send strFrom,strTo,strSubject,strBody 
  46. else
  47.     if request.form("New_Acceptation")= "RefusΘ" then
  48.         If request.form("Email_Demandeur")<> "" then
  49.             strTo=request.form("Email_Demandeur")
  50.             strSubject = "Demande d'article UNR"
  51.             strBody="M. " & request.form("Demandeur")  & "," & chr(13) & chr(13)
  52.             strBody=strbody & "Votre demande d'article N░ " & request.form("New_Identificateur") & chr(13) 
  53.             strBody=strbody & "   AU : " & request.form("Auteurs") & chr(13)    
  54.             strBody=strbody & "   TI : " & request.form("Titre") & chr(13)
  55.             strBody=strbody & "   PY : " & request.form("Annee") & chr(13)
  56.             strBody=strbody & "   JN : " & request.form("Periodique") & chr(13)
  57.             strBody=strbody & "   Vo : " & request.form("Tome") & " (" & request.form("Fasc") & " ) "  & request.form("Pages")  & chr(13)  & chr(13)
  58.             strBody=strbody & "N'a malheureusement pas pu Ωtre acceptΘe par les autoritΘs de la FacultΘ."  & chr(13)  & chr(13)
  59.             If request.form("New_Raison_refus")<> "" then
  60.                 strBody=strbody & "La raison en est : " & request.form("New_Raison_Refus")    
  61.             End If
  62.             'Create a new mail message object 
  63.             Set myCDONTSMail = CreateObject("CDONTS.NewMail") 
  64.             'Sent the new mail message object by passing the parameters 
  65.             'defined above 
  66.             myCDONTSMail.Send strFrom,strTo,strSubject,strBody 
  67.         End If
  68.     End if      
  69. end if
  70.  
  71.  
  72. 'Set the new mail message object to Nothing to free resources 
  73. Set myCDONTSMail = Nothing
  74.  
  75.  
  76. %>
  77. <p> 
  78. <!--mstheme--></font><table>
  79.  <tbody>
  80.   <tr>
  81.    <td><!--mstheme--><font face="Arial, Helvetica"><!--webbot bot="PurpleText" preview="Attention : code sous-jacent" --><!--mstheme--></font></td>
  82.   </tr>
  83.   <!--webbot bot="DatabaseRegionStart" startspan s-columnnames s-columntypes
  84.   s-dataconnection="demandes_articles" b-tableformat="TRUE" b-menuformat="FALSE"
  85.   s-menuchoice s-menuvalue b-tableborder="FALSE" b-tableexpand="FALSE"
  86.   b-tableheader="FALSE" b-listlabels="TRUE" b-listseparator="TRUE"
  87.   i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns s-criteria
  88.   s-order
  89.   s-sql="UPDATE DISTINCTROW <br>RΘsultats<br>Set Acceptation='::New_Acceptation::',<br>Date_Accept=date(),<br>Raison_Refus ='::New_Raison_Refus::',<br>Lieu='::New_Lieu::',<br>Reception='En commande'<br>where Identificateur=::New_Identificateur::"
  90.   b-procedure="FALSE" clientside suggestedext="asp"
  91.   s-defaultfields="New_Acceptation=&amp;New_Raison_Refus=-&amp;New_Lieu=&amp;New_Identificateur="
  92.   s-norecordsfound i-maxrecords="256" i-groupsize="0" botid="0"
  93.   u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc"
  94.   u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="TBODY"
  95.   local_preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">L'aperτu des requΩtes de rΘsultats de base de donnΘes est disponible uniquement si cette page est accΘdΘe depuis un serveur Web par un navigateur Web. La ligne suivante du tableau s'affiche pour chaque enregistrement renvoyΘ par la requΩte.</font></td></tr>"
  96.   preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">DΘbut d'une requΩte de rΘsultats de base de donnΘes. La page doit Ωtre accΘdΘe depuis un serveur Web par un navigateur Web pour s'afficher correctement ; le site Web en cours est placΘ sur votre disque local ou sur le rΘseau.</font></td></tr>"
  97.   b-wastableformat="TRUE" --><!--#include file="_fpclass/fpdblib.inc"-->
  98. <%
  99. fp_sQry="UPDATE DISTINCTROW  RΘsultats Set Acceptation='::New_Acceptation::', Date_Accept=date(), Raison_Refus ='::New_Raison_Refus::', Lieu='::New_Lieu::', Reception='En commande' where Identificateur=::New_Identificateur::"
  100. fp_sDefault="New_Acceptation=&New_Raison_Refus=-&New_Lieu=&New_Identificateur="
  101. fp_sNoRecords="<tr><td colspan=16 align=left width=""100%""></td></tr>"
  102. fp_sDataConn="demandes_articles"
  103. fp_iMaxRecords=256
  104. fp_iCommandType=1
  105. fp_iPageSize=0
  106. fp_fTableFormat=True
  107. fp_fMenuFormat=False
  108. fp_sMenuChoice=""
  109. fp_sMenuValue=""
  110. fp_iDisplayCols=16
  111. fp_fCustomQuery=True
  112. BOTID=0
  113. fp_iRegion=BOTID
  114. %>
  115. <!--#include file="_fpclass/fpdbrgn1.inc"-->
  116. <!--webbot bot="DatabaseRegionStart" i-CheckSum="14891" endspan --><!--webbot
  117.   bot="DatabaseRegionEnd" startspan b-tableformat="TRUE" b-menuformat="FALSE"
  118.   u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="TBODY"
  119.   local_preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">Fin d'une requΩte de rΘsultats de base de donnΘes.</font></td></tr>"
  120.   preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">Fin d'une requΩte de rΘsultats de base de donnΘes.</font></td></tr>" --><!--#include file="_fpclass/fpdbrgn2.inc"-->
  121. <!--webbot bot="DatabaseRegionEnd" i-CheckSum="62730" endspan -->
  122.  </tbody>
  123. </table><!--mstheme--><font face="Arial, Helvetica">
  124.  
  125. <% if request.form("New_Acceptation")= "AcceptΘ" then
  126. response.write "La demande a ΘtΘ correctement transmise." 
  127. else 
  128. response.write "La base de donnΘes α ΘtΘ correctement modifiΘe." 
  129. end if %>
  130. <p><font face="Arial">Souhaiter-vous en <a href="Acceptation.asp"><b>accepter
  131. d'autres ?</b></a></font><!--webbot bot="PurpleText"
  132. preview="Attention : code sous-jacent" --></p>
  133. <p align="center"> 
  134.  
  135. <!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Helvetica">
  136.  
  137. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  138. <p align="center"><nobr>[ <a href="Demande_Article.asp">Formulaire de demande d'article</a> ]</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>
  139. <p align="center"><br>
  140. <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>       
  141. <a href="../unr/Default.htm"><img src="../images/home.gif" alt="home.gif (201 octets)" border="0" width="30" height="26" align="absmiddle"></a>    
  142.   <a href="../unr/Aide.htm"><img border="0" src="../images/info.gif" width="44" height="39"></a><br>
  143. DerniΦre modification: le 22/01/01                        
  144. Webmaster : <img border="0" height="17" src="../images/email2.jpg" width="22">
  145. <a href="mailto:mutwaza@nur.ac.rw">Mutwaza Jonas</a></p>
  146.  
  147. <!--mstheme--></font></td></tr><!--msnavigation--></table></body>
  148.  
  149. </html>
  150.