| |
<%call bovenkant(400,480," ",0,"center",0)%>
<%
If resultaat<>"" Then
'Alleen foutmelding box neerzetten als er een resultaat is
%>
Mededeling
<%=resultaat%>
<%
End If
%>
<%
'Database connectie openen
call openenA
If Request.Form("wijzigen")<>"" OR Request.Form("toevoegen")<>"" OR Request.Form("toevoegen_submit")="ja" Then
If Request.Form("wijzigen")<>"" Then
'Als een project wordt gewijzigd
If NOT Len(Request.Form("proj_id"))>0 Then
'Als er geen project is geselecteerd stoppen
Response.Redirect("index.asp?resultaat=Er is geen project geselecteerd.")
Response.End
End If
'Alle gegevens ophalen
SQL1 = "SELECT titel,omschrijving,referentienummer,opdrachtgever_id,contactpersoon,email,telefoonnummer,fact_type_id,verantwoordelijke,proj_status_id,begindatum,proj_type_id,budget,kenmerk " &_
"FROM project " &_
"WHERE proj_id=" & Request.Form("proj_id")
project_arr = geg_ophalen(SQL1)
End If
%>
<%
ElseIf Request.Form("verwijderen")<>"" OR Request.Form("delete_submit")="ja" Then
'Als de project wordt verwijderd
If NOT Len(Request.Form("proj_id"))>0 Then
'Als er geen project is geselecteerd stoppen
Response.Redirect("index.asp?resultaat=Er is geen project geselecteerd.")
Response.End
End If
%>
<%
End If
%>
<%call onderkant()%>
<%
'Array met alle huidige projecten ophalen
SQL1 = "SELECT proj_id,titel,referentienummer FROM project ORDER BY referentienummer,titel"
proj_arr = geg_ophalen(SQL1)
'Databaseconnectie sluiten
call sluitenA
%>
|
|
|
|