DaSpeeD
Legacy Member
ik heb een reservatie systeem gemaakt en controleer eerst op een par zaken voor de gegevens worden opgeslaan, maar tijdens de 2de controle lukt er iets niet ik denk dat het misschien iets is met de session, maar ben het niet zeker.
Hier worden de gegevens ingevoerd.
De eerste controle zet ik er niet op want deze werkt
De tweede
hier zit men probleem ergens in wanneer ik probeer te controleren zodat er geen dubbele boeking gebeuren.
Hier worden de gegevens ingevoerd.
Code:
<%
Dim cnDB
Dim strConnstring
Dim rstitem
strConnstring= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gegevens.mdb")
set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.open strConnstring
set rstitem = cnDB.Execute("SELECT * FROM tblitem ORDER BY ItemID")
%>
<table>
<FORM METHOD="POST" action="controle1.asp">
<tr>
<td>Item: </td><td><SELECT NAME="cboItem">
<%
rstitem.MoveFirst
Do while not rstItem.EOF
Response.Write "<OPTION VALUE='" & rstitem("Omschrijving") & "'>"
Response.Write rstitem("Omschrijving") & "</OPTION>"
rstitem.MoveNext
loop
cnDB.Close
%>
</select></td><td colspan="2" align="right"><input type="button" name="Gereserveerd" value ="Gereserveerd"></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>Datum: </td><td colspan="3"><input type="text" name="txtDatum" value= <%=FormatDateTime(date(),0) %>> </td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>Van: </td><td><input type="text" name="txtUurVan" value=<%response.write(formatdatetime(time(),4))%>></td> <td>Tot: </td><td><input type="text" name="txtUurTot" value=<%response.Write(formatdatetime(time(),4))%>></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>Doel: </td><td colspan="3"><textarea name="Doel" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>Opmerking:</td><td colspan="3"><textarea name="Opmerking" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>Naam: </td><td colspan="3"><input type="text" name="txtNaam"></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td><Input Type ="SUBMIT" name="Opslaan" value ="Opslaan"></td><td><Input Type ="RESET" value = "Reset"></td>
</FORM>
<tr>
<td colspan="4"><font color="#FF0000"><% response.Write("Controleer op voorhand als het gekozen item nog niet is gereserveerd") %></font></td>
</tr>
</table>
<script language="vbscript">
<!--
sub gereserveerd_onclick()
dim strEigenschappen
strEigenschappen= "height=400,width=1000, left=50, top=50, status=no, toolbar=no, menubar=no, location=no, scrollbars=yes, resizable=no,"
window.open "gereserveerd.asp", "gereserveerd", strEigenschappen
end sub
-->
</SCRIPT>
<%
session.contents("stritem") = request.form("cboItem")
session.contents("strnaam") = request.Form("txtNaam")
session.contents("strdatum") = request.form("txtDatum")
session.contents("struurvan") = request.form("txtUurVan")
session.contents("struurtot") = request.form("txtUurTot")
session.contents("strdoel") = request.form("Doel")
session.contents("stropmerking") = request.form("Opmerking")
%>De eerste controle zet ik er niet op want deze werkt
De tweede
Code:
<%
Dim cnDB
Dim strConnstring
Dim rstreservatie
strConnstring= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gegevens.mdb")
set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.open strConnstring
set rstreservatie = cnDB.execute("SELECT * from tblreservatie")
if session("strdatum") = rstreservatie("Datum")then
if session("stritem") = rstreservatie("Item") then
if session("uurvan") >= rstreservatie("Startuur") and session("uurvan") < rstreservatie("Einduur") or session("uurtot") > rstreservatie("Startuur") and session("uurtot") =< rstreservatie("Einduur") or session("startuur") < rstreservatie("Startuur") and session("uurtot") > rstreservatie("Einduur") then
%>
<font size="4" face="arial,helvetica"><strong> Fout in de reservatie! </strong></font>
<br>
<br>
OPGELET!!! De reservatie bestaat al, om te zien wat er reeds is gereserveerd duw op de knop Gereserveerd op de reservatie pagina!
<br>
<br>
<a href="reservatie.asp">Probeer opnieuw</a>
<%
else
response.redirect("verwerkingreservatie.asp")
end if
else
response.redirect("verwerkingreservatie.asp")
end if
else
response.redirect("verwerkingreservatie.asp")
end if
cnDB.close
%>