[ASP] Sorteren propleem

[semicon]

Ik wil een aantal files in de map test in zon ADO gooien. Dus geen echt source maar tijdelijk eigenlijk.. ik weet niet precies hoe het gaat maar d8 dat het volgende wel moet werken.

Ik heb WEL gezocht op de foutmelding "Runtimefout Microsoft VBScript (0x800A0005)" maar niks juists gevonden

De Code die fout gaat:

code:

<%

Set Fo = Server.CreateObject("ADODB.Recordset")
Fo.Fields.Append "name", adVarChar, 255
Fo.Fields.Append "size", adInteger
Fo.Fields.Append "date", adDate
Fo.Fields.Append "type", adVarChar, 255
Fo.Open

set Fs = Server.CreateObject("Scripting.FileSystemObject")
set xFile = Fs.GetFolder(server.Mappath("./test/"))
For Each x In xFile.Files
    Fo.AddNew
    Fo.Fields("name").Value = x.Name
    Fo.Fields("size").Value = x.Size
    Fo.Fields("date").Value = x.DateCreated
    Fo.Fields("type").Value = x.Type
Next

Fo.Sort = "size ASC, date DESC"
Fo.MoveFirst

Do While Not Fo.EOF
    %>
    <p>
        <%= Fo.Fields("name").Value %>
        <%= Fo.Fields("size").Value %>
        <%= Fo.Fields("date").Value %>
        <%= Fo.Fields("type").Value %><br>
    </p>
    <%
    Fo.MoveNext
Loop

Fo.Close
Set Fo = Nothing
%>

Dt moet eigenlijk bes te doen zijn dacht ik.. maar het valt dus tegen want krijg die foutmeling. Op regel 7. Dat is " Fo.Fields.Append "type", adVarChar, 255 " wat volgen mij wel goed is.

[bigben04]

Weet je zeker dat dat de regel is waar de fout optreedt? Het lijkt me namelijk sterk, aangezien je een paar regels erboven exact hetzelfde uitvoert, alleen met een andere naam. Als ik 2 regels lager kijk (Server.CreateObject....) en ik google op Server.CreateObject i.c.m. die errorcode kom ik hier uit, misschien kan je er iets mee (maar misschien ook wel helemaal niet ).

disclaimer: Ik heb nog nooit met ASP gewerkt dus ik kan er ook helemaal naast zitten

[ Voor 11% gewijzigd door bigben04 op 19-12-2003 01:18 ]

[RobIII]

adVarChar is een constante die standaard niet bekend is in ASP.

Je precieze foutmelding zou meer voor ons betekenen, maar ik gok op het volgende:

Gooi dit eens bovenaan in je code:

code:

Const adVarChar = 200

Gaat regel 7 dan goed, dan mag je de andere constantes zelf googlen of opzoeken in adovbs.inc

edit:

Bijnader inzien misschien toch ook niet, want dan zou 'ie regels 4 t/m 6 ook niet pakken...

[ Voor 13% gewijzigd door RobIII op 19-12-2003 01:27 ]

[P_de_B]

Misschien dat je hier wat aan hebt? Lijkt mij persoonlijk een veel betere manier

[semicon]

sorry dat ik zo laat reageer, iig bedankt zover.

AAAAAAAAAHH!


Het probleem is opgelost, na wat onderzoek op die guys for rella pagina.
Zag het in 1 keer...

[ Voor 110% gewijzigd door semicon op 19-12-2003 16:59 ]

[RobIII]

Fijn dat je ook even vermeldt wat het was...
Nu hebben anderen er ook nog iets aan

NOFI

[xtra]

RobIII schreef op 19 december 2003 @ 17:15:
Fijn dat je ook even vermeldt wat het was...
Nu hebben anderen er ook nog iets aan

NOFI

Eén troost. De fout zit niet in de code want bij mij werkt hij in één keer.