List i ASP

Hejsa

Jeg har denne liste på hjemmeside http://cms.larsenmotorcykler.dk/default.asp?Docid=394&RevID=257&Tpl=Modules/Listnymotorcykler/list_ny.asp hvor koden ser sådan her ud :

Function GetNews()

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")

    strSQL = "SELECT DocumentLanguages.DocId AS DocId, DocumentLanguages.DocName AS DocName "
    strSQL = strSQL & " FROM Documents, DocumentLanguages "
    strSQL = strSQL & " WHERE (ParentID = 379)"
    strSQL = strSQL & " AND Documents.DocumentID = DocumentLanguages.DocId "
    strSQL = strSQL & " AND (secLevel <= " &mbl& ") "
    strSQL = StrSql & " AND ((DocumentLanguages.LangId = " & lang & ") AND (DocumentLanguages.ActiveRevisionStatus=5) )"
    strSQL = strSQL & " ORDER BY Documents.PublishDate DESC, DocumentLanguages.DocName"



    conn.Open GetConStr ("SiteResources\Data\")
    rs.Open strSQL, conn
   
    If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
    While Not rs.EOF
       
        strDocID = rs("DocId").Value
        Response.Write "<li> <a href=""read.asp?DocID=" & strDocID & """ target=""_self"">" & rs("DocName").Value & "</a><br>" & vbNewLine
        rs.MoveNext
       
    Wend
    If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
   
    rs.Close
    conn.Close
   
End Function

Men jeg ønskede mere information omkring de forskellige motorcykler. Så jeg tilføjede at den skulle kigge i tabel DocumentFields. I denne tabel er der 7 record på være motorcykel, så jeg ændrede koden til dette :

Function GetNews()

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")

    strSQL = "SELECT DocumentLanguages.DocId AS DocId, DocumentLanguages.DocName AS DocName, DocumentFields.FieldValue AS FieldValue "
    strSQL = strSQL & " FROM Documents, DocumentLanguages, DocumentFields "
    strSQL = strSQL & " WHERE (ParentID = 379)"
    strSQL = strSQL & " AND Documents.DocumentID = DocumentLanguages.DocId "
    strSQL = strSQL & " AND Documents.DocumentID = DocumentFields.DocID "
    strSQL = strSQL & " AND (secLevel <= " &mbl& ") "
    strSQL = StrSql & " AND ((DocumentLanguages.LangId = " & lang & ") AND (DocumentLanguages.ActiveRevisionStatus=5) )"
    strSQL = strSQL & " ORDER BY Documents.PublishDate DESC, DocumentLanguages.DocName"



    conn.Open GetConStr ("SiteResources\Data\")
    rs.Open strSQL, conn
   
    If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
    While Not rs.EOF
       
        strDocID = rs("DocId").Value
        Response.Write "<li> <a href=""read.asp?DocID=" & strDocID & """ target=""_self"">" & rs("DocName").Value & "</a><br>" & vbNewLine & rs("FieldValue")
        rs.MoveNext
       
    Wend
    If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
   
    rs.Close
    conn.Close
   
End Function

Men her slipper min kunnen med Asp op, for listen ser sådan her ud

http://cms.larsenmotorcykler.dk/default.asp?Docid=394&RevID=257&Tpl=Modules/Listnymotorcykler/list_ny_new.asp

Det jeg ønsker, er at alle informationer er i en linie i stedet for i 7 linier pr. motorcykler, og så evt i en tabel.

Er der nogen der kan hjælpe??

/Bruno