<% Response.CodePage = 65001 Response.CharSet = "utf-8" %> Fim Mondino - La sartoria delle imbottiture
<% if (request.form("sended")= "ok") then Subject = "Richiesta messaggio da pagina contatti FIM-MONDINO" nom = Request.Form("nom") societe = Request.Form("societe") adresse = Request.Form("adresse") telephone = Request.Form("telephone") societe = Request.Form("societe") email = Request.Form("email") message = server.HTMLEncode(Request.Form("message")) ' Email Body msg = "" msg = msg & "

" & message & "

" msg = msg & "

 

" msg = msg & "

________________________________

" msg = msg & "

Nome: " & nom & "

" msg = msg & "

Azienda: " & societe & "

" msg = msg & "

Email: " & email & "

" msg = msg & "

Indirizzo: " & adresse & "

" msg = msg & "

Telefono: " & telephone & "

" mittente="no" if (Request.Form("nom")<>"") then mittente="ok" else mittente="no" end if if (mittente="ok" AND instr(msg, "http")=0) then Set ObjSendMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail.fim-mondino.it" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "noreply@fim-mondino.it" .Item(cdoSendPassword) = "n(933V~6V8" .Update End With Set ObjSendMail.Configuration = iConf 'ObjSendMail.To = "info@fim-mondino.it" ObjSendMail.To = "gianni.vascellari@gmail.com" ObjSendMail.Subject = "FIM-MONDINO - Messaggio dal sito" ObjSendMail.From = nom & " " ObjSendMail.ReplyTo = nom & " <" & email & ">" 'ObjSendMail.Bcc = "gianni.vascellari@gmail.com" ObjSendMail.HTMLBody = msg ObjSendMail.Send %>

Messaggio inviato, verrete contattati a breve.

<% Set ObjSendMail = Nothing Set iConf = Nothing Set Flds = Nothing end if %> <% else %>
<% end if %>

 

 

Via Europa, 21 bis • 12026 Piasco (CN) • ITALY

P.IVA 03595320049

+39 0175 270125

info@fim-mondino.it

 

 

CONSULTA IL CATALOGO