code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
| Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=test"
Set recordSet=Server.CreateObject("ADODB.Recordset")
recordSet.Open "Select * from voorstelling", connectionToDatabase,1,2
if response.IsClientConnected = true then
if frminvAantal = "" and frmradio= "" then
response.write("<center><table border=1><tr><th>Voorstelling</th><th>Datum</th><th>Tijd</th></tr>")
Do While Not recordSet.EOF
response.write("<form action='test8a.asp' method='post'>")
response.write("<tr>")
response.write("<td>" & recordSet("Naam") & "</td>")
response.write("<td>" & recordSet("Datum") & "</td>")
response.write("<td>" & recordSet("Tijd") & "</td>")
response.write("<td><input type='radio' name='radio' value='" & recordSet("ID_voorstelling") & "'></td>")
response.write("</tr>")
------>session.contents("Naam") = recordSet("Naam")<------
recordset.MoveNext
loop
response.write("Aantal: <select name='invAantal'>")
response.write("<Option value='1'>1</option>")
response.write("<Option value='2'>2</option>")
response.write("<Option value='3'>3</option>")
response.write("<Option value='4'>4</option>")
response.write("<Option value='5'>5</option>")
response.write("<Option value='6'>6</option>")
response.write("<Option value='7'>7</option>")
response.write("<Option value='8'>8</option>")
response.write("<Option value='9'>9</option>")
response.write("<Option value='10'>10</optiom>")
response.write("</select>")
response.write("</table></center>")
response.write("<br><center><input type='submit' name='edit' value='ok'></center></form>")
else
Display= "Select sum(aantal) as Aantal from reservering left join voorstelling on voorstelling.ID_voorstelling = reservering.ID_voorstelling where naam = ---->'" & session.contents("Naam") & "'<---- "
set recordSet = connectionToDatabase.Execute(Display)
response.write (Display)
end if
else
response.end
end if
ConnectionToDatabase.Close
Set ConnectionToDatabase=Nothing
%> |
De waardes session.contents("Naam") = recordSet("Naam") wordt niet weergegeven in de SQL statement. (aangegeven met pijltjes)
Ik kies een voorstelling m.b.v de radio button, daaraan vast zit de kolomnaam ID_voorstelling (die wordt naar de volgende pagina gestuurt. Maar de waarde die in kolomnaam Naam zit (recordSet("Naam") wordt niet weergegeven in de sql statement.
Vage beschrijving, maar ja.
Ik hoop dat het een beetje duidelijk is.