<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
bedrag = FormatNumber((0),2)
vanaf = date
datum = "" & DatePart("d",vanaf) & "-" & DatePart("m",vanaf) & "-" & DatePart("yyyy",vanaf)
status = Request.QueryString("status")
If status = "Controleer" Then
foutmelding = " --> "
Naam = request.QueryString("Naam")
if Naam = "" then
Cnaam = foutmelding
status = "Fout"
end if
adres = request.QueryString("adres")
if adres = "" then
Cadres = foutmelding
status = "Fout"
end if
postcode = request.QueryString("postcode")
if postcode = "" then
Cpostcode = foutmelding
status = "Fout"
end if
plaats = request.QueryString("plaats")
if plaats = "" then
Cplaats = foutmelding
status = "Fout"
end if
datum = request.QueryString("datum")
if datum = "" then
Cdatum = foutmelding
status = "Fout"
datum = date
end if
Product = request.QueryString("Product")
if Product = "" then
CProduct = foutmelding
status = "Fout"
end if
kenteken = request.QueryString("kenteken")
if kenteken = "" then
Ckenteken = foutmelding
status = "Fout"
end if
merk = request.QueryString("merk")
if merk = "" then
Cmerk = foutmelding
status = "Fout"
end if
chassis = request.QueryString("chassis")
if chassis = "" then
Cchassis = foutmelding
status = "Fout"
end if
wagennr = request.QueryString("wagennr")
on error resume next
bedrag = request.QueryString("bedrag")
if trim(bedrag) = "" or FormatNumber((bedrag),2) = FormatNumber((0),2) then
Cbedrag = foutmelding
status = "Fout"
bedrag = FormatNumber((0),2)
else
bedrag = FormatNumber((bedrag),2)
end if
reset = request.QueryString("reset")
end if
%>
Inkoopverklaring