(ik ben aan het kijken of asp de taal is die ik nodig heb, heb daarom nog geen boek!!)
Mijn probleem is dat ik maar 1 record terug krijg met een query terwijl dit er meerder zouden moeten zijn:
code:
<%
'Dimension variables
Dim adoCon
Dim strSQL
Dim verzondeID
Dim rs
Dim rs2
Dim strSQL2
Dim strSQL3
Dim vvv
Dim vvv1
verzondeID = CLng(Request.QueryString("id_nob"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM bedrijf WHERE id_noB=" & verzondeID
set rs = adoCon.execute(strSQL)
set vvv = rs("id_noB")
vvv1 = CLng(vvv)
Response.Write rs("id_noB")
Response.Write ("<br>")
Response.Write "SELECT * FROM lijst WHERE id_noBl='" & vvv1 & "'"
Response.Write ("<br>")
Response.Write (vvv1)
Response.Write ("<br>")
strSQL2 = "SELECT lijst.id_noKl FROM lijst WHERE id_noBl='" & vvv1 & "'"
set rs2 = adoCon.execute(strSQL2)
strSQL3 = "SELECT * FROM Kandidaat WHERE id_nok=" & rs2("id_noKl")
set rs2 = adoCon.execute(strSQL3)
Do While not rs2.EOF
Response.Write (strSQL3)
Response.Write ("<br>")
Response.Write (rs2("kandidaat_an"))
Response.Write ("<br>")
'Move to the next record in the recordset
rs2.MoveNext
Loop
rs.Close
rs2.Close
Set rs = Nothing
Set adoCon = Nothing
Set rs2 = Nothing
%>
Voldens mij moet er iets fout zitten in de loop of "strSQL3"
IK weet niet hoe ik dit voor mekaar box?
Ken iemand me helpen?
Mijn probleem is dat ik maar 1 record terug krijg met een query terwijl dit er meerder zouden moeten zijn:
code:
<%
'Dimension variables
Dim adoCon
Dim strSQL
Dim verzondeID
Dim rs
Dim rs2
Dim strSQL2
Dim strSQL3
Dim vvv
Dim vvv1
verzondeID = CLng(Request.QueryString("id_nob"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM bedrijf WHERE id_noB=" & verzondeID
set rs = adoCon.execute(strSQL)
set vvv = rs("id_noB")
vvv1 = CLng(vvv)
Response.Write rs("id_noB")
Response.Write ("<br>")
Response.Write "SELECT * FROM lijst WHERE id_noBl='" & vvv1 & "'"
Response.Write ("<br>")
Response.Write (vvv1)
Response.Write ("<br>")
strSQL2 = "SELECT lijst.id_noKl FROM lijst WHERE id_noBl='" & vvv1 & "'"
set rs2 = adoCon.execute(strSQL2)
strSQL3 = "SELECT * FROM Kandidaat WHERE id_nok=" & rs2("id_noKl")
set rs2 = adoCon.execute(strSQL3)
Do While not rs2.EOF
Response.Write (strSQL3)
Response.Write ("<br>")
Response.Write (rs2("kandidaat_an"))
Response.Write ("<br>")
'Move to the next record in the recordset
rs2.MoveNext
Loop
rs.Close
rs2.Close
Set rs = Nothing
Set adoCon = Nothing
Set rs2 = Nothing
%>
Voldens mij moet er iets fout zitten in de loop of "strSQL3"
IK weet niet hoe ik dit voor mekaar box?
Ken iemand me helpen?