Feriendomizile mit Flair

VivaAmbiente

Ferienhaus, Ferienwohnung, Villa, Finca & Landhotel bzw. Fincahotel auf den Kanarischen Inseln und Balearen

Newsletter & Empfehlung

Nachname *
Vorname *
E-Mail *

Empfehlung

Sie möchten diese Seite an Freunde und Bekannte weiterempfehlen ? Einfach auf den nachfolgenden Link klicken.
>>>Unsere Seite weiterempfehlen<<<

<% varSent = request.Form("nname") if varSent = "" then %>

N E W S L E T T E R   B E S T E L L E N 

Möchten Sie gerne über alle Neuigkeiten, spezielle Offerten und andere für Sie interessante Informationen von uns benachrichtigt werden ?
Bitte tragen Sie sich dafür in unseren Newsletter ein.


Vorname
 
Nachname
 
E-Mail
 
   Newsletter eintragen
 
   Newsletter abbestellen
 


E M P F E H L U N G 

Sie möchten diese Seite an Freunde und Bekannte weiterempfehlen ? Einfach auf den nachfolgenden Link klicken.



<% else Dim strFrom, strTo, strSubject, strBody Dim objMessage, objConfig ' Absender strFrom = "info@vivaambiente.de" ' Empfaenger strTo = request.form("email") strBcc = "info@vivaambiente.de" ' Betreff strSubject = "Ihre Newsletter-Anmeldung bei vivaambiente.de" ' Emailtext strBody = "Vielen Dank für Ihre Newsletter-Anmeldung!" & vbCrLf strBody = strBody & "Mit freundlichen Grüssen" & vbCrLf & "VivaAmbiente" & vbCrLf & vbCrLf strbody = strbody & "Sie haben folgende Daten eingegeben:" & vbcrlf & vbcrlf strbody = strbody & "Name: " & request.form("option") & " " & request.form("vorname") & " " & request.form("nname") & vbCrLf & "Email: " & request.form("email") & vbcrlf ' Message und Configuration Objekte instanzieren Set objMessage = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.Configuration") ' Konfigurieren: ' Nachricht an externen Mailserver verschicken objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort ' Emailserver: mail.domain.com objConfig.Fields(cdoSMTPServer) = "auth.smtp.kundenserver.de" ' Authentifizierung am Emailserver: Keine objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic 'Accountname objConfig.Fields(cdoSendUserName) = "info@vivaambiente.de" 'Passwort objConfig.Fields(cdoSendPassword) = "cbscbs1" ' Configuration updaten objConfig.Fields.Update ' CDO-Nachricht erstellen: ' Konfiguration an Nachricht binden Set objMessage.Configuration = objConfig objMessage.To = strTo ' Empfaenger objMessage.Bcc = strBcc objMessage.From = strFrom ' Absender objMessage.Subject = strSubject ' Betreff ' Versender der Nachricht: objMessage.TextBody = strBody ' Nachricht ' Error Handling waehrend dem Versenden: On Error Resume Next ' CDO-Nachricht senden objMessage.Send set objMessage = nothing If Err.Number = 0 Then Response.Write("Vielen Dank für Ihre Newsletter-Anmeldung!" & vbCrLf & "Mit freundlichen Grüssen" & vbCrLf & "VivaAmbiente") Else Response.Write("Während des Versendens ist " & _ "ein Fehler (" & err.number & ")aufgetreten! Bitte wiederholen Sie den " & _ "den Vorgang!") Err.Number = 0 End If On Error Goto 0 end if %>