Un semplice form di contatto con ASP e supporto UTF-8
3 votes, 4.33 avg. rating (88% score)

In questo breve articolo vedremo rapidamente come creare un form di contatto con HTML e ASP per il proprio sito web.

Eccoci qua, per prima cosa creiamo la nostra form di contatto HTML dove l’utente inserirà tutti i dati che andremo a ricevere via mail:

<!DOCTYPE html><html><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head>
<body><form action="perform_contact.asp" method="post" name="contact">
<div><strong> Name</strong><input type="text" name="name" id="name" /></div>
<div><strong>Country</strong><input type="text" name="country" id="country" /></div>
<div><strong> Email</strong><input type="text" name="email" id="email" /></div>
<div><strong> Phone</strong><input type="text" name="phone" id="phone" /></div>
<div><strong>Request</strong><textarea name="req" id="req" cols="45" rows="5"></textarea></div>
<div><input type="submit" name="submit" id="submit" value=": SUBMIT :" align="middle" /></div>
<input name="referrer" id="referrer" type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER") %>">
</form>
</body></html>

 

Questa sarà la nostra pagina della form, l’utente compilerà i campi e tutto verrà inviato alla pagina di invio così composta:

<%
'imposto l'utf-8 per i processi asp
Response.CodePage = 65001
'recupero i campi dalla form eeseguo i controlli sui campi testo
nome = Request.Form("name")
country = Request.Form("country")
email = Request.Form("email")
phone = Request.Form("phone")
req = replace(Request.Form("req"), VBCRLF, "<br>")
referrer = Request.Form("referrer")
'INVIO MAIL DI CONFERMA TRAMITE CDOSYS
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
iMsg.BodyPart.Charset = "utf-8"
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "miamail@miosito.com"
destinatario = "destinatario@miosito.com;"
oggetto = "Richesta di Contatto"
'creare una variabile che contenga l'html da inviare per email
messaggio = "<br>Richesta di contatto da: "&nome&"<br>Paese: "&country&"<br>Telefono: "&phone&"<br>Email: "&email&"<br>Referrer: "&referrer&"<br><br>Request: "&req
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
Response.Write("<h1 align='center'>Request has been sent!</h1><h2 align='center'>Thank you</h2>")
%>

Non so se avete notato il campo nascosto referrer , in questo modo riesco a segnarmi l’URL della pagina precedente alla nostra pagina della form, utilissimo per sapere come l’utente arriva sul nostro sito.

Con 2 semplici pagine potete creare il vostro form di contatto e personalizzarlo a vostro piacimento.

Print Friendly

Potrebbe interessarti anche

Zemanta