Fler svarsalternativ än 9 st

2 svar · 220 visningar · startad av brw 7 juni 2002

brwMedlem sedan juli 2000619 inlägg

Frågan7 juni 2002 08:40#1

Hur ska jag ändra denna kod för att det ska gå att ha fler svarsalternativ än 9?

När jag trimmar fram numren så tar den ju Right,1 ... finns det nån smartare lösning?

SQLStmt4 = "Update fragor SET ok = 'j' WHERE id = "& fragaid &" "
Connection.Execute(SQLStmt4)

For each item in Request.Form
If IsNumeric(Right(item,1)) Then
ordning = Right(item,1)

SQLStmt = "INSERT INTO fragoralternativ(svar, fragaid, ordning) VALUES('"& Request.Form(item) &"', "& fragaid&", "& ordning &" )"
Connection.Execute(SQLStmt)
End If
Next

Connection.Close
Set connection = nothing

icaaqMedlem sedan okt. 20005 273 inlägg

7 juni 2002 09:21#2

Kan du inte skriva 01, 02, 03 osv osv

Sen kan du ju köra

[red]
Right(item, 2)[/red]

eller :OO

brwMedlem sedan juli 2000619 inlägg

7 juni 2002 11:13#3

Japp det funka.. fick trixa till lite bara..

Typ:

ordning = Right(item,2)

If ordning < 10 Then
ordning = Right(item,1)
End IF