Was mach ich da nur falsch?!?!?!?!?

[Rainer Wittmann]

ER gibt keine Werte aus

wertesuchen = "select max(komponente) as komposda from komptemp where teilzu = " & Session("uppu") & " and aktuellesession = '" & Session("id") & "' and tempsession = '" & Session ("template") & "'"

set wertesuchenx = db.execute(wertesuchen)

'if not wertesuchenx("komposda") < 1 then
     diezahl = wertesuchenx("komposda")

a = 1
             While ( a <= diezahl)

alsdann = "select * from komptemp where komponente = " & a & " and aktuellesession = '" & Session("id") & "' and tempsession = '" & Session ("template") & "'"

set alsdannx = db.execute(alsdann)
          dim jetztaber
    jetztaber = alsdannx("einmodul")

if jetztaber < 1 then
                           aberhallo = aberhallo + alsdannx("text")
                           set alsdannx=Nothing

else

sql1="select komponente from listempkomp where tkid = " & alsdannx("einmodul")
         set sql1x=db.execute(sql1)
               wandelum1=replace(sql1x("komponente"),"QQWWQ",Chr(34))
                                 wandelum2=replace(wandelum1,"AASSD","'")
                                 aberhallo=aberhallo + wandelum2
                           set alsdannx=Nothing

end if

a=a+1
  wend