Archief - ASP: selectie in keuze lijst beïnvloed gegevens

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.
D

DaSpeeD

Legacy Member
yo, de bedoeling is dat als ik in een lijst iets selecteer en dan op een knopje duw een tablen komt waar alleen de gegevens instaan van het gekozen object.
hier heb je de pagina's die er iets met hebben te maken. of hier in een text file

=> de pagina waar wordt geselecteerd en waar de knop is
<%@ LANGUAGE = "VBSCRIPT" %>
<% Option explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Broeders van Liefde</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type><LINK href="bestanden/main.css" rel=stylesheet type=text/css>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<style type="text/css">
<!--
.style1 {
font-weight: bold;
font-size: medium;
}
-->
</style>
</HEAD>
<BODY>
<DIV class=center>
<TABLE cellPadding=0 cellSpacing=0 class=doc800>
<TBODY>
<TR>
<TD>
<TABLE cellPadding=0 cellSpacing=0 height=90 width="100%">
<TBODY>
<TR>
<TD height="88" background="bestanden/topgradient.gif">
<TABLE width="100%">
<TBODY>
<TR>
<TD width=150><IMG alt="Broeders van Liefde" border=0 src="bestanden/logo.gif">
</TD>
<TD class=toptitle><SPAN>Intranet<BR>Sint-Jozef</SPAN>
</TD>
<TD align=right width=150><A href="startpagina.asp"><IMG alt="Sint-Jozef" src="bestanden/logosj.png" width="60" height="80" border=0></A>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE class=menubalk>
<TBODY>
<TR>
<TD class=menu>&nbsp;
</td>
</TR>
</TBODY>
</TABLE>
<TABLE cellPadding=0 cellSpacing=2>
<TBODY>
<TR>
<TD class=blueleft height=500 vAlign=top width=150>
<TABLE cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<br>
<p><IMG src="bestanden/bulblue.gif">&nbsp;<A class=menu href="startpagina.asp">Startpagina</A></p>
<BR>
<p><IMG src="bestanden/bulblue.gif">&nbsp;<A class=menu href="mail.asp">Mail</A></p>
<BR>
</TD>
</TR>
<TR>
<TD class=horline>
</TD>
</TR>
<TR>
<TD>
<p><IMG src="bestanden/bulblue.gif">&nbsp;<A class=menu href="2005infowk02.doc">Weekinfo</A></p>
<BR>
<p><IMG src="bestanden/bulblue.gif">&nbsp;<A class=menu href="reservatie.asp">Reservatie</A></p>
<br>
<p><IMG src="bestanden/bulblue.gif">&nbsp;<A class=menu href="admin.asp">Admin</A></p>
<BR>
</TD>
</TR>
<TR>
<TD class=horline>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width="613" vAlign=top>
<div align="center" class="style1"><p><u>Reservatie</u> </p></div>
<br>
<br>
<%
Dim cnDB
Dim strConnstring
Dim rstitem

' Verbinding
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="verwerkingreservatie.asp">
<tr>
<td>Item: </td><td><SELECT NAME="cboItem">
<%
' Opvullen van de vervolgkeuzelijst met waarden
rstitem.MoveFirst
Do while not rstItem.EOF
Response.Write "<OPTION VALUE='" & rstitem("Omschrijving") & "'>"
Response.Write rstitem("Omschrijving") & "</OPTION>"
rstitem.MoveNext
loop
'Sluiten van de verbinding
cnDB.Close
%>
</select></td><td colspan="2" align="right"><input type="button" name="gereserveerd" value ="reeds gereserveerd"></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td>Datum: </td><td colspan="3"><input type="text" name="txtDatum" value= <%=FormatDateTime(date(),0) %>> </td>
</tr>
<tr>
<td colspan="4">&nbsp;</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">&nbsp;</td>
</tr>
<tr>
<td>Doel: </td><td colspan="3"><textarea name="Doel" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td>Opmerking:</td><td colspan="3"><textarea name="Opmerking" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td>Naam: </td><td colspan="3"><input type="text" name="txtNaam"></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td><Input Type ="SUBMIT" name="cmdOpslaan" value = "Opslaan"></td><td><Input Type ="RESET" value = "Reset"></td>
</FORM>
</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>
</table>
</center>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</BODY>
</HTML>

=>hier de pagina voor het maken van de tabel
<%@ Language ="VBScript" %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Reeds Gereserveerd</title>
</head>

<body>
<%
dim rs
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 where Item = '" & request.form("cboItem") & "' order by Datum DESC")
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial" COLOR=#000000><CAPTION><B>Reeds gereserveerd</B></CAPTION></FONT>

<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Datum</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Startuur</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Einduur</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Opmerking</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Verantwoordelijke reservatie</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Doel</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Item</FONT></TH>

</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rstreservatie.MoveFirst
do while Not rstreservatie.eof
if rstreservatie("Datum") >= date() then
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Datum").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Startuur").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Einduur").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Opmerking").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Verantwoordelijke reservatie").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Doel").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000><%=Server.HTMLEncode(rstreservatie.Fields("Item").Value)%><BR></FONT></TD>

</TR>
<%
end if
rstreservatie.MoveNext
loop
cnDB.close
%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</body>
</html>
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