Nieuw lid |
|
ik zal dat eens proberen, thnx. Het gebeurt al via update
SQL = "UPDATE OpleList SET "
for each field in Request.Form
if not left(field,4) = "Comp" and not field="Ople_Start" and not field="Ople_datum" then
SQL=SQL&field&"='" & ReplaceBody(request.form(field)) & "', "
elseif field="Ople_Start" and request.form("Ople_Start")<>"" then
SQL=SQL&field&"='" & DateFormat(request.form(field)) & "', "
elseif field="Ople_Start" and request.form("Ople_Start")="" then
SQL=SQL&field&"='" & DateFormat("01-01-2001") & "', "
end if
Next
SQL=left(SQL, len(SQL)-2)
SQL=SQL&" WHERE Ople_ID="&cstr(opid)
ConnBasis.Execute(SQL)
SQL = "UPDATE OpleList SET " for each field in Request .Form if not left(field,4) = "Comp" and not field="Ople_Start" and not field="Ople_datum" then SQL=SQL&field&"='" & ReplaceBody(request.form(field)) & "', " elseif field="Ople_Start" and request.form("Ople_Start")<>"" then SQL=SQL&field&"='" & DateFormat(request.form(field)) & "', " elseif field="Ople_Start" and request.form("Ople_Start")="" then SQL=SQL&field&"='" & DateFormat("01-01-2001") & "', " SQL=left(SQL, len(SQL)-2) SQL=SQL&" WHERE Ople_ID="&cstr(opid) ConnBasis.Execute(SQL)
Is er iemand die weet hoe ik dit kan oplossen:?: |