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
| <!-- #include file="adovbs.inc" -->
<%
id=request.querystring("id")
set cnexcursies = server.createObject("adodb.connection")
cnstexcursies = "driver={microsoft access driver (*.mdb)};" & _
"dbq=" & server.mapPath("data.mdb")
cnexcursies.Open cnstexcursies,"",""
set rsexcursies = server.createobject("adodb.recordset")
sql = "SELECT Tabel1.* , Tabel2.* FROM Tabel1 INNER JOIN Tabel2 " &_
"ON Tabel1.index = Tabel2.replynr WHERE Tabel1.index=" & id & " ORDER BY Tabel1.index;"
rsexcursies.open sql, cnexcursies, adopenstatic, adlockreadonly
if not rsexcursies.eof then
response.write rsexcursies("index")
response.write rsexcursies("onderwerp")
response.write rsexcursies("bericht")
end if
if rsexcursies.eof then
response.write "geen reacties"
else
do while not rsexcursies.EOF
response.write rsexcursies("replynr")
response.write rsexcursies("rebericht")
rsexcursies.movenext
loop
end if
rsexcursies.close
set rsexcursies = nothing
cnexcursies.close
set cnexcursies = nothing
%> |
de bedoeling is dat wanneer er geen rebericht is dat hij wel het onderwerp + bericht + "geen reacties" laat zien. wanneer er wel reacties zijn dan gaat alles goed
cs skill - making a desert eagle out of tooth picks