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