udskriv data fra tabel1 som matcher data fra tabel2

strdata = "data1, data2, data3, data4"
strdata = split(strdata,",")
for b = Lbound(strdata) to Ubound(strdata)
strSQL = "Select * from tabel2 where tabel = '%" & strdata(b) & "%'"
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
response.write rs("id")
rs.movenext
loop while not rs.eof
end if
set rs = nothing
end if
next

' måske kan dette hjælpe

' ups

strdata = "data1, data2, data3, data4"
strdata = split(strdata,",")
for b = Lbound(strdata) to Ubound(strdata)
strSQL = "Select * from tabel2 where tabel like '%" & strdata(b) & "%'"
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
response.write rs("id")
rs.movenext
loop while not rs.eof
end if
set rs = nothing
end if
next

' ups og så 3 gang er lykkens gang

strdata = "data1, data2, data3, data4"
strdata = split(strdata,",")
for b = Lbound(strdata) to Ubound(strdata)
strSQL = "Select * from tabel2 where tabel like '%" & strdata(b) & "%'"
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
response.write rs("id")
rs.movenext
loop while not rs.eof
end if
set rs = nothing
next

Tak for det.