Order by array

Använd ett recordset som är client-side och använd sort. (Skippa array och dictionary.)

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdprosortpropertyado.asp

aj då!

Jag hittade en guide på vides hemsida som går igenom det jag tror att du menar, Men så klart fick jag error när jag var klar och testade koden?

ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

/test.asp, rad 10 ADODB.Recordset fel '800a0bb9'

så jag testade då att bara kopiera hans fil och köra den! fick samma error igen vid rad 10 har vi denna kod bit.

Set rs = Server.CreateObject("Adodb.Recordset")
With rs
.CursorLocation = adUseClient
.Fields.Append "Id", adInteger
.Fields.Append "Name", adVarChar, 50
.Fields.Append "Group", adVarChar, 50
.open
End With

jag har testat med båda adUseClient och 3, men jag får det inte att fungera så jag vänder mig till er.

adInteger är nog odefnierad.
Om du inkluderar filen adovbs.inc så defieras alla konstanter som börjar på ad.

Om du inte vill ha med hela filen så kan du själv lägga till definitioner för de konstanter som du använder.

okej, tack där hade vi det! hade tagit bort en del i min adovbs.inc, men vad ska man göra då? är det lika bra att infoga hela eller att bara definera de som man använder?

Du kan lägga in detta i global.asa

<!--METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"
NAME="ADODB Type Library" -->

så har du alltid allt med.

Eller så kan du enbart definiera det du behöver, då man annars får med sig en hel del onödigt.

har en ny liten fundering nu! jo man sorterar ju ut med rs.Sort = "tbf_title Asc" men jag vill sortera efter datum och storlek? Jag har med en if sats gjort så den ändras! men de sorteras ju inte rätt utan kommer fel. dvs
9
8
3
1
10

osv? fältet har adVarChar, 50 om jag ändrar till adInteger så blir det error.

Microsoft Cursor Engine (0x80040E21)
En flerstegsåtgärd skapade fel. Kontrollera alla statusvärden.

jag hämtar allt ur en text fil och lägger till? hur gör man den för att behandlas som ett tal inte text?

strText = Trim(" 101")

intText = CInt(strText)

så blir texten numeriskt

cya,
PatrikB