Attachmate problem

Nå jeg fandt på en slags løsning, måske ikke den mest elegante men den virker da, hvis nogen kan vise mig en flottere en så er jeg lutter øre :)

      X = 1
    While X < 13
          if    X = 1 then
            PRODX = PROD1
          Elseif X = 2 then
            PRODX = PROD2
          Elseif X = 3 then
            PRODX = PROD3
          Elseif X = 4 then
            PRODX = PROD4
          Elseif X = 5 then
            PRODX = PROD5
          Elseif X = 6 then
            PRODX = PROD6
          Elseif X = 7 then
            PRODX = PROD7
          Elseif X = 8 then
            PRODX = PROD8
          Elseif X = 9 then
            PRODX = PROD9
          Elseif X = 10 then
            PRODX = PROD10
          Elseif X = 11 then
            PRODX = PROD11
          Elseif X = 12 then
            PRODX = PROD12
          End if
               
                     
        Sess0.Screen.PutString PRODX,2,5            '
        Sess0.Screen.Sendkeys("<Enter>")
           
    Sess0.Screen.MoveTo 7,21
        Sess0.Screen.Sendkeys("<PF16>")
   

    Sess0.Screen.PutString NYKODE,6,38
    Sess0.Screen.Sendkeys("<PF1>")
    Sess0.Screen.Sendkeys("<PF12>")
   
    X = X + 1
      wend

Ville det ikke være hensigtsmæssigt at rette spørgsmålet til de eksperter, der specielt har fod på det programmeringssprog, du bruger, så prøv at lede i Programmering/Script/ASP eller Programmering/Script/VBScript !-)

Jo da