DaSpeeD
Legacy Member
yo, ik benbzig met het maken van een reservatiepagina en de bedoeling is dat als de gegevens worden opgeslaan in de database dat deze eerst worden gecontroleerd zodat er geen dubbele reservatiets kunnen gebeuren, alleen ik weet nie juist hoe ik deze moet maken (de controle), er zou moeten gecontroleerd worden of het gekozen object, op een bepaalde dag vrij is en men kan een startuur en einduur opgeven dus hetzelfde item door iemand anders gehuurd opdezelfde dag mag niet tussen die tijdspanne liggen, wanneer dit dan toch zou gebeuren zou er een berichtje moeten komen, met van wanneer tot wanneer het object bezet is.
alvast op voorhand bedankt
<% @Language ="VBScript" %>
<% Option Explicit %>
<%
dim cnDB, rstGegevens
dim strConnstring
dim rstreservatie
if request.form("cmdOpslaan") = "Opslaan" then
strConnstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gegevens.mdb")
set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.open strConnstring
set rstreservatie = Server.CreateObject("ADODB.Recordset")
rstreservatie.Open "tblreservatie",cnDB, 1, 3 'adOpenKeyset,adLockOptimistic
With rstreservatie
.addnew
.Fields("Datum")=request.form("txtDatum")
.Fields("Startuur")=request.form("txtUurVan")
.Fields("Einduur")=request.form("txtUurTot")
.Fields("Opmerking")=request.form("Opmerking")
.Fields("Verantwoordelijke reservatie")=request.form("txtNaam")
.Fields("Doel")=request.form("Doel")
.Fields("IDitemNr")=request.form("cboItemID")
.update
end with
cnDB.close
Response.Redirect "startpagina.htm"
end if
%>
alvast op voorhand bedankt
<% @Language ="VBScript" %>
<% Option Explicit %>
<%
dim cnDB, rstGegevens
dim strConnstring
dim rstreservatie
if request.form("cmdOpslaan") = "Opslaan" then
strConnstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gegevens.mdb")
set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.open strConnstring
set rstreservatie = Server.CreateObject("ADODB.Recordset")
rstreservatie.Open "tblreservatie",cnDB, 1, 3 'adOpenKeyset,adLockOptimistic
With rstreservatie
.addnew
.Fields("Datum")=request.form("txtDatum")
.Fields("Startuur")=request.form("txtUurVan")
.Fields("Einduur")=request.form("txtUurTot")
.Fields("Opmerking")=request.form("Opmerking")
.Fields("Verantwoordelijke reservatie")=request.form("txtNaam")
.Fields("Doel")=request.form("Doel")
.Fields("IDitemNr")=request.form("cboItemID")
.update
end with
cnDB.close
Response.Redirect "startpagina.htm"
end if
%>