For Next??

Har en kod där man ska kunna bestämma antal inputrutor med en siffra och med dess text från en settingsfil och koden för själva formuläret ser ut så här och funkar fint:

      **\<%For x = 1 To antalin%\>
      \<%=Inkomst(x)%\>: &nbsp;\<input type="text" name="\<%=Inkomst(x)%\>" size="15\>
      \<%Next%\>**

Sen såklart så finns formtaggarna men har de inte med här!

Koden dit det ska gå ser ut så här:

For x=1 To antalin
Inkomst" &x &" = Request.Form("Inkomst" &x)
If Inkomst" &x &" = "" Then Inkomst" &x &" = 0 End If
Next

Denna kod funkar inte :(

Det ska vara en mindre kod av denna:

**For x=1 To antalin
Inkomst1 = Request.Form("Inkomst1")
If Inkomst1 = "" Then Inkomst1 = 0 End If
Next

osv**

Hoppas någon kan hjälpa mig med detta problem jag har!

I VBScript kan du inte använda dynamisk variabeltilldelning på det sättet. Du måste nog använda en array för ändamålet.

Dim varInkomst
Redim varInkomst (antalin)
For x=1 To antalin 
varInkomst(x) = Request.Form("Inkomst" &x) 
If varInkomst(x) = "" Then varInkomst(x) = 0 End If 
Next

Ungefär. :)

Mvh,

Hur summerar man då alla varInkomst(x) ???

lngSumma = 0
for i = 1 to  ubound (varInkomst)
    lngSumma = lngSumma +cLng(varInkomst(i))
next

response.write lngSumma

Annars kan du ju göra den summeringen redan när du fyller upp arrayen.

Mvh,

Tackar så jättemycket :)