Contattaci

Seguici su Facebook!

<% VAI = request.querystring("VAI") nome_ = request.querystring("nome_") cognome_ = request.querystring("cognome_") indirizzo_ = request.querystring("indirizzo_") cap_ = request.querystring("cap_") citta_ = request.querystring("citta_") provincia_ = request.querystring("provincia_") telefono_ = request.querystring("telefono_") email_ = request.querystring("email_") dal_ = request.querystring("dal_") al_ = request.querystring("al_") persone_ = request.querystring("persone_") tipologia_ = request.querystring("tipologia_") note_ = request.querystring("note_") if VAI="1" THEN Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.SenderName = "Form Via WEB" mySmartMail.SenderAddress = "Non_fare_reply_verso_questa_mail@nr.it" mySmartMail.Recipients.Add "info@sagittarius-casavacanza.it", "Sagittarius casa vacanza" mySmartMail.Subject = "Richiesta disponibilita' via WEB" mySmartMail.Body = "Richiesta disponibilita' via WEB" & vbcrlf _ & "=====================================================================" & vbcrlf _ & "Nome: " & nome_ & vbcrlf & "Cognome: " & cognome_ & vbcrlf & "Indirizzo: " & indirizzo_ & vbcrlf & "CAP: " & cap_ & vbcrlf _ & "Citta': " & citta_ & vbcrlf & "Provincia: " & provincia_ & vbcrlf & "Telefono: " & telefono_ &vbcrlf _ & "Email: " & email_ & vbcrlf & "Data di arrivo: " & dal_ & vbcrlf & "Data di partenza: " & al_ & vbcrlf _ & "Numero persone: " & persone_ & vbcrlf & "Tipologia appartamento: " & tipologia_ & vbcrlf & "Note: " & note_ & vbcrlf _ & "=====================================================================" mySmartMail.Organization = "Sagittarius" mySmartMail.XMailer = "FormMail via WEB ASPSMARTMAIL" mySmartMail.Priority = 1 mySmartMail.ReturnReceipt = false mySmartMail.ConfirmRead = true mySmartMail.ContentType = "text/plain" ' mySmartMail.ContentType = "text/html" ' mySmartMail.Charset = "us-ascii" ' mySmartMail.Charset = "ISO-8859-1" mySmartMail.Charset = "UTF-8" mySmartMail.Encoding = "base64" mySmartMail.SendMail if err.number <> 0 then response.write("Error n° " & err.number - vbobjecterror & " = " & err.description & "
") else Response.Redirect("/thanks.asp") end if set mySmartMail = nothing END if %>