in asp:
Codice PHP:
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim nome,oggetto,email,telefono,messaggio,data,ip
Dim testo
nome=request.form("nome")
telefono= request.Form("telefono")
email = request.Form("email")
messaggio = request.Form("messaggio")
oggetto = "E-mail dal sito"
testo = testo & "[b]E-mail inviata tramite il form dal sito. [/b]
</p>"
testo = testo & "-----------------------------------------------------------------
"
testo = testo & "[b]Nome: [/b] " & nome & "
"
testo = testo & "[b]La loro e-mail: [/b] " & email &"
"
testo = testo & "[b]Telefono: [/b] " & telefono & "
"
testo = testo & "[b]Messaggio - Note: [/b]
" & messaggio & "
</p>"
testo = testo & "Fine Testo ------------------------------------------------------
"
ip = Request.ServerVariables("REMOTE_ADDR")
testo = testo & "
L'indirizzo IP di chi ha inviato questo messaggio è: " &ip
Dim MiaMail
Set MiaMail = Server.CreateObject ("CDO.Message")
MiaMail.To = "info@***.it"
MiaMail.from = Request.Form ("email")
MiaMail.Subject = "Mail richiesta informazioni dal sito"
MiaMail.HTMLBody = testo
MiaMail.Fields.Update() %>
<%
MiaMail.Send()
Set MiaMail = Nothing
%>