<% if request.querystring("offset") = "1" then txtNaam = replace(request.form("txtNaam"), "'", "''") txtVoornaam = replace(request.form("txtVoornaam"), "'", "''") txtAdres = replace(request.form("txtAdres"), "'", "''") txtPostcode = replace(request.form("txtPostcode"), "'", "''") txtGemeente = replace(request.form("txtGemeente"), "'", "''") txtTelefoon = replace(request.form("txtTelefoon"), "'", "''") txtGSM = replace(request.form("txtGSM"), "'", "''") txtNaamHandelszaak = replace(request.form("txtNaamHandelszaak"), "'", "''") txtAdresHandelszaak = replace(request.form("txtAdresHandelszaak"), "'", "''") txtPostcodeHandelszaak = replace(request.form("txtPostcodeHandelszaak"), "'", "''") txtGemeenteHandelszaak = replace(request.form("txtGemeenteHandelszaak"), "'", "''") txtTelefoonHandelszaak = replace(request.form("txtTelefoonHandelszaak"), "'", "''") txtFaxHandelszaak = replace(request.form("txtFaxHandelszaak"), "'", "''") txtWebsiteHandelszaak = replace(request.form("txtWebsiteHandelszaak"), "'", "''") txtEmailadresHandelszaak = replace(request.form("txtEmailadresHandelszaak"), "'", "''") txtOmschrijving = replace(request.form("txtOmschrijving"), "'", "''") txtAndere = replace(request.form("txtAndere"), "'", "''") txtMaVoorVan = replace(request.form("txtMaVoorVan"), "'", "''") txtMaVoorTot = replace(request.form("txtMaVoorTot"), "'", "''") txtMaNaVan = replace(request.form("txtMaNaVan"), "'", "''") txtMaNaTot = replace(request.form("txtMaNaTot"), "'", "''") txtDiVoorVan = replace(request.form("txtDiVoorVan"), "'", "''") txtDiVoorTot = replace(request.form("txtDiVoorTot"), "'", "''") txtDiNaVan = replace(request.form("txtDiNaVan"), "'", "''") txtDiNaTot = replace(request.form("txtDiNaTot"), "'", "''") txtWoeVoorVan = replace(request.form("txtWoeVoorVan"), "'", "''") txtWoeVoorTot = replace(request.form("txtWoeVoorTot"), "'", "''") txtWoeNaVan = replace(request.form("txtWoeNaVan"), "'", "''") txtWoeNaTot = replace(request.form("txtWoeNaTot"), "'", "''") txtDoVoorVan = replace(request.form("txtDoVoorVan"), "'", "''") txtDoVoorTot = replace(request.form("txtDoVoorTot"), "'", "''") txtDoNaVan = replace(request.form("txtDoNaVan"), "'", "''") txtDoNaTot = replace(request.form("txtDoNaTot"), "'", "''") txtVrijVoorVan = replace(request.form("txtVrijVoorVan"), "'", "''") txtVrijVoorTot = replace(request.form("txtVrijVoorTot"), "'", "''") txtVrijNaVan = replace(request.form("txtVrijNaVan"), "'", "''") txtVrijNaTot = replace(request.form("txtVrijNaTot"), "'", "''") txtZaVoorVan = replace(request.form("txtZaVoorVan"), "'", "''") txtZaVoorTot = replace(request.form("txtZaVoorTot"), "'", "''") txtZaNaVan = replace(request.form("txtZaNaVan"), "'", "''") txtZaNaTot = replace(request.form("txtZaNaTot"), "'", "''") txtZoVoorVan = replace(request.form("txtZoVoorVan"), "'", "''") txtZoVoorTot = replace(request.form("txtZoVoorTot"), "'", "''") txtZoNaVan = replace(request.form("txtZoNaVan"), "'", "''") txtZoNaTot = replace(request.form("txtZoNaTot"), "'", "''") Set RegularExpressionObject = New RegExp errorGevonden = false if txtNaam = "" then strNaam = "gelieve een naam op te geven" errorGevonden = true end if if txtVoornaam = "" then strVoornaam = "gelieve een voornaam op te geven" errorGevonden = true end if if txtNaamHandelszaak = "" then strNaamHandelszaak = "gelieve een naam voor de handelszaak op te geven" errorGevonden = true end if if txtAdresHandelszaak = "" then strAdresHandelszaak = "gelieve een adres voor de handelszaak op te geven" errorGevonden = true end if if txtPostcodeHandelszaak = "" then strPostcodeHandelszaak = "gelieve een postcode voor de handelszaak op te geven" errorGevonden = true end if if txtGemeenteHandelszaak = "" then strGemeenteHandelszaak = "gelieve een gemeente voor de handelszaak op te geven" errorGevonden = true end if if txtOmschrijving = "" then strOmschrijving = "gelieve een kleine omschrijving van uw handelszaak te geven" errorGevonden = true end if if errorGevonden = false then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "relay.ix.combell-ops.net" Mail.From = txtEmailadresHandelszaak Mail.AddAddress "handelszaak@kortrijk-shopt.be", "" Mail.Subject = "Kortrijk-shopt.be handelszaak: "&txtNaamHandelszaak bericht = "" bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtAdres <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtPostcode <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtGemeente <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtTelefoon <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtGSM <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtAdres <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtPostcode <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtGemeente <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtTelefoonHandelszaak <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtFaxHandelszaak <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtWebsiteHandelszaak <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtEmailadresHandelszaak <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf bericht = bericht & "" & vbCrlf if txtAndere <> "" then bericht = bericht & "" else bericht = bericht & "" end if bericht = bericht & "" & vbCrlf bericht = bericht & "
Volgende handelszaak werd gepost via de website:
 
Persoonlijke gegevens:
 
Naam:"&txtNaam&"
Voornaam:"&txtVoornaam&"
 
Adres:"&txtAdres&"/
Postcode:"&txtPostcode&"/
Gemeente:"&txtGemeente&"/
 
Telefoon:"&txtTelefoon&"/
GSM:"&txtGSM&"/
 
Handelszaak:
 
Naam:"&txtNaamHandelszaak&"
 
Adres:"&txtAdresHandelszaak&"/
Postcode:"&txtPostcodeHandelszaak&"/
Gemeente:"&txtGemeenteHandelszaak&"/
 
Telefoon:"&txtTelefoonHandelszaak&"/
Fax:"&txtFaxHandelszaak&"/
Website:"&txtWebsiteHandelszaak&"/
Emailadres:"&txtEmailadresHandelszaak&"/
 
Openingsuren:
maandag:"&txtMaVoorVan&" -" &txtMaVoorTot&" | "&txtMaNaVan&" - "&txtMaNatot&"
dinsdag:"&txtDiVoorVan&" -" &txtDiVoorTot&" | "&txtDiNaVan&" - "&txtDiNatot&"
woensdag:"&txtWoeVoorVan&" -" &txtWoeVoorTot&" | "&txtWoeNaVan&" - "&txtWoeNatot&"
donderdag:"&txtDoVoorVan&" -" &txtDoVoorTot&" | "&txtDoNaVan&" - "&txtDoNatot&"
vrijdag:"&txtVrijVoorVan&" -" &txtVrijVoorTot&" | "&txtVrijNaVan&" - "&txtVrijNatot&"
zaterdag:"&txtZaVoorVan&" -" &txtZaVoorTot&" | "&txtZaNaVan&" - "&txtZaNatot&"
zondag:"&txtZoVoorVan&" -" &txtZoVoorTot&" | "&txtZoNaVan&" - "&txtZoNatot&"
 
Omschrijving:"&replace(txtOmschrijving, vbCrlf, "
")&"
 
Andere:"&replace(txtAndere, vbCrlf, "
")&"
/
" & vbCrlf Mail.Body = bericht Mail.IsHTML = True Mail.Send Set Mail = nothing end if end if %> Uw handelszaak Kortrijk-shopt.be