<%@ Language=VBScript %>
Soumission
<%
' Variables globales
Dim Conn, strSQL, strNom, strPrenom, strLabo, strUniv, strRue, strVille, strEmail, strComm, strAbstract, sMail
' ------------------------------
' Envoi du courrier électronique
' ------------------------------
Function Courrier()
Set sMail = Server.CreateObject("Persits.MailSender")
sMail.Host = "hprib.lps.u-psud.fr"
sMail.From = "pnl@lps.u-psud.fr"
sMail.FromName = "Organisation rencontre RNL 2006"
sMail.AddAddress strEmail
sMail.Subject = "Soumission RNL Rencontre 2006"
sMail.Body = "Vos coordonnées sont enregistrées ainsi:" & vbCrLf & vbCrLf
sMail.Body = sMail.Body & strNom & vbCrLf & strPrenom & vbCrLf
If strLabo <> " " Then sMail.Body = sMail.Body & strLabo & vbCrLf
If strUniv <> " " Then sMail.Body = sMail.Body & strUniv & vbCrLf
If strRue <> " " Then sMail.Body = sMail.Body & strRue & vbCrLf
sMail.Body = sMail.Body & strVille & vbCrLf
sMail.Body = sMail.Body & strEmail & vbCrLf & vbCrLf
sMail.Body = sMail.Body & "Si vous avez transmis un résumé, envoyez" & vbCrLf
sMail.Body = sMail.Body & "votre article avant la date limite du 10 février" & vbCrLf
sMail.Body = sMail.Body & "par la procédure automatique" & vbCrLf
sMail.Body = sMail.Body & "http://pnl.lps.u-psud.fr/pnl/article2006.html" & vbCrLf
sMail.Body = sMail.Body & vbCrLf
sMail.Body = sMail.Body & "Vérifiez ces informations." & vbCrLf
sMail.Body = sMail.Body & "Si vous constatez des erreurs veuillez le signaler" & vbCrLf
sMail.Body = sMail.Body & "(option:""repondre"" de votre navigateur)." & vbCrLf
On Error Resume Next
sMail.Send
If Err <> 0 Then
Courrier=False
Exit Function
End If
Courrier=True
End Function
' ---------------------------------
' Insertion dans la base de données
' ---------------------------------
Sub BaseDeDonnees()
On Error Goto 0
Const adOpenStatic=3
Const adLockOptimistic=3
msg=""
Dim mySmartUpload
Dim intCount
Dim strFolder
Dim fs
If strErrorMsg <> "" Then
Response.Write strErrorMsg
Else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ("Soumission_PNL")
strSQL = "SELECT * FROM R8 "
Set msg = Server.CreateObject("ADODB.Recordset")
msg.Open strSQL, Conn, adOpenStatic, adLockOptimistic
msg.addnew
msg.fields("Nom") = strNom
msg.fields("Prenom") = strPrenom
msg.fields("Labo") = strLabo
msg.fields("Univ") = strUniv
msg.fields("Rue") = strRue
msg.fields("Ville") = strVille
msg.fields("Email") = strEmail
msg.fields("Jour") = Date & " " & Time
msg.update
Conn.Close
Set Conn = Nothing
End If
End Sub
' ---------------------------------
' ProcInscription
' ---------------------------------
Sub ProcInscription()
strNom = Request.Form("Nom")
strPrenom = Request.Form("Prenom")
strLabo = Request.Form("Labo")
strUniv = Request.Form("Univ")
strRue = Request.Form("Rue")
strVille = Request.Form("Ville")
strEmail = Request.Form("Email")
strComm = Request.Form("Comm")
strAbstract = Request.Form("Abstract")
' Champs facultatifs :
If Len(strRue)=0 Then strRue=" "
If Courrier=False Then %>
L'expédition du courrier a échoué
( Erreur <%=Err.Description%> )
Retournez à la page précédente.
<%
Else
BaseDeDonnees
%>
Vos coordonnées ont été enregistrées.
Vous allez recevoir une confirmation, vérifiez
que les indications sont correctes
( nous avertir à
pnl@lps.u-psud.fr
si erreurs).
|
<%
End If ' Fin de If Courrier
End Sub
' ---------------------------------
' ProcEnvoiResume
' ---------------------------------
Sub ProcEnvoiResume()
Dim mySmartUpload
Dim intCount
Dim strFolder
Dim fs
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
Set fs = Server.createObject("Scripting.FileSystemObject")
strFolder = "d:\Inetpub\Access\PNL\Rencontres\Resumes"
intCount = mySmartUpload.Save(strFolder)
Response.Write "" & vbCrLf
If intCount<>0 Then
Response.Write "
Inscription effectuée, Fichier transféré.
Merci et à bientôt.
RETOUR À L'ACCUEIL " & vbCrLf
Else
Response.Write "
Pas de fichier transféré.
Un problème ? Avertissez nous.
" & vbCrLf
End If
Response.Write "" & vbCrLf
Response.Write "
" & vbCrLf
End Sub
' ---------------------------------
' Fin des fonctions - Début
' ---------------------------------
If Request("fct")="Resume" Then
ProcEnvoiResume
Else
If Request.Form("action") <> "Enregistrement" And Request.Form("action") <> "Inscription" Then
' -----------------------
' Affichage du formulaire
' -----------------------
%>
Inscription
à la 9ème Rencontre du Non-Linéaire
IHP Paris 8, 9 et 10
mars 2006
L'inscription est libre et gratuite.
Cependant, il est recommandé à tous de s'inscrire, qu'ils présentent
une communication ou
non (dans ce cas ne pas cocher la case), afin de faciliter
l'organisation de la Rencontre.
Cela vous permettra d'avoir un badge à leur nom et de figurer sur nos listes pour être
informés des futures Rencontres.
Pour ceux qui désirent présenter
une communication :
1-) Vous
récupérez le paquet
contenant les instructions et les formats (Attention ! Les
formats ont changé cette année !)
Rédigez suivant les modèles.
2-)
Vous vous inscrivez directement (voir plus bas).
Si vous présentez un résumé cochez la case appropriée
et appuyez sur "Enregistrer". Une deuxieme fenêtre apparaîtra
qui vous permettra de charger votre fichier depuis votre disque.
Définitions
:
Résumé
= texte d'une page a envoyer lors de votre inscription
(cf ligne précédente)
Article = texte de 6
pages MAXimum que vous devez envoyer
par une procédure automatique , dès
après votre inscription (voir plus bas la date limite d'envoi) si vous
désirez qu'il soit publié.
3-) Dès (10 s. après) votre
inscription, un message automatique vous sera adressé afin de vous permettre
de vérifier que vos coordonnées sont correctes.
Note :
l'adresse postale est l'adresse minimale
pour qu'un courrier vous parvienne sans problème. Evitez les indications
superflues du type "labo associé au cnrs, umr 4012" etc. Les champs obligatoires
sont marqués d'un *
(en fait, tous sauf la rue).
<% ' Présentation d'une communication coché dans le 1er formulaire
Elseif Request.Form("action") = "Inscription" And Request.Form("Comm")="on" Then
ProcInscription
%>
<%
Elseif (Request.Form("action") = "Inscription" And Request.Form("Comm")<>"on") Or Request.Form("action") = "Enregistrement" Then
ProcInscription
End If ' Fin de If Request("action")
End If ' Fin de If Request("fct")
%>