<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if request("invia")="true" then
body="Richiesta informazioni: il Sig. " & request("nome") & " " & request("cognome") & ", recapito telefonico:" & request("telefono") & " ha lasciato il seguente messaggio: " & request("messaggio")
On error resume next
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDO.message")
'if err.number <> 0 then response.write err.description & "numero " & err.number
objCDOMail.From = "jeanpaulcorp@omniway.sm "
objCDOMail.To="jeanpaulcorp@omniway.sm "
objCDOMail.Subject= "Sito JEAN-PAUL.IT. -Richiesta informazioni "
objCDOMail.htmlBody=body
objCDOMail.Send
'if err.number <> 0 then response.write err.description & "numero " & err.number
if Err.Number<>0 then
messaggio= "Si sono verificati problemi durante l'invio di posta al server.Provate pił tardi "
else
messaggio= "Email inviata correttamente al server di posta. "
end if
end if
%>
***POSITANO*** abbigliamento mare ed accessori by Jean Paul Corp.
<%response.write messaggio%>
Compilate
il form sottostante per la richiesta informazioni
lasciando il vostro numero di telefono o la
vostra email. Verrete contattati al pił presto
Postitanto by Jean Paul Corp. s.a.
All rights reserved
