Loop i loop

Hej,

hur får jag detta att funka.. eller kanske går det inte?

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "DSN=MinDsn; UID=; PWD=;"

Set Rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT Id1, Namn1 FROM tblKat1"
Rs.Open strSql, objCon
Do Until Rs.EOF
	Response.Write("<H4>" & Rs("Namn1") & "</H4>")
	Set Rs2 = Server.CreateObject("ADODB.Recordset")
	Rs2.Open = "SELECT Id2, Namn2 FROM tblKat2 WHERE Kat1_Id1 = '" & Rs("Id1") & "'", objCon
	Do Until Rs2.EOF
		Response.Write("<A href=default.asp?cId=" & Rs2("Id2") & ">" & Rs2("Namn2") & "</A>&nbsp;&nbsp;")
		Rs2.MoveNext
	Loop
	Response.Write("<BR><BR>")
	Rs.MoveNext
Loop

Löste det

Ändrade från

WHERE Kat1_Id1 = '" & Rs("Id1") & "'

till

WHERE Kat1_Id1 = " & Rs("Id1") & "

så funkade det :)