%@ 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 %>
| Startpagina | Onze vloot | Diensten | Info | Foto's | Contact | |||||||
|
|
|
|
|