ok, nu skriver den ud, men :-(
Jeg poster lige hele koden så kan du se hvad det er jeg vil.
Og nej jeg tror ikke det kan laves i sql'en
det er mySQL3.23
den skriver samme post flere gange i anden søgning ??
strSQL = "select * from power where Ucase(www) like '%" & strKeyword(0) & "%' and Ucase(titel) like '%" & strKeyword(0) & "%' and Ucase(description) like '%" & strKeyword(0) & "%' and Ucase(html) like '%" & strKeyword(0) & "%';"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
Response.Write "<tr><td width=99% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & "<a href="& rs("www")&" TARGET=_blank>"& rs("titel") &"</A> - " & rs("description")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT><hr>"
Response.Write "</td></tr></table>"
arrId1 = arrId1 + Cstr(rs("id")) & ", "
rs.MoveNext
Loop
Else
Response.Write "<br>"
End If
Set rs = nothing
Response.Write "<BR><BR><BR><BR><BR>"
Response.Flush
'----------------- DOMÆNE & TITLE & DESCRIPTION ------------------------------------------
strSQL2 = "select * from power where www like '%"&strKeyword(0)&"%' and titel like '%"&strKeyword(0)&"%' and description like '%"&strKeyword(0)&"%';"
Set rs2 = Conn.Execute(strSQL2)
If Not rs2.EOF Then
While Not rs2.EOF
strID = rs2("id")
arrID = split(arrID1,",")
For t = 0 to Ubound(arrID)
if Cstr(arrId(t)) = Cstr(strID) then'*********
Response.Write "------------------<br>"
else'*********
strTitel = " "
if len(rs2("titel")) < 1 then
strTitel = rs2("www")
strTitel = Replace(strTitel,"
http://www.","")
else
strTitel = rs2("titel")
end if
Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
Response.Write "<tr><td width=99% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" color=""red"">" & "<a href="& rs2("www")&" TARGET=_blank>"& strTitel &"</A> - " & rs2("description")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT><hr>"
Response.Write "</td></tr></table>"
end if'*********
Next
rs2.movenext
Wend
Else
Response.Write ""
End If
Set rs2 = Nothing
