<%@ Language = VBScript %> <%Email = request.form("Email") 'Send an email to the bugger to confirm the email address if len(Email) <> 0 then 'Time to open the database set con = server.createObject("ADODB.Connection") con.open(strServerConnection) 'Check whether email exists sqlString = "Select Email from Newsletter where Email = '"&Email&"'" set rs = con.execute(sqlString) 'Return error if email already exists while not rs.eof if rs("Email") = Email then output = "Dit email adres bestaat reeds in onze database." blnError = true end if rs.moveNext wend if not blnError then sqlString = "Insert into Newsletter (Email, Status) values ('"&Email&"', 0)" con.execute(sqlString) con.close 'Compose email message here Message = "CompanyName" &vbCrLf &vbCrLf Message = "Dit een automatisch bericht om te bevestigen dat U geaboneerd bent op de nieuwsbrief van "&DomainName&"." &vbCrLf &vbCrLf Message = Message & "Klik op de volgende link om uw inschrijving te bevestigen:" & vbCrLf & "http://"&DomainName&"/nieuwsbrief/newsletterConfirmation.asp?email="&Email Message = Message & vbCrLf & vbCrLf & "Indien U zichzelf niet aboneerde op onze nieuwsbrief, gelieve dan geen gevolg te geven aan dit bericht." &vbCrLf Signature = vbCrLf & "== Dit is een automatisch bericht. Gelieve niet op deze email te antwoorden. ==" & vbCrLf Signature = vbCrLf & "== Voor vragen of inlichtingen kan U ons steeds mailen of bellen. ==" & vbCrLf & vbCrLf Signature = Signature & CompanyName & vbCrLf & vbCrLf Signature = Signature & "http://"&DomainName & vbCrLf & vbCrLf Signature = Signature & CompanyMail & vbCrLf set newMailObj = server.createObject("CDONTS.NewMail") newMailObj.BodyFormat = 1 newMailObj.MailFormat = 0 newMailObj.from = "no-reply@"&replace(DomainName, "www.", "") newMailObj.to = Email newMailObj.subject = CompanyName & " Uw inschrijving werd verwerkt." newMailObj.body = Message & Signature newMailObj.send set newMailObj = nothing output = "Uw inschrijving werd verwerkt.

Gelieve uw mailbox na te kijken om uw inschrijving te bevestigen." end if end if %> Active sailing, Verhuur van zeiljachten


Activesailing.be

E mail onze link naar een vriend » 

Sla ons op bij je favorieten »

Teken hier ons gastenboek »
Startpagina  Onze vloot Diensten Info Foto's Contact  

 


Nieuwsbrief Activesailing.be



Inschrijven op onze nieuwsbrief ?


De elektronische nieuwsbrief van <%=CompanyName%> verschijnt bij evenementen & promoties. Eventuele extra edities zijn mogelijk bij speciale gebeurtenissen.

Andere aankondigingen van nieuwe publicaties en of promoties kunnen ook via deze weg naar U toegestuurd worden.

Wenst u de Activesailing nieuwsbrief te ontvangen? Schrijf u dan hier in.

<%=output%>

Email: 



Wenst U onze nieuwsbrief en promoties niet langer te ontvangen, dan kan uw e-mail adres verwijderen uit onze database door hier te klikken.


*Uw emailgegevens worden niet doorgespeeld aan derden.

Maak kennis met Activesailing.be


Activesailing verhuurt zeiljachten vanuit de jachthaven van Breskens te Nederland.

Wij verhuren onze jachten met of zonder schipper aan zeer scherpe prijzen.

Bij ons kan U terecht voor heerlijk te ontspannen, een avontuurlijke dag te beleven met uw vrienden of collega's, Incentives, team building en business sailing

Activesailing staat voor discretie, service, veiligheid en vakmanschap op het gebied van zeiljacht verhuring.

Wij zorgen dat U een dag beleefd zonder zorgen waar U en uw vrienden nog lang over zullen na praten.

Bekijk vlug wat wij U te bieden hebben...

 


 Contacteer ons op www.activesailing.be

Mobiel: +32 (0) 478 53 04 49
Email: contact formulier »
WWW: activesailing.be »

  Copyright © activesailing.be 2006 -   |  Privacybeleid  |  Top van de pagina  

Deze website maakt gebruik van de Flash speler v6.0 of hoger.
Klik om te Downloaden...
  Active sailing is een jong en dynamische verhuursbedrijf voor
zeil jachten en dit zowel in binnen als buitenland.
Active sailing is gevestigd te Antwerpen.

Onze vloot | Diensten | Info | Foto's | Contact |

 | Teller: 134898 |

Website ontwikkeling door Webpunt.be |
Deze website is te bekijken met een minimum scherm resolutie van 800 x 600 pixels.