<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit dim objMessage, sender, correct, noNaam, noEmail, message dim tmp_Bedrijf, tmp_Naam, tmp_Functie, tmp_Straat, tmp_Postnr, tmp_Gemeente, tmp_Telefoon, tmp_Email, tmp_PermSec, tmp_TijdSec, tmp_ValParking, tmp_VipSec, tmp_DirChauf, tmp_Hostessen, tmp_OnthPers, tmp_Andere, tmp_txt_andere, tmp_OpmaakDraai, tmp_PersSecCoach, tmp_PsychConflict, tmp_MistGuest, tmp_Andere2, tmp_txt_Andere2, tmp_Vragen '------------------------------------------------------------------------------------- ' Test éérste doorgang van het formulier ' again = 1 --> minstens tweede doorgang (controle + verzending formulier) '------------------------------------------------------------------------------------- if request.Form("Again") = "1" then if request.Form("fld_Naam") = "" then noNaam = "1" else noNaam = "0" end if if request.Form("fld_Email") = "" then noEmail = "1" else noEmail = "0" end if Function errEmail if (Request("fld_Email")<> "") Then Dim debut, fin, Email, parties, end_email Email=Request.Form("fld_Email") debut=Left(Email,1) fin=Right(Email,1) parties=Split(Email,"@",-1) if(UBound(parties) = 1) Then end_email=parties(1) End if if (instr(Email,"@")<>0) AND (instr(Email,".")<>0) AND (debut <> "@") AND (debut <> ".") AND (fin <> "@") AND (fin <> ".") AND ((UBound(parties) > 0)AND(UBound(parties) = 1)) AND (instr(end_email,".")<>0) Then errEmail = "0" Else errEmail = "1" End if End if End Function If noNaam = "0" and noEmail = "0" and errEmail = "0" then correct = "1" else correct = "0" end if '------------------------------------------------------------------------------------- ' Test formulier correct ' correct = 0 --> fouten --> terug naar formulier met foutberichten ' correct = 1 --> correct --> verzenden van formulier + OK-formulier '------------------------------------------------------------------------------------- If correct = "1" then message = "Formulier website Best Security Service - Nederlands" & Chr(10) & Chr(10) message = message & "Bedrijf " & request.Form("fld_Bedrijf") & Chr(10) message = message & "Naam " & request.Form("fld_Naam") & Chr(10) message = message & "Straat " & request.Form("fld_Straat") & Chr(10) message = message & "Gemeente " & request.Form("fld_Postnr") & " " & request.Form("fld_Gemeente") & Chr(10) message = message & "Telefoon " & request.Form("fld_Telefoon") & Chr(10) message = message & "Email " & request.Form("fld_Email") & Chr(10) & Chr(10) message = message & "Ik wens meer informatie over volgende diensten :" & Chr(10) if request.Form("chk_PermSec") = "true" then message = message & " Permanente Security" & Chr(10) end if if request.Form("chk_TijdSec") = "true" then message = message & " Tijdelijke Security" & Chr(10) end if if request.Form("chk_ValParking") = "true" then message = message & " Valet Parking" & Chr(10) end if if request.Form("chk_DirChauf") = "true" then message = message & " Directie Chauffeurs" & Chr(10) end if if request.Form("chk_Hostessen") = "true" then message = message & " Hostessen / Hosts" & Chr(10) end if if request.Form("chk_OnthPers") = "true" then message = message & " Onthaal Personeel" & Chr(10) end if if request.Form("chk_Andere") = "true" then message = message & " Andere" & Chr(10) end if if request.Form("txt_Andere") <> "" then message = message & " " & request.Form("txt_Andere") & Chr(10) end if message = message & Chr(10) message = message & "Ik wens meer informatie over volgende trainingen en logistieke ondersteuningen :" & Chr(10) if request.Form("chk_OpmaakDraai") = "true" then message = message & " Opmaak veiligheidsdraaiboek" & Chr(10) end if if request.Form("chk_PersSecCoach") = "true" then message = message & " Personal Security Coaching" & Chr(10) end if if request.Form("chk_PsychConfict") = "true" then message = message & " Psychologische Conflicthantering" & Chr(10) end if if request.Form("chk_MistGuest") = "true" then message = message & " Mistery Guest" & Chr(10) end if if request.Form("chk_Andere2") = "true" then message = message & " Andere" & Chr(10) end if if request.Form("txt_Andere2") <> "" then message = message & " " & request.Form("txt_Andere2") & Chr(10) end if message = message & Chr(10) message = message & request.Form("txt_Vragen") sender = request.Form("fld_Email") set objMessage = server.CreateObject("CDO.Message") objMessage.Sender = sender objMessage.To = "willy.bes@skynet.be" objMessage.BCC = "Mcommunications@telenet.be" objMessage.Subject = "Email From Website Best Security Service" objMessage.TextBody = Message objMessage.Send Set objMessage=Nothing response.Redirect("contact_ok.asp") '---------------- einde test formulier correct -------------------------------- end if tmp_Bedrijf = request.form("fld_Bedrijf") tmp_Naam = request.form("fld_Naam") tmp_Functie = request.form("fld_Functie") tmp_Straat = request.form("fld_Straat") tmp_Postnr = request.form("fld_Postnr") tmp_Gemeente = request.form("fld_Gemeente") tmp_Telefoon = request.form("fld_Telefoon") tmp_Email = request.form("fld_Email") tmp_PermSec = request.form("chk_PermSec") tmp_TijdSec = request.form("chk_TijdSec") tmp_ValParking = request.form("chk_ValParking") tmp_VipSec = request.form("chk_VipSec") tmp_DirChauf = request.form("chk_DirChauf") tmp_Hostessen = request.form("chk_Hostessen") tmp_OnthPers = request.form("chk_OnthPers") tmp_Andere = request.form("chk_Andere") tmp_txt_Andere = request.form("txt_Andere") tmp_OpmaakDraai = request.form("chk_OpmaakDraai") tmp_PersSecCoach = request.form("chk_PersSecCoach") tmp_PsychConflict = request.form("chk_PsychConfict") tmp_MistGuest = request.form("chk_MistGuest") tmp_Andere2 = request.form("chk_Andere2") tmp_txt_Andere2 = request.form("txt_Andere2") tmp_Vragen = request.form("txt_Vragen") ' response.Write(tmp_PermSec) ' response.End() '---------------- einde test éérste doorgang van formulier --------------------- end if %> Best Security Services
 
   
     
   
  About Us
   
  Bewaking
   
  Veiligheid
   
  Training
   
  Referenties
   
  Contact
   
  Best Event Services
   
 
   
 
 
   
 

Wenst u meer informatie over de diensten van Best Security Service, neem dan contact ofwel

  • telefonisch : 016 77 14 96
  • per brief naar : Industrieweg 5 - 3001 Heverlee
  • per e-mail : vul het formulier hieronder in of mail naar willy.bes@skynet.be.
<% if noNaam = "1" then %> <% End If %> <% if errEmail = "1" then %> <% End If %> <% if noEmail = "1" then %> <% End If %>
  Gelieve uw naam in te vullen
  Het ingevulde e-mail-adres is foutief
  Gelieve uw e-mail-adres in te vullen
 
(°) Verplicht veld
Bedrijf
Naam (°)
Functie
Straat
Gemeente
Telefoon
E-mail (°)
   
Ik wens meer informatie over volgende diensten :
  > Permanente Security
  > Tijdelijke Security
  > Valet Parking
  > VIP Security
  > Directie Chauffeurs
  > Hostessen / Host
  > Onthaal Personeel
  > Andere
 
   
Ik wens meer informatie over volgende trainingen & logistieke ondersteuning :
  > Opmaak veiligheidsdraaiboek
  > Personal Security Coaching
  > Psychologische conflicthantering
  > Mistery Guest
  > Andere
 
   
Hebt u bijkomende vragen ?