Select form och for-slinga

Hej!

Kan någon se något fel på denna koden?

SQLStmt = "SELECT Kategori FROM b1180.Kategorier ORDER BY Kat_Id "
arrRas = strConn.Execute(SQLStmt).GetRows()

Response.write "<p><select name=""Ras1"" size=""1"">"

For I = 0 To UBound(arrRas,2)
strRas = arrRas(0,I)
Response.Write "<option value="" "& strRas &" "">"& strRas &"</option>"
next
Response.Write "</select></p>"

Hela selecten skrivs ut som de ska och hela arrayen loopas igenom. Men jag vill ju att första rasen ska visas innan man fäller ut drop down menyn så att säga.

Har stirrat mig blid i en timme snart x(

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

hrrm, hur menar du?

(tycker för övrigt att det inte är rätt att i din option value ha mellanslag före och efter strRas.)

mvh,

------------------
can i borrow your goat?

Funkar jättebra för mig...

Vad får du för felmeddelande? :q

------------------
Say hello to my stinky little friend!

SQLStmt = "SELECT Kategori FROM b1180.Kategorier ORDER BY Kat_Id "
arrRas = strConn.Execute(SQLStmt).GetRows()
Response.write "<p><select name=""Ras1"" size=""1"">"

For I = 0 To UBound(arrRas,2)
strRas = arrRas(0,I)
if  I = 0 then
Response.Write "<option value="""& strRas &""" selected>"& strRas &"</option>"
else
Response.Write "<option value="""& strRas &""">"& strRas &"</option>"
end if
next
Response.Write "</select></p>"

Är det så du menar?

------------------
essentitia preter non sans multiplicandum

Hej!

Den blev kanon LarsG. Men det konstiga är att jag hade en identiskt SELECT till som skrevs ut rätt. Den ovan var ctrl c - ctrl v till en annan sida bara, men ville inte skrivas ut. korrekt :q

Skit i samma, LarsG:s fungerar bra :)

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

[Redigerat av jorgen den 21 aug 2001]