problem

 <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
      <% 
		
		select case recordset1("typid") 
		case "1"
		skriv = "<br><font size='3' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & recordset1("rubrik") &"</strong></font>" 
		case "2"
		skriv = "<font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & recordset1("rubrik") &"</strong></font>" 
		case "3" 
		skriv = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("rubrik") &"</font>" 
		if not recordset1("underrubrikbild") = "" then bild = "<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>" else bild = "" end if 
		recordset2.movefirst
		
		do while not recordset2.eof
		if recordset2("underrubrikID") = recordset1("underrubrikID") then 
		skriv = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='lank.asp?id=" & recordset1("id") &"'>" & recordset1("rubrik") & "</a></font>" 
		if not recordset1("underrubrikbild") = "" then bild = "<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>" else bild = "" end if 
		
		end if
		recordset2.movenext
		loop
		
		case else
		skriv = ""
		end select
	
		%>
      <% if not skriv = "" then %>
      <TR> 
        <TD width="250" height="10" align="center" valign="top"> <% if not bild = "" then response.write bild end if  %>
        </TD>
        <TD width="450" height="10" valign="top"><% response.write skriv & recordset1("id")%></TD>
      </tr>
      <% end if %>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>

Varför skrivs inte skriv ut när det blir case "3"?
När där är en case "3" blir HTML koden följande:

<TR> 
        <TD width="250" height="10" align="center" valign="top"> 
        </TD>
        <TD width="450" height="10" valign="top"><font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='lank.asp?id=18'></a></font>18</TD>
      </tr>

Vet inte vad mer information jag behöver skriva..

Enligt din kod så är det exakt så det ska komma ut om case "3" och recordset2("underrubrikID") = recordset1("underrubrikID")

Kanske är det detta du är ute efter..

case "3" 
		skriv = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("rubrik") &"</font>" 
		if not recordset1("underrubrikbild") = "" then bild = "<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>" else bild = "" end if 
		recordset2.movefirst
		
		do while not recordset2.eof
		if recordset2("underrubrikID") = recordset1("underrubrikID") then 
		[b]skriv = skriv & [/b]"<font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='lank.asp?id=" & recordset1("id") &"'>" & recordset1("rubrik") & "</a></font>" 
		if not recordset1("underrubrikbild") = "" then [b]bild = bild & [/b]"<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>"  end if