home *** CD-ROM | disk | FTP | other *** search
/ lib.nur.ac.rw / lib.nur.ac.rw.tar / lib.nur.ac.rw / Update_Reception.asp < prev    next >
Text File  |  2008-07-16  |  8KB  |  116 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>Reception 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.  
  16. <!--msthemeseparator--><p align="center"><img src="_themes/pstmdrn/poshorsa.gif" width="600" height="10"></p>
  17.  
  18. <p align="left" style="margin-bottom: 10"><strong><font color="#000080" face="Arial"><br>
  19. </font></strong></p>
  20. <!--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">
  21.  
  22. <!--mstheme--></font><table>
  23.  <tbody>
  24.   <!--webbot bot="DatabaseRegionStart" startspan s-columnnames s-columntypes
  25.   s-dataconnection="demandes_articles" b-tableformat="TRUE" b-menuformat="FALSE"
  26.   s-menuchoice s-menuvalue b-tableborder="FALSE" b-tableexpand="FALSE"
  27.   b-tableheader="FALSE" b-listlabels="TRUE" b-listseparator="TRUE"
  28.   i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns s-criteria
  29.   s-order
  30.   s-sql="UPDATE DISTINCTROW <br>RΘsultats<br>Set  Auteurs='::New_Auteurs::',<br>Titre='::New_Titre::',<br>Periodique='::New_Periodique::',<br>Annee='::New_Annee::',<br>Tome='::New_Tome::',<br>Fasc='::New_Fasc::',<br>Pages='::New_Pages::',<br>URL='::New_URL::'<br>where Identificateur=::New_Identificateur::"
  31.   b-procedure="FALSE" clientside suggestedext="asp"
  32.   s-defaultfields="New_Auteurs=-&New_Titre=-&New_Periodique=-&New_Annee=-&New_Tome=-&New_Fasc=-&New_Pages=-&New_URL=-&New_Identificateur=-"
  33.   s-norecordsfound i-maxrecords="256" i-groupsize="1" botid="0"
  34.   u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc"
  35.   u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="TBODY"
  36.   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>"
  37.   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>" --><!--#include file="_fpclass/fpdblib.inc"-->
  38. <%
  39. fp_sQry="UPDATE DISTINCTROW  RΘsultats Set  Auteurs='::New_Auteurs::', Titre='::New_Titre::', Periodique='::New_Periodique::', Annee='::New_Annee::', Tome='::New_Tome::', Fasc='::New_Fasc::', Pages='::New_Pages::', URL='::New_URL::' where Identificateur=::New_Identificateur::"
  40. fp_sDefault="New_Auteurs=-&New_Titre=-&New_Periodique=-&New_Annee=-&New_Tome=-&New_Fasc=-&New_Pages=-&New_URL=-&New_Identificateur=-"
  41. fp_sNoRecords="<tr><td colspan=16 align=left width=""100%""></td></tr>"
  42. fp_sDataConn="demandes_articles"
  43. fp_iMaxRecords=256
  44. fp_iCommandType=1
  45. fp_iPageSize=1
  46. fp_fTableFormat=True
  47. fp_fMenuFormat=False
  48. fp_sMenuChoice=""
  49. fp_sMenuValue=""
  50. fp_iDisplayCols=16
  51. fp_fCustomQuery=True
  52. BOTID=0
  53. fp_iRegion=BOTID
  54. %>
  55. <!--#include file="_fpclass/fpdbrgn1.inc"-->
  56. <!--webbot bot="DatabaseRegionStart" i-CheckSum="23523" endspan --><!--webbot
  57.   bot="DatabaseRegionEnd" startspan b-tableformat="TRUE" b-menuformat="FALSE"
  58.   u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="1" clientside tag="TBODY"
  59.   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><TR><TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64><FORM><NOBR><INPUT TYPE=Button VALUE="  |<  "><INPUT TYPE=Button VALUE="   <  "><INPUT TYPE=Button VALUE="  >   "><INPUT TYPE=Button VALUE="  >|  ">  [1/1]</NOBR></FORM></td></tr>"
  60.   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><TR><TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64><NOBR><INPUT TYPE=Button VALUE="  |<  "><INPUT TYPE=Button VALUE="   <  "><INPUT TYPE=Button VALUE="  >   "><INPUT TYPE=Button VALUE="  >|  ">  [1/1]</NOBR><BR></td></tr>" --><!--#include file="_fpclass/fpdbrgn2.inc"-->
  61. <!--webbot bot="DatabaseRegionEnd" i-CheckSum="62730" endspan -->
  62.  </tbody>
  63. </table><!--mstheme--><font face="Arial, Helvetica">
  64. La base de donnΘe a ΘtΘ correctement modifiΘe.
  65. <p>
  66.  
  67. <%
  68. If request.form("Email_Demandeur") <> "" then
  69.     Dim myCDONTSMail 
  70.     Dim strFrom 
  71.     Dim strTo 
  72.     Dim strSubject 
  73.     Dim strBody 
  74.     'Set up the variables 
  75.  
  76.     strFrom="ud.fapse@lib.ulg.ac.be"
  77.     strTo=request.form("Email_Demandeur")
  78.     strSubject = "Demande d'article UNR"
  79.     strBody="M. " & request.form("Demandeur") & "," & chr(13) & chr(13) 
  80.     strBody=strbody & "Votre demande d'article N░ " & request.form("New_Identificateur") & chr(13)
  81.     strBody=strbody & "   AU : " & request.form("New_Auteurs") & chr(13)    
  82.     strBody=strbody & "   TI : " & request.form("New_Titre") & chr(13)
  83.     strBody=strbody & "   PY : " & request.form("New_Annee") & chr(13)
  84.     strBody=strbody & "   JN : " & request.form("New_Periodique") & chr(13)
  85.     strBody=strbody & "   Vo : " & request.form("New_Tome") & " (" & request.form("New_Fasc") & " ) "  & request.form("New_Pages") & chr(13) & chr(13)
  86.     strBody=strbody & "Est α votre disposition α la bibliothΦque ou directement α l'adresse : " & chr(13)
  87.     strBody=strbody & request.form("New_URL") 
  88.     
  89.     'Create a new mail message object 
  90.     Set myCDONTSMail = CreateObject("CDONTS.NewMail") 
  91.  
  92.     'Sent the new mail message object by passing the parameters 
  93.     'defined above 
  94.     myCDONTSMail.Send strFrom,strTo,strSubject,strBody 
  95.     
  96.     'Set the new mail message object to Nothing to free resources 
  97.     Set myCDONTSMail = Nothing
  98.     response.write "Le demandeur " & request.form("Demandeur") & " a ΘtΘ a prΘvenu par Email." 
  99. End If
  100.  
  101. %>
  102.  
  103. <p><font face="Arial">Souhaiter-vous en <a href="Reception.asp"><b>rΘceptionner
  104. d'autres ?</b></a></font>
  105.  
  106. <!--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>
  107. <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>       
  108. <a href="Default.htm"><img src="images/home.gif" alt="home.gif (201 octets)" border="0" width="30" height="26" align="absmiddle"></a>    
  109.   <a href="Aide.htm"><img border="0" src="images/info.gif" width="44" height="39"></a><br>
  110. DerniΦre modification: 17/01/2001
  111.                         
  112. Webmaster : <img border="0" height="17" src="images/email2.jpg" width="22"> <a href="mailto:mutwaza@nur.ac.rw">Mutwaza
  113. Jonas</a></p>
  114.  
  115. <!--mstheme--></font></td></tr><!--msnavigation--></table></body>
  116.