Archief - ASP : controle of item bezet is

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

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
%>

servi

Legacy Member
moderator noot :
je topic bevat geen prefix, een verkeerd prefix of heeft een onduidelijke titel.
Gelieve een duidelijke titel met een bijhorend correct prefix te gebruiken.
Voor meer informatie over prefixen kan je terecht op regels en prefixen !!!.
Je topic is aangepast en je hebt een een waarschuwing gekregen, gelieve in het vervolg er op te letten.

aangezien je met een db werkt, neem ik aan dat je dit hebt opgeslagen in een database. Indien dat het geval is kan je gewoon controleren of er een resultaat is op dat tijdstip, bijvoorbeeld:

( in italic staan de zaken die je zelf invult aan de hand van je formulier)

SELECT COUNT(*) FROM WHERE itemid=uwitemid AND (uwbegintijd BETWEEN begintijd AND eindtijd OR eindtijd BETWEEN begintijd AND eindtijd );

als dit resultaten geeft, betekent het dat dit object op dat moment (gedeeltelijk) bezet.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan