<%@LANGUAGE = "VBScript" %>
<%
AutoAppel=request.querystring("AutoAppel")
if AutoAppel= "True" then
vdNom = Trim(request.form("txtNom"))
vdAdresse = Trim(request.Form("txtAdresse"))
vdVille = Trim(request.Form("txtVille"))
vdPays = Trim(request.Form("txtPays"))
vdTel = Trim(request.Form("txtTel"))
vdFax = Trim(request.Form("txtFax"))
vdEmail = Trim(request.Form("txtEmail"))
vdObjet = Trim(request.Form("txtObjet"))
vdDescription = replace(Trim(request.Form("txtDescription")),chr(13)," ")
if vdEmail= "" then
vlMessage="Ajouter mail"
end if
if vdNom= "" then
vlMessage="Ajouter Nom & Prénom"
end if
'response.Write(vlMessage)
if vlMessage="" then
Set ObjFs = CreateObject("Scripting.FileSystemObject")
Set myfile = ObjFs.GetFile(Server.MapPath("ModeleContact.htm"))
Set FileTrait = myfile.OpenAsTextStream(1, -2)
StrContenu = FileTrait.ReadAll
StrContenu=Replace(StrContenu,"(Nom)",vdNom)
StrContenu=Replace(StrContenu,"(Adresse)",vdAdresse)
StrContenu=Replace(StrContenu,"(Ville)",vdVille)
StrContenu=Replace(StrContenu,"(Pays)",vdPays)
StrContenu=Replace(StrContenu,"(Tel)",vdTel)
StrContenu=Replace(StrContenu,"(Fax)",vdFax)
StrContenu=Replace(StrContenu,"(Mail)",vdEmail)
StrContenu=Replace(StrContenu,"(Objet)",vdObjet)
StrContenu=Replace(StrContenu,"(Description)",vdDescription)
'response.Write(StrContenu)
Set ObjFs = Nothing
Set myfile = Nothing
Set FileTrait = Nothing
'envoie du mail au client
Set oMail = Server.CreateObject("ASPXP.Mail")
oMail.Timeout = 30
oMail.Host = "mail.topnet.tn"
oMail.Port = 25
oMail.FromName = trim(lcase(vdNom))
oMail.FromAddress = trim(lcase(vdEmail))
oMail.ToList.Add "info@sogefoires.com.tn"
oMail.CCList.Add vdEmail
oMail.Subject ="SIB 2006 : Page Contact"
MailBody = StrContenu
MailBody = MailBody & LFCR
oMail.HTMLBody = MailBody
oMail.Importance = 2 ' Haute priorité
If (oMail.Send <> 0) then
Response.Write oMail.ErrorMessage
else
response.Redirect("ConfirmationContact.html")
End If
Set oMail = Nothing
end if
end if
%>
Salon de l'Informatique et de la Bureautique contact
