<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <%Response.CacheControl="Public"%> <% Response.Buffer = True %> <% 'Declare Variables Dim smtpserver,sendtoemail,emailpassword,Custom_Quantity,Custom_Length,Custom_Width,Custom_Height,Custom_MaxLoad,Custom_Entry,Custom_Phone,Custom_Zipcode,Custom_Name,Custom_Company,Custom_Email,Custom_Country Dim Custom_Subject,Custom_Body,Action,IsError ' Edit these to your needs smtpserver = "relay-hosting.secureserver.net" sendtoemail = "info@palettesenaluminium.com" emailpassword = "buyitnow" ' Get variables from the form post Custom_Quantity = Request("Custom_Quantity") Custom_Length = Request("Custom_Length") Custom_Width = Request("Custom_Width") Custom_Height = Request("Custom_Height") Custom_MaxLoad = Request("Custom_MaxLoad") Custom_Entry = Request("Custom_Entry") Custom_Name = Request("Custom_Name") Custom_Company = Request("Custom_Company") Custom_Phone = Request("Custom_Phone") Custom_Email = Request("Custom_Email") Custom_Zipcode = Request("Custom_Zipcode") Custom_Country = Request("Custom_Country") Custom_Subject = "Palettes En Aluminium" Custom_Body = Request("Custom_Body") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Palettes en aluminium sur mesure, palette en aluminium sur mesure <% If Action = "SendEmail" Then ' Validates form If Custom_Quantity = "" Then IsError = "Yes" Response.Write("Veuillez remplir une quantité.
") End If If Custom_Name = "" Then IsError = "Yes" Response.Write("Veuillez remplir votre nom.
") End If If Custom_Company = "" Then IsError = "Yes" Response.Write("Veuillez remplir le nom de votre entreprise.
") End If If Custom_Phone = "" Then IsError = "Yes" Response.Write("Veuillez remplir votre numéro de téléphone.
") End If If IsValidEmail(Custom_Email) = "False" Then IsError = "Yes" Response.Write("Veuillez saisir une adresse valide.
") End If If Custom_Zipcode = "" Then IsError = "Yes" Response.Write("Veuillez remplir le code postale de livraison.
") End If If Custom_Country = "" Then IsError = "Yes" Response.Write("Veuillez saisir votre pays.
") End If End If ' If there are no input errors and the action of the form is "SendEMail" the email is sent If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' html body in the email strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "Nom" & " : " & " " & Replace(Custom_Name,vbCr,"
") & "
" strBody = strBody & "Entreprise" & " : " & " " & Replace(Custom_Company,vbCr,"
") & "
" strBody = strBody & "Téléphone" & " : " & " " & Replace(Custom_Phone,vbCr,"
") & "
" strBody = strBody & "Courriel" & " : " & " " & Replace(Custom_Email,vbCr,"
") & "
" strBody = strBody & "Quantité" & " : " & " " & Replace(Custom_Quantity,vbCr,"
") & "
" strBody = strBody & "Longueur" & " : " & " " & Replace(Custom_Length,vbCr,"
") & "
" strBody = strBody & "Largeur" & " : " & " " & Replace(Custom_Width,vbCr,"
") & "
" strBody = strBody & "Hauteur" & " : " & " " & Replace(Custom_Height,vbCr,"
") & "
" strBody = strBody & "Charge maximale des palettes" & " : " & " " & Replace(Custom_MaxLoad,vbCr,"
") & "
" strBody = strBody & "Palette" & " : " & " " & Replace(Custom_Entry,vbCr,"
") & "
" strBody = strBody & "Code postale de livraison" & " : " & " " & Replace(Custom_Zipcode,vbCr,"
") & "
" strBody = strBody & "Pays" & " : " & " " & Replace(Custom_Country,vbCr,"
") & "
" strBody = strBody & "Comment utiliserez-vous ces palettes?" & " : " & " " & Replace(Custom_Body,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendtoemail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = emailpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = sendtoemail ObjSendMail.Subject = Custom_Subject ObjSendMail.From = Custom_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %> <% Response.Redirect "merci1.htm" %>

<% =Replace(Custom_Body,vbCr,"
") %> <% Else %>

Nous fournissons déjà les industries suivantes:

L'équipement médical

Automobile

Technologique

Palettes en aluminium sur mesure

Vous cherchez une palette en aluminium de taille précise ou une palette qui répond aux normes de performance?

Nous construisons des palettes métalliques selon vos exigences. Nous pouvons produire également des palettes sur patins en aluminium et des palettes superposables.

Trouvez des idées pour votre palette sur mesure

Nous vous invitons à regarder les differents types de palettes sur mesure que nous avons construits sur la page types de palettes en aluminium.

Informez-nous sur votre projet de palettes en aluminium fabriquées sur mesure en vous servant du formulaire ci-dessous. Si vous avez un croquis, remplissez ce formulaire et envoyez ensuite votre croquis par courriel à l'adresse ci-dessous.

* Quantité:
Longueur:	Largeur: Hauteur:
Charge maximale des palettes:
Palette:	à 2 entrées à 4 entrées
Comment utiliserez-vous ces palettes?	<% =Custom_Body %>
* Nom:
* Entreprise:
* Téléphone:
* Courriel:
* Code postale de livraison:
* Pays:

Nous fournissons déjà les industries suivantes:

La transformation alimentaire

Pharmaceutique

Chimique

Énergétique

<% End If %>