<%@ 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@palettesmetalliques.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 Métalliques" 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 %> Nos palettes métalliques répondent aux exigences de la manutention <% 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? Expliquez-nous votre conception" & " : " & " " & 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:

Automobile

Technologique

L'équipement médical

Palettes métalliques fabriquées sur commande

Vous cherchez une palette métallique avec une taille précise ou qui répond aux normes de performance?

Nous construisons des palettes métalliques selon vos exigences. Nous pouvons produire des systèmes de manutention et de stockage de grande hauteur, des palettes métalliques de contrôle des déversements, ainsi que des palettes pour fûts en acier.

Confiez-nous votre maquette

Vous avez une idée précise de votre palette métallique fabriquée sur mesure? Détaillez autant que possible votre palette en vous servant du formulaire ci-dessous. Si vous avez un croquis, envoyez-le par courriel avec vos questions.

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

Nous fournissons déjà les industries suivantes:

La grande distribution

Chimique

Pharmaceutique

Énergétique

<% End If %>