Dum søge script

Dette script bruger jeg til at søge i en database med.

Af en eller anden grund skriver den det samme resultat ud flere gange.


SQL = "SELECT * FROM tapes WHERE "
SQL = SQL & " (Names LIKE '%" & strKeyword & "%')"
SQL = SQL & " OR (Players LIKE '%" & strKeyword & "%')"
SQL = SQL & " OR (Info LIKE '%" & strKeyword & "%')"
SQL = SQL & " OR (Channel LIKE '%" & strKeyword & "%')"
SQL = SQL & " OR (TapeNr LIKE '%" & strKeyword & "%')"
SQL = SQL & " ORDER BY TapeID DESC"
Set rs = Connect.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

'RESULTAT

rs.MoveNext
Loop

End if