<% ' Déclaration Dim RqValidation, RqReferer Dim strHTMLTable, strSQL, strFields, strValues, strErreur, strLienFichier ' Initialisation strSQL = "" strFields = "" strValues = "" strErreur = "" RqValidation = Request.Form("validation") ' Page pour le bouton retour RqReferer = Request.Form("Referer") If RqReferer = "" Then RqReferer = Request.ServerVariables("HTTP_REFERER") End If ' Validation If RqValidation = 1 Then ' Vérification des champs obligatoires For each it in Request.Form If Left(it,1) = "@" then For i = 0 To Ubound(arrForm) If arrForm(i)(2) = it And Instr(strMust, arrForm(i)(0)) > 0 Then If Trim(Request.Form(it)) = "" Then strErreur = strErreur & "
  • " & arrForm(i)(1) & "
    • " End If End If Next ' Champs / valeur pour la requete strFields = strFields & Right(it, len(it) - 1) & "_download, " strValues = strValues & "'" & Request.Form(it) & "', " End If Next ' Tous les champs sont remplis If strErreur = "" Then 'Insertion dans la base de données strSQL = "INSERT INTO DOWNLOAD " strFields = "(" strValues = "(" For each it in Request.Form If Left(it,1) = "@" then strFields = strFields & Right(it, len(it) - 1) & "_download, " strValues = strValues & "'" & replace(Request.Form(it),"'","''") & "', " End If Next strFields = strFields & "Date_download)" strValues = strValues & "'" & Today() & "')" strSQL = strSQL & strFields & " VALUES " & strValues Dim objConnectionDownload, objRS Set objConnectionDownload = OpenConnection(DB_FILENAME_DOWNLOAD) Set objRS = RetrieveData(objConnectionDownload, strSql) CloseConnection(objConnectionDownload) 'Envoi du mail d'avertissement 'EnvoiMail(MAIL_FROM, MAIL_TO, MAIL_SUBJECT, MAIL_BODY) 'Call EnvoiMail(CONST_MAIL_FROM, CONST_MAIL_TO, "Téléchargement du dossier de candidature", strBody) Call EnvoiMail (MAIL_FROM, MAIL_FROM & ", " & strMailContact, strTitre, strValues) 'Redirection vers le fichier 'DownloadFile(Server.MapPath(strFileDownload)) 'DownloadFile(strFileDownload) 'If how = "lien" then strLienFichier = BASE_URL & strFileDownload 'Else 'DownloadFile(strFileDownload) 'End If 'Response.redirect("downloadfile.asp?rb=" & RqRubrique) End If End If %> <% PageTitle = "Download" MetaDescription = "" MetaKeywords = "" IdMenu = "" 'Si on laisse vide, titre de la rubrique "IdMenu" par defaut TitleMenuP = "" %> <% showHeader() %> <% '============================= 'SUITE MENU GAUCHE '============================= %>

    ESC DIJON PRATIQUE

    <%=objMakemenu.InfosPratiques%>
    <% '============================= 'FIN MENU GAUCHE '============================= %>
    <% '============================= 'DEBUT CONTENU PAGE '============================= %>

    <% = strTitre %>

    <% ' Affichage du lien de téléchargement If len(strErreur) = 0 And how = "lien" And RqValidation = 1 Then Response.write("") %>

    Thank you for your interest.

    Feel free to contact us for further informations.

    <% Else ' Formulaire de saisie %> <% = strLienFichier %>

    Please fill in this form to get the requested document.

    <% If len(strErreur) > 0 Then Response.Write("

    Please fill in the field(s) :

      " & strErreur & "
    ") End If %>

    <% strHTMLTable = "" For i = 0 to Ubound(arrForm) strHTMLTable = strHTMLTable & "" ' Si le champ a les droits If Instr(strDroits, arrForm(i)(0)) > 0 Then strHTMLTable = strHTMLTable & "" strHTMLTable = strHTMLTable & "" Next strHTMLTable = strHTMLTable & "
    " 'Si le champ est obligatoire, en GRAS If Instr(strMust, arrForm(i)(0)) > 0 Then strHTMLTable = strHTMLTable & "" End If strHTMLTable = strHTMLTable & arrForm(i)(1) 'Si le champ est obligatoire, en GRAS If Instr(strMust, arrForm(i)(0)) > 0 Then strHTMLTable = strHTMLTable & " *" End If strHTMLTable = strHTMLTable & "" End If strHTMLTable = strHTMLTable & "
    " Response.Write(strHTMLTable) %>

      

    (*) Fields in bold case have to be filled in.
    You have the right to access, modify and delete any informations about you. (art 34 de la loi Informatique et Libertés). To know more about this right, please mail to <% = MAIL_WEBMASTER %> (cf : Legal Informations)

    <% End If %> <% '============================= 'FIM CONTENU PAGE '============================= %>
    <% showFooter() %>