<%'@ Language=VBScript %>
<%' ----------------------------------------------------------------------------------------+
'| S U I V I D E S M O D I F I C A T I O N S |
'+------------------------------------------------------------------------------------------+
' Name: contact.asp
' Type: Active Server Page
' Written: Sem Brundu ( www.solucia.net )
' email: sem@solucia.net
' Date: mercredi 3 décembre 2003 15:23:35
' Comments : Formulaire de contact / page dynamique
'+------------+---------------+-------------------------------------------------------------+
'| Date | Auteur | Remarques / action |
'+------------+---------------+-------------------------------------------------------------+
'| 03/12/2003 | Sem BRUNDU | Modification |
'+------------+---------------+------------------------------------------------------------%>
<%
'OPTION EXPLICIT
Const Page = "contacts.asp"
Const Racine = ""
%>
Les Nouveaux Pros du Batiment
<%
Dim typeMessage : typeMessage = "Un nouveau contact"
Dim agence_nom,agence_web,agence_email,http_ref
agence_nom = "Les Nouveaux Pros du Batiment"
agence_web = "newprobat.com"
agence_email = "contact@"&agence_web
http_ref = "www."& agence_web
Dim crediteur,crediteur_web,crediteur_fax,crediteur_tel,crediteur_contact,crediteur_email
crediteur = "Solucia France"
crediteur_web = "solucia.net"
crediteur_fax = "XX XX XX XX XX"
crediteur_tel = "04 91 09 73 44"
crediteur_contact = "Laurent Carrano"
crediteur_email = "contact@"&crediteur_web
mem = Request.Form("mem")
msg = Request("msg")&""
if mem = "Envoyer" then
contact = Request.Form("contact")
tel = Request.Form("tel")
email = Request.Form("email")
commentaires = Request.Form("commentaires")
texte = "
Message provenant du site : " & http_ref & " " &_
"Envoyé le " & Date_Long(date()) & " à "& Time() &"
"
End If
if mem = "Envoyer" then formcontact_check
if mem = "Envoyer" then
' agence_email = "sem@solucia.net"
agence_email = "nouvprobat@wanadoo.fr"
envoi_jmail email, crediteur &" > "& site & " - " & typeMessage& "", agence_email, texte, 1
msg = "> Votre demande a correctement été expédiée sur "& agence_email &"."
'societe = ""
contact = ""
tel = ""
email = ""
commentaires = ""
end if
' =================================================================================================
Function formcontact_check
' -------------------------------------------------------------------------------------------------
' If tel <>"" Then
' If Not IsNumeric(tel) Then
' mem="erreur": msg="
> Le téléphone n'est pas valide, merci de le 'corriger.
"
' End If
' End If
If Not CBool(IsValidEmail(email)) then
mem="erreur": msg="
> Veuillez saisir une adresse e-mail valide !
"
End If
If contact="" Or email="" Then
mem="erreur"
msg="
> Un ou plusieurs champs obligatoires (*) sont absents.
"
End If
End Function
' =================================================================================================
%>
)
)
