Select form och for-slinga

4 svar · 283 visningar · startad av Jörgen HP 20 aug. 2001

Jörgen HPMedlem sedan feb. 20012 412 inlägg

Trådstart20 aug. 2001 23:45#1

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

mvh Jörgen

@ndersMedlem sedan juni 200032 967 inlägg

21 aug. 2001 04:40#2

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,

KoplikMedlem sedan juli 20011 129 inlägg

21 aug. 2001 06:05#3

Funkar jättebra för mig...

Vad får du för felmeddelande?

LarsGMedlem sedan dec. 200012 464 inlägg

21 aug. 2001 07:41#4

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?

jorgenMedlem sedan feb. 20012 412 inlägg

21 aug. 2001 10:21#5

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

Skit i samma, LarsG:s fungerar bra

mvh Jörgen