Legge til     på treads.

Jeg har et forum som henter poster som her http://www.html.dk/scripts/asp/00015/eksempel.asp

Hvordan kan jeg lage om <ul><li> til &nbsp;

Har prøvd det med:
str=""
For l=1 To level
  str = str & " &nbsp; &nbsp; "
Next


Her er scriptet:
**********************************************************
'Legger alle spørsmål i array
Sub ForumSubjects(inputRID)
        set adoCn = Server.CreateObject("ADODB.Connection")
        adoCn.Open strConn
        set adoRs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT InnleggID,InnleggSvarID,InnleggOverskrift,InnleggInnhold,Innlegg_E_UserID,InnleggOpprettet FROM Forum_Innlegg WHERE Innlegg_ForumID=" & intForumID & " ORDER BY InnleggID ASC"
        set adoRs = adoCn.Execute(strSQL)
       
        If not adoRs.eof AND not adoRs.bof then
            Do until adoRs.eof
               
                arrID = arrID & "," & adoRs("InnleggID")
                arrReplyID = arrReplyID & "," & adoRs("InnleggSvarID")
                arrSubject = arrSubject & "," & adoRs("InnleggOverskrift")
                arrQuestion = arrQuestion & "," & adoRs("InnleggInnhold")
                arrCreator = arrCreator & "," & adoRs("Innlegg_E_UserID")
                arrDate = arrDate & "," & adoRs("InnleggOpprettet")
               
                strSQL = "select count(InnleggID) from Forum_Innlegg WHERE InnleggSvarID=" & adoRs("InnleggID")
                set adoRsCount = adoCn.Execute(strSQL)
                    arrNoAnswers    = arrNoAnswers & "," & adoRsCount(0)
                adoRsCount.Close
                Set adoRsCount = Nothing             
                       
            adoRs.moveNext
            Loop           
        End if
       
    arrID = Split(arrID,",")
    arrReplyID = Split(arrReplyID,",")
    arrSubject = Split(arrSubject,",")
    arrCreator = Split(arrCreator,",")
    arrDate = Split(arrDate,",")
    arrNoAnswers = Split(arrNoAnswers,",")
       
    adoRs.Close
    Set adoRs = Nothing
                                           
    adoCn.Close
    Set adoCn = Nothing

    Response.Write "<tr class=""downloadbg1"">" & vbCrlf & "<td colspan=""3"">"
    Call GetForumNameSubject(intInnleggID)
    Response.Write "</td>" & vbCrlf & "</tr></table><br>" & vbCrlf
    Response.Write strTableTop & "<tr class=""downloadslist"">" & vbCrlf & "<td><b>SVAR</b></td><td align=""middle""><b>SKREVET AV</b></td><td align=""middle""><b>OPPRETTET</b></td>" & vbCrlf
    Response.Write TreadsList(inputRID,level+1)   
End Sub

'Henter ut svar fra array
Function TreadsList(inputRID,level)
    For m = 1 to Ubound(arrID)
    cssStyle = 1
   
    'Fjerner linken på svaret og bold.
    If Cint(arrID(m)) = Cint(inputRID) Then
        TreadsList = TreadsList & "<tr class='downloadbg" & cssStyle & "'>" & vbCrlf & "<td class=""xptext""><b>" & str & arrSubject(m) & "</b>( " & arrNoAnswers(m) & " )</td><td class=""xptext"">&nbsp;" & arrCreator(m) & "</td><td class=""xptext"" align=""middle"">" & arrDate(m) & "</td>" & vbCrlf & "</tr>" & vbCrlf
    Else
        ' Hvis svar til det indlæg som funktionen er kaldt med
        If Cint(arrReplyID(m)) = Cint(inputRID) Then
            str=""
            For l=1 To level
                str = str & " &nbsp; &nbsp; "
            Next
            ' Tilføj til liste og kald funktionen for at undeadoRsøge for svar
            TreadsList = TreadsList & "<tr class='downloadbg" & cssStyle & "'>" & vbCrlf & "<td class=""xptext"">" & str & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Action=Forum&I=" & arrID(m) & "&F=" & intForumID & """ class=""rap"">" & arrSubject(m) & "</a>( " & arrNoAnswers(m) & " )</td><td class=""xptext"">&nbsp;" & arrCreator(m) & "</td><td class=""xptext"" align=""middle"">" & arrDate(m) & "</td>" & vbCrlf & "</tr>" & vbCrlf
        Else
            TreadsList = TreadsList & "<tr class='downloadbg" & cssStyle & "'>" & vbCrlf & "<td class=""xptext"">" & str & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Action=Forum&I=" & arrID(m) & "&F=" & intForumID & """ class=""rap"">" & arrSubject(m) & "</a>( " & arrNoAnswers(m) & " )</td><td class=""xptext"">&nbsp;" & arrCreator(m) & "</td><td class=""xptext"" align=""middle"">" & arrDate(m) & "</td>" & vbCrlf & "</tr>" & vbCrlf
        End If
    End if   
                   
    Next   
    CheckCSSStyle(cssStyle)
End function