' VB Script Document


sub LdObjet_OnChange
	' explications.innerHTML="<br><span class=""HiRed"">Veuillez completer ces informations ci-dessous s.v.p.</span><br>"'
	select case Form0.LdObjet.value
	case 2
		ZChDem.style.visibility="hidden"
		ZDemande1.style.left="205"
		ZDemande1.style.top="411"
		zDemande1.style.visibility="visible"
		zDem1.style.visibility="visible"
		Form2.NomZ1.focus
	case 5
		ZChDem.style.visibility="hidden"
		ZDemande2.style.left="205"
		ZDemande2.style.top="411"
		zDemande2.style.visibility="visible"
		zDem2.style.visibility="visible"
		Form3.NomZ2.focus

	case else
		ZChDem.style.visibility="hidden"
		ZDemande.style.left="205"
		ZDemande.style.top="411"
		zDemande.style.visibility="visible"
		zDem.style.visibility="visible"
		i=cint(form0.LdObjet.value)-1
		form1.sujet.value=form0.LdObjet.all(i).innerhtml
		Form1.NomZ.focus
	end select
end sub

sub Bt1_OnClick
	dim ErMs
	ErMs=""
	If Form1.nom.value = "" then ErMs="   Nom" & vbcr
	If VerEmail(Form1.Email.value) = false  then ErMs=ErMs+"   E-mail" & vbcr
	If Form1.Sujet.value = "" then ErMs=ErMs+"   Sujet" & vbcr
	If Form1.Message.value = "" then ErMs=ErMs+"   Message" & vbcr
	if erms <> "" then
		msgbox "Les champs ci-dessous sont obligatoires, vous devez les renseigner avec des donnees valides." & vbcr & vbcr & ErMs ,vbexclamation,"Attention"
	else 
		form1.bt1a.click
	end if
end sub

sub Bt2_OnClick
	dim ErMs
	ErMs=""
	If Form2.nom.value = "" then ErMs="   Nom" & vbcr
	If VerEmail(Form2.Email.value) = false  then ErMs=ErMs+"   E-mail"& vbcr
	If Form2.No_Commande.value = "" then ErMs=ErMs+"   No.Commande"& vbcr
	If Form2.Details.value = "" then ErMs=ErMs+"   Details"& vbcr
	if erms <> "" then
		msgbox "Les champs ci-dessous sont obligatoires, vous devez les renseigner avec des donnees valides." & vbcr & vbcr & ErMs ,vbexclamation,"Attention"
	else 
		form2.bt2a.click
	end if
end sub

sub Bt3_OnClick
	dim ErMs
	ErMs=""
	If Form3.nom.value = "" then ErMs="   Nom" & vbcr
	If VerEmail(Form3.Email.value) = false then ErMs=ErMs+"   E-mail"& vbcr
	If Form3.Produit.value = "" then ErMs=ErMs+"   Produit"& vbcr
	If Form3.No_Serie.value = "" then ErMs=ErMs+"   No. de serie"& vbcr
	If Form3.Cause.value = "" then ErMs=ErMs+"   Cause"& vbcr
	if erms <> "" then
		msgbox "Les champs ci-dessous sont obligatoires, vous devez les renseigner avec des donnees valides." & vbcr & vbcr & ErMs ,vbexclamation,"Attention"
	else 
		form3.bt3a.click
	end if
end sub

function VerEmail(EMN)
	VerEmail=false
	emn=trim(emn)
	i=instr(EMN,"@")
	if i < 2 then exit function
	RP=trim(mid(emn,i+1))
	if len(RP) < 3 then exit function
	i= instr(RP,".")
	if i < 2 then exit function
	if right(rp,1)="." then  exit function
	VerEmail=true
end function