| Home |
|
Decant'Air
Belgische Champagne Daskalides Newsletter |
| In de kijker |
|
|
|
Laat ons je contactgegevens na en wij brengen je geregeld op de hoogte via onze
Nieuwsbrief
nieuwsbrief archief |
|
|
|
vrouw, door Lieve Blancquaert en Betty Mellaerts
<% Dim mySmartMail Dim sMessageText 'On error resume next Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") ' Mail Server ' *********** mySmartMail.Server = "213.131.179.80" ' From ' **** Dim SenderName Dim SenderAddress SenderName = request("Name") SenderAddress = request("Email") If SenderName <> " " then mySmartMail.SenderName = SenderName Else mySmartMail.SenderName = "Unknown" End If If SenderAddress <> "" then mySmartMail.SenderAddress = SenderAddress Else mySmartMail.SenderAddress = "info@ingridvanrenterghem.be" End If ' To ' ** mySmartMail.Recipients.Add "me@xof.be", "ingrid@ingridvanrenterghem.be" ' Message ' ******* mySmartMail.Subject = "Bevestiging Reservatie Lieve Blancquaert" dim voornaam aanspreking = request("voornaam") sMessageText = "Volgende persoon reserveerde een boek van Johan Verminnen:" & vbCrLf &vbCrLf sMessageText = sMessageText & "Voornaam: " & request("voornaam") & vbCrLf &vbCrLf sMessageText = sMessageText & "Achternaam: " & request("achternaam") & vbCrLf &vbCrLf sMessageText = sMessageText & "Bedrijf: " & request("bedrijf") & vbCrLf &vbCrLf sMessageText = sMessageText & "E-mail adres: " & request("email") & vbCrLf &vbCrLf sMessageText = sMessageText & "Adres: " & request("adres") & vbCrLf &vbCrLf sMessageText = sMessageText & "Stad: " & request("stad") & vbCrLf &vbCrLf sMessageText = sMessageText & "Postcode: " & request("postcode") & vbCrLf &vbCrLf sMessageText = sMessageText & "Land: " & request("land") & vbCrLf &vbCrLf sMessageText = sMessageText & "Telefoonnummer: " & request("telefoon") & vbCrLf &vbCrLf mySmartMail.Body = cstr(sMessageText) ' Send the message ' **************** mySmartMail.SendMail If Err <> 0 Then ' error occurred strErr = Err.Description else response.write("Beste ") response.write(request("voornaam")) response.write(" ") response.write("Uw reservatie werd doorgestuurd. U zal eerstdaags gecontacteerd worden om de leverdatum van uw boek te bevestigen. Vergeet niet dat Lieve persoonlijk komt signeren op 8 mei tussen 15 en 17u!") end if set mySmartMail = nothing %> |