|
Area Suggerimenti
|
<%
if Request ("invia") <> "" then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "pop.softvision.it"
Mail.From = Request("email")
Mail.AddAddress "info@ricevitorie.it"
Mail.Subject = "Suggerimento"
Mail.Body = Request("messaggio")
Mail.FromName = Request ("nome") & " " & Request("cognome")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Errore nell'invio del messaggio. Controllare l'indirizzo e-mail"
else
Response.Write "Grazie per averci inviato i tuoi suggerimenti. "
Response.Write "Li terremo in debita considerazione per apportare migliorie al sito Ricevitorie.it "
Response.Write "
Invia un'altro suggerimento o torna alla pagina iniziale"
End If
else
Response.Write "Avete idee o suggerimenti che ritenete utili per migliorare questo sito ed i servizi offerti? "_
& "Scriveteci ! Grazie a voi "_
& "potremo realizzare un sito sempre pił adatto alle vostre esigenze. "
end if
%>
|
|
|