<%
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
if request.form("email") <> "" then
nome=request.form("nome")
indirizzo=request.form("indirizzo")
societa=request.form("societa")
cap=request.form("cap")
citta=request.form("citta")
provincia=request.form("provincia")
stato=request.form("stato")
telefono=request.form("telefono")
fax=request.form("fax")
mittente=request.form("email")
messaggio=request.form("messaggio")
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
if CheckCAPTCHA(strCAPTCHA) = true then
corpoMail="Nome: " & nome &" "
if indirizzo<>"" then
corpoMail = corpoMail & "Indirizzo: " & indirizzo &" "
end if
if societa<>"" then
corpoMail = corpoMail & "Societą: " & societa &" "
end if
if cap<>"" then
corpoMail = corpoMail & "Cap: " & cap &" "
end if
if citta<>"" then
corpoMail = corpoMail & "Cittą: " & citta &" "
end if
if provincia<>"" then
corpoMail = corpoMail & "Provincia: " & provincia &" "
end if
if stato<>"" then
corpoMail = corpoMail & "Stato: " & stato &" "
end if
if telefono<>"" then
corpoMail = corpoMail & "Telefono: " & telefono &" "
end if
if fax<>"" then
corpoMail = corpoMail & "Fax: " & fax &" "
end if
corpoMail = corpoMail & "Email: " & mittente &" "
corpoMail = corpoMail & " Messaggio: " & messaggio &" "
destinatari="info@pollywood.it"
destinatariNascosti="giampaolo.rebuzzi@gmail.com,andrea.allegretti@pf-design.it"
inviaEmail mittente,destinatari,destinatariNascosti,"Nuovo messaggio dal sito",corpoMail
'inviaEmail mittente,"andrea.allegretti@pf-design.it","","Nuovo messaggio da 7Stanze",corpoMail
response.redirect "contatti.htm"
else
errore="errato"
end if
end if
%>
7 stanze in cerca d'autore
