Underlig forekomst

Hvordan ser dit script ud?

If ord <> "" Then
Dim Query, rs, total, Resultat
Query = "SELECT * FROM Links WHERE "
Query = Query & "Title LIKE '%" & ord & "%' OR Description LIKE '%" & ord & "%'"
Query = Query & "ORDER BY Title"
Set rs = Connect.Execute (Query)

<b><a href="http://<%=rs("Url")%>" target="_blank"><%=rs("Title")%></a></b>
<br><font color="#CA7402">
<%=rs("Description")%><%If rs("Favorit")=2 Then%><nobr><small><font color="#000099">&nbsp;|favorit link|<font color="#CA7402"></small></nobr><%End If%>
<br><br>
<% rs.MoveNext %>
<% loop %>
<%End If%>
<%End If%>

Hvis der i teksten din  Description  kolonnen er et <br> til sidst så kommer der et ekstra linie skift..

eagleeye > det er der ikke. Jeg har checket efter flere gange, og indtastet indholdet igen på ny for at være sikker.

lukker

Hvordan ser dit loop ud?

Prøv evt. dette:

If ord <> "" Then
Dim Query, rs, total, Resultat
Query = "SELECT * FROM Links WHERE "
Query = Query & "Title LIKE '%" & ord & "%' OR Description LIKE '%" & ord & "%'"
Query = Query & "ORDER BY Title"
Set rs = Connect.Execute (Query)

While Not rs.EOF
    Response.Write "<b><a href=""http://"& rs("Url") &""" target=""_blank"">"& rs("Title") &"</a></b>"
    Response.Write "<br><font color=""#CA7402"">"& rs("Description")
    If rs("Favorit") = 2 Then
        Response.Write "<nobr><small><font color=""#000099"">&nbsp;|favorit link|<font color=""#CA7402""></small></nobr>"
    End If
    Response.Write "<br><br>"
    rs.MoveNext
Wend
End If
End If