Linjer i tabell

Jeg bruker følgene kode:

<%
startdato = request.form(\"startdato\")
startdato = month(startdato) & \"-\" & day(startdato) & \"-\" & year(startdato)
slutdato = request.form(\"slutdato\")
slutdato = month(slutdato) & \"-\" & day(slutdato) & \"-\" & year(slutdato)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/fpdb/Registrering_av_feil_PiB.mdb\")

SQL=\"SELECT Resultater.FeilID,Resultater.Dato, Resultater.Enhetsnummer, Resultater.PIB, Resultater.Forrettningsområde, Resultater.Gjelder, Resultater.Beskrivelse As Beskrivelse2, Last(oppfølging.Beskrivelse) AS SisteAvBeskrivelse, Resultater.Lost FROM Resultater LEFT JOIN oppfølging ON Resultater.FeilID = oppfølging.FeilID GROUP BY Resultater.FeilID, Resultater.Dato, Resultater.Enhetsnummer, Resultater.PIB, Resultater.Forrettningsområde, Resultater.Gjelder, Resultater.Beskrivelse, Resultater.Lost HAVING (((Resultater.Dato) BETWEEN #\" & StartDato & \"# AND #\" & SlutDato & \"#))\"

if( LEN(request(\"orderBy\")) > 0 ) then
SQL = SQL & \" ORDER BY \" & request(\"orderBy\")
else
  SQL = SQL & \" ORDER BY PiB\"
end if

Set RS=Conn.Execute( SQL )

Function Smileys(nofHits)
nofHits = rs(\"SisteAVBeskrivelse\")
if nofHits = Null or _
  nofhits = \"\" then
  nofHits = \"-\"
  End if
end Function

If (rs.BOF Or rs.EOF) Then
    response.Write \"Ingen poster funnet\"
    else
  Do Until rs.EOF
   
with response
    .write \"<table width=600, align=center, border=2><tr><td  width=500>\"
  .write \"<a>FeilID</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Dato</a>\"
  .write \"</td><td width=100>\"
  .write \"<a href=\'?Startdato=\"&Startdato&\"&Slutdato=\"&Slutdato&\"orderBy=PiB\'>PiB</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Beskrivelse</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Siste oppfølging</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Løst</a>\"
 

 
end with   
while not RS.EOF
  with response
    .write \"<tr><td width=100>\" & RS(\"FeilID\") & \"</td>\"
    .write \"<td width=100>\" & RS(\"Dato\") & \"</td>\"
    .write \"<td width=100>\" & RS(\"PiB\") & \"</td>\"
    .write \"<td width=100>\"& RS(\"Beskrivelse2\")&\"</td>\"
    .write \"<td width=100>\"& RS(\"SisteAvBeskrivelse\") &\"</td>\"
    .write \"<td width=100>\"& RS(\"Lost\") &\"</td></tr>\"
  end with
  RS.MoveNext
wend
Loop
End if

response.write \"</table>\"
%>

Mitt problem:
Hvis det for eksemplel i et recordset at kolonnen \"SisteAVBeskrivele\" ikke inneholder noen ting, så blir det ikke skrevt ut linjer rundt klonnen.

Hvordan gjøres det??
... Det ville ha sett så mye bedere ut at tabellen ser \"Hel\" ut, selv om en kolonne i recordsettet ikke innholder data.

Odd