[?] Sort In Adox

[sfinge]

CIAO..COME POSSO MODIFICARE QUESTO CODICE AFFINCHE' LA TABELLA CREATA VENGA GIA' FILTRATA CON UN SORT CRESCENTE SU "nome" e "indirizzo"

<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
--><%

Set objADOXDb = Server.CreateObject("ADOX.Catalog")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; " &_
"Data Source=" & Server.MapPath("prova.mdb")

' creo il database
objADOXDb.Create strConn

' creo l'oggetto per manipolare le tabelle
Set objTable = Server.CreateObject("ADOX.Table")

' nome della tabella
objTable.Name = "Lista"

' colonne da creare
objTable.Columns.Append "ID", adInteger
objTable.Columns.Append "nome", adVarWChar, 90
objTable.Columns.Append "indirizzo", adVarWChar, 90
objTable.Columns.Append "E-mail", adVarWChar, 90

' creo una chiave primaria
objTable.Keys.Append "PK_ID", 1, "ID"

' aggiungo effettivamente la tabella
objADOXDb.Tables.Append objTable

' libero risorse
Set objTable = Nothing
Set objADOXDb = Nothing

If err.Number=0 then
Response.write "

Database creato con successo!</p">
Else
Response.write "

Errore: " & err.description
End if

%>