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

[Markus Mühlich]

Hallo Rainer,

ich kann schon verstehen, wenn jemand vor Verzweiflung nicht weiter weiß und mal _eben_ vorbeischaut. Aber hier sind keine Hellseher, und was Du hier einfach mal hier so reinschmeißt ist schon doll :-(.

In diesem Geschnipsel sind jede Menge Möglichkeiten, warum das nicht läuft:

a) Falsche Datentypen
b) Sessions nicht gültig
c) Falsche SQL Syntax
d) falsche Logik

Also, sammle Dich mal - und versuch dann mal Dein Problem zu schildern und komme mit den in Frage kommenden Zeilen wieder zurück.

Viele Grüße aus Köln
Markus

[Uwe Nohl]

Hallo Rainer,

wer gibt nichts aus? Wo soll was woher ausgegeben werden? In Deinem Script-Teil kann ich nirgenwo erkennen, dass ein Ergebnis abgeliefert werden solln (response...). Bitte etwas präziser, wo es hakt.

Grüße
Uwe Nohl

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