<% x = 0 do until x = 7 OR RS.EOF = TRUE x = x +1 %> - <% strBirth = CDate(RS("alder")) strAge = Int(DateDiff("m", strBirth, Date)/12) If RS("kon") = "Pojke" Then Response.Write "Pojke" & strAge Else Response.Write "Flicka" & strAge End If %>" href="minsida.asp?id=<%=RS("id")%>"> <% SQL = "SELECT bild, id FROM anv WHERE id= " & RS("id") & "" Set RS2 = Connect.Execute(SQL) %> " width="70" height="100"> <% RS.movenext loop %>

<% if not RS.EOF then Response.write rs("Antal") else Response.write "Här var´e tomt!" end if %>