I have a page where i want to get a query and look it up end get the next 

record.

In the function ToonTabel() i niet to get a other tabel.

Something like this:



OpenDB sConnPagina

sSQL = "SELECT * FROM SubBericht WHERE BerichtID = " & intVerslagID & " 

ORDER BY Volgnummer"

	rs.Open sSQL,,,adCmdTable

	If rs.EOF Then

		%>

			Geen berichten gevonden over dit onderwerp.

		<%

	else

		rs.PageSize = intMaxItemsNo

		intLastPage = rs.PageCount 

		rs.AbsolutePage = intPageNo



		for i = 1 to rs.PageSize

			intVolgnummer = rs("Volgnummer")

			strKop = rs("Kop")

			strInvoegen = rs("Invoegen")

			select case strInvoegen

				case "Tabel"

					ToonTabel(intVerslagID)

				case "Tekst"

					ToonTekst(intVerslagID)

				case "Foto"

					ToonFoto(intVerslagID)

				case else

					%> Fout bij het openen van de 

pagina, probeer het later opnieuw. <%

			end select

			rs.MoveNext

			if rs.EOF then exit for

		Next

	end if

	rs.close

	Set rs = Nothing





function ToonTabel( intID )

	sSQL = "SELECT * FROM Tabel WHERE SubID = " & intID

	rs.Open sSQL,,,adCmdTable



	If rs.EOF Then

		%>

			Geen tabel gevonden over dit onderwerp.

		<%

		rs.close

	else

		intAantalKolommen = rs("AantalKolommen")

		intAantalRegels = rs("AantalRegels")

		bKopRegel = rs("KopRegel")

		rs.close

		sSQL = "SELECT * FROM TabelRegel WHERE TabelID = " & intID 

& " ORDER BY TabelRegelID"

		rs.Open sSQL,,,adCmdTable

		If rs.EOF Then

			%>

				Geen regels in de tabel gevonden over dit 

onderwerp.

			<%

		else

			intTabelRegelID = rs("TabelRegelID")

			dim arrKolom(10)

			for i = 1 to intAantalKolommen

				arrKolom(i) = rs("kolom" & i)

			Next%>

			<table width="100%" border="0" cellspacing="0" 

cellpadding="0">

				<tr>

					<td width="10"></td>

					<td>

			<table border="1" cellspacing="0">

				<%for j = 1 to intAantalRegels

					for i = 1 to intAantalKolommen

						arrKolom(i) = rs("kolom" & 

i)

					Next%>

					<%if bKopRegel and j = 1 then%>

						<tr> 

							<% for i = 1 to 

intAantalKolommen %>

								<td 

border="1" bgcolor="#AD8A21" class="whitesmallHeader"> <%=arrKolom(i)%

> </td>

							<% Next %>

						</tr>

					<%else%>

						<tr> 

							<% for i = 1 to 

intAantalKolommen 

								if (j mod 

2 = 0) then%>

								

	<td border="1" bgcolor="#EDE8CF" 

class="blacksmallerheader"> <%=arrKolom(i)%> </td>

								<%else%>

								

	<td border="1" bgcolor="#DEDDCC" 

class="blacksmallerheader"> <%=arrKolom(i)%> </td>

								<%end if

							Next %>

						</tr>

					<%end if

					rs.MoveNext

					if rs.EOF then exit for

				Next%>

			</table>

					</td>

					<td width="10"></td>

				<tr>

			</table>

		<%end if

		rs.close

		Set rs = Nothing

	end if

end function