array og DB-udskrift
Hmm :) Svært at forklare det her.Fra min database kommer en liste af ID's, som skal sammenlignes med en liste af ID's, lavet af et array.
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM user WHERE usrname = '" & session("user") & "';"
rs.Open strSQL, Conn
%>
<%
downloadedID = RS("downloadedID")
%>
<br>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM downloads ORDER BY Date;"
rs.Open strSQL, Conn
Dim arrfriends
Dim n
arrfriends = Split(downloadedID, ",")
Do until RS.EOF
%>
<%
For n = 1 To UBound(arrfriends) -1
response.write(arrfriends(n) & " " & RS("ID") & "<br>")
if arrfriends(n) = RS("ID") then
response.write("..<br><br>")
else
response.write("f.ck<br><br>")
end if
Next
%>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
---------
Udskrift:
1 2
f.ck
2 2
f.ck
1 1
f.ck
2 1
f.ck
.. Som i ser sammenlignes de, men den kan ikke godkende at nogen af talene er ens(?!).
Håber i kan hjælpe.
