setinizin azalan sıra ile gittiğini yani ORDER BY DESC'i kastetmediğinizi varsayarak, biraz kulağı tersten göstermek gibi oldu ama
setimiz değişkeni içerisinde içerisinde tekrarlanabilir değerler için düzgün çalışmayabilir.
Kod:
Set Conn = server.CreateObject("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)};UID=;PASSWORD=;DBQ=D:\db.mdb"
Conn.ConnectionString = connStr
Conn.Open
setimiz = "269,253,237,221,205,189,173"
Set RS = server.CreateObject("ADODB.RecordSet")
SQL = " SELECT $1 AS oBY, baslik, id, csayi FROM baslik "
tSQL = ""
x = Split(setimiz, ",")
For I = 0 To UBound(x)
If Len(tSQL)>0 Then tSQL = tSQL & " UNION "
tSQL = tSQL & Replace(SQL, "$1", I+1) & " WHERE id = "& x(I)
Next
If Len(tSQL)>0 Then
RS.Open tSQL & " ORDER BY oBY", Conn, 1
While Not RS.EOF
Response.Write "| "& RS("baslik") & " | "& RS("id") & " | " & RS("csayi") &" |<br>"
RS.MoveNext
Wend
RS.Close
End If
Set RS = Nothing
Conn.Close
Set Conn = Nothing