Jag har en dropdown som hämtar posterna från en SQL db. Problemet är att jag vill få den sorterad enl ASC. Går det att göra direkt i scriptet?

<%
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "mtblVardnuSpecialitet", objConn,,,adCmdTable
Do While Not objRs.EOF
Response.Write"<OPTION VALUE='"&objRS("specialitetsid")&"'>"
Response.Write objRS("specialitet")
objRS.MoveNext
Loop

'Clean up
objRS.Close
Set objRS=Nothing

objConn.Close
Set objConn=Nothing
%>
%>

Varför kör du inte en selectsats med sortering?

SELECT specialitetsid FROM mtblVardnuSpecialitet ORDER BY specialitetsid

/Johan

Jo det var min första tanke men jag får inte rätt på det, jag gjorde så här och det fungerar inte.

<%
Dim objRS
Dim strSQL

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "mtblVardnuSpecialitet", objConn,,,adCmdTable
Do While Not objRs.EOF

strSQL="SELECT specialitet FROM mtblVardnuSpecialitet ORDER BY specialitet"

Response.Write"<OPTION VALUE='"&objRS("specialitetsid")&"'>"
Response.Write objRS("specialitet")
objRS.MoveNext
Loop

'Clean up
objRS.Close
Set objRS=Nothing

objConn.Close
Set objConn=Nothing
%>

Vad får du inte rätt på? Vilket reultat får du?

[Edit]
Jag är absolut inte bra på ASP, men du ska väl inte ha strSQL inom while-loopen? Då kommer den bara sortera varje post, 1 åt gången.

Du måste använda sql-strängen också...

<code>
<%
Dim objRS
Dim strSQL

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT specialitet FROM mtblVardnuSpecialitet ORDER BY specialitet", objConn
Do While Not objRs.EOF

Response.Write"<OPTION VALUE='"&objRS("specialitetsid")&"'>"
Response.Write objRS("specialitet")
objRS.MoveNext
Loop

'Clean up
objRS.Close
Set objRS=Nothing

objConn.Close
Set objConn=Nothing
%>
</code>

/Johan

Jag någon fena på ASP, jag har provat med strSQL på olika ställen och då också innan Do While.

Felet är att listan inte sorteras alls, den listas helt enkelt i den ordningen de är inskrivna i tabellen.

så här ser scriptet ut nu

<%
Dim objRS
Dim strSQL

strSQL="SELECT specialitet FROM mtblVardnuSpecialitet ORDER BY specialitet asc"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "mtblVardnuSpecialitet", objConn,,,adCmdTable

Do While Not objRs.EOF
Response.Write"<OPTION VALUE='"&objRS("specialitetsid")&"'>"
Response.Write objRS("specialitet")
'Response.Write objRS("specialitet")
objRS.MoveNext
Loop

'Clean up
objRS.Close
Set objRS=Nothing

objConn.Close
Set objConn=Nothing
%>

Asc behöver du inte använda, det är i default redan.

Använd exemplet Johan skrev ovan så ska det nog fungera.

Tack Johan
Såg inte ditt svar först. Det fungerar utmärkt efter en lite ändring till, efter Option Value skall det vara specialitet och inte specialitetsid.

Tack för hjälpen