Hallo Roman,
hier das Recordset:
Set Daten = Server.CreateObject("ADODB.Recordset")
If Z_Bereich <> "" OR Z_Produkt <> "" OR Z_Person <> "" Then
DatenVoll = "WHERE "
End If
If Z_Produkt = "" AND Z_Bereich <> "" Then
Z_Bereich = Z_Bereich & "%"
DatenVoll = DatenVoll & "Bereich LIKE '" & Z_Bereich & "' AND "
ElseIf Z_Produkt <> "" AND Z_Bereich <> "" Then
Z_Bereich = Z_Bereich & " - " & Z_Produkt
DatenVoll = DatenVoll & "Bereich = '" & Z_Bereich & "' AND "
End If
If Z_Person <> "" Then
DatenVoll = DatenVoll & "Person = '" & Z_Person & "'"
End If
If Z_Gruppieren = "Bereich / Produkt" OR Z_Gruppieren = "" Then
If Z_Sortiert = "Bereich / Produkt" OR Z_Sortiert = "" Then
Daten.Open "SELECT Bereich, SUM(Zeit) AS GesamtZeit FROM ProductTime "
& DatenVoll & " GROUP BY Bereich ORDER BY Bereich", VerbindenSQL, adOpenDynamic,
adLockOptimistic
ElseIf Z_Sortiert = "Mitarbeiter" Then
Daten.Open "SELECT Bereich, SUM(Zeit) AS GesamtZeit FROM ProductTime "
& DatenVoll & " GROUP BY Bereich ORDER BY Person", VerbindenSQL, adOpenDynamic,
adLockOptimistic
ElseIf Z_Sortiert = "Zeit" Then
Daten.Open "SELECT Bereich, SUM(Zeit) AS GesamtZeit FROM ProductTime "
& DatenVoll & " GROUP BY Bereich ORDER BY GesamtZeit", VerbindenSQL, adOpenDynamic,
adLockOptimistic
End If
ElseIf Z_Gruppieren = "Bereich / Produkt - Mitarbeiter" Then
If Z_Sortiert = "Bereich / Produkt" OR Z_Sortiert = "" Then
Daten.Open "SELECT Bereich, Person, SUM(Zeit) AS GesamtZeit FROM
ProductTime " & DatenVoll & " GROUP BY Bereich, Person ORDER BY Bereich",
VerbindenSQL, adOpenDynamic, adLockOptimistic
ElseIf Z_Sortiert = "Mitarbeiter" Then
Daten.Open "SELECT Bereich, Person, SUM(Zeit) AS GesamtZeit FROM
ProductTime " & DatenVoll & " GROUP BY Bereich, Person ORDER BY Person", VerbindenSQL,
adOpenDynamic, adLockOptimistic
ElseIf Z_Sortiert = "Zeit" Then
Daten.Open "SELECT Bereich, Person, SUM(Zeit) AS GesamtZeit FROM
ProductTime " & DatenVoll & " GROUP BY Bereich, Person ORDER BY GesamtZeit",
VerbindenSQL, adOpenDynamic, adLockOptimistic
End If
ElseIf Z_Gruppieren = "Bereich / Produkt - Mitarbeiter - Datum" Then
If Z_Sortiert = "Bereich / Produkt" OR Z_Sortiert = "" Then
Daten.Open "SELECT Bereich, Person, Datum, SUM(Zeit) AS GesamtZeit
FROM ProductTime " & DatenVoll & " GROUP BY Bereich, Person, Datum ORDER BY Bereich",
VerbindenSQL, adOpenDynamic, adLockOptimistic
ElseIf Z_Sortiert = "Mitarbeiter" Then
Daten.Open "SELECT Bereich, Person, Datum, SUM(Zeit) AS GesamtZeit
FROM ProductTime " & DatenVoll & " GROUP BY Bereich, Person, Datum ORDER BY Person",
VerbindenSQL, adOpenDynamic, adLockOptimistic
ElseIf Z_Sortiert = "Zeit" Then
Daten.Open "SELECT Bereich, Person, Datum, SUM(Zeit) AS GesamtZeit
FROM ProductTime " & DatenVoll & " GROUP BY Bereich, Person, Datum ORDER BY
GesamtZeit", VerbindenSQL, adOpenDynamic, adLockOptimistic
End If
End If
Gru� Anja
-----Urspr�ngliche Nachricht-----
Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
Gesendet: Wednesday, March 06, 2002 12:10 PM
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: AW: RE: RecordsetItem
Nun wo fragst du da das recordset ab? :-)!
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
>-----Original Message-----
>From: Weisselberg Anja [mailto:[EMAIL PROTECTED]]
>Sent: Wednesday, March 06, 2002 5:59 PM
>To: ASP Diskussionsliste fuer Anfaenger
>Subject: [aspdebeginners] AW: RE: RecordsetItem
>
>
>Hallo Roman,
>
>irgendwie bring ich es nicht zum laufen. Ich schick mal den
>Code mit, vielleicht wei�t Du ja falsch ist.
>
><TABLE width="90%" align="center" bgcolor="#E9E9E9"
>bordercolor="#000000" border="1"> <TR> <TD
>width="50%"><B>Bereich:</B></TD> <% If Not
>LEN(Daten("Person")) = 0 Then %>
> <TD width="25%"><B>Mitarbeiter:</B></TD>
><% End If %>
><% If Not LEN(Daten("Datum")) = 0 Then %>
> <TD><B>Datum:</B></TD>
><% End If %>
><TD><B>Zeit:</B></TD>
></TR>
><% NoResults = True
>Do Until Daten.EOF
> NoResults = False %>
> <TR>
> <TD><%=Daten("Bereich")%></TD>
> <% If Not LEN(Daten("Person")) = 0 Then %>
> <TD><%=Daten("Person")%></TD>
> <% End If %>
> <% If Not LEN(Daten("Datum")) = 0 Then %>
> <TD><%=Daten("Datum")%></TD>
> <% End If %>
> <% Z_Zeit = Daten("GesamtZeit") / 10 %>
> <TD><%=Z_Zeit%> Std.</TD>
> </TR>
> <% Daten.MoveNext
>Loop %>
></TABLE>
>
>Gru� Anja
>
>-----Urspr�ngliche Nachricht-----
>Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
>Gesendet: Wednesday, March 06, 2002 11:44 AM
>An: ASP Diskussionsliste fuer Anfaenger
>Betreff: [aspdebeginners] RE: RecordsetItem
>
>
>IF NOT len(Conn) = 0 then
>
>Gruss
>
>Roman Pittroff
>Consulting
>Bangkok, Thailand
>
>>-----Original Message-----
>>From: Weisselberg Anja [mailto:[EMAIL PROTECTED]]
>>Sent: Wednesday, March 06, 2002 5:39 PM
>>To: ASP Diskussionsliste fuer Anfaenger
>>Subject: [aspdebeginners] RecordsetItem
>>
>>
>>Hallo Leute,
>>
>>kann mir jemand ob es eine M�glichkeit gibt zu pr�fen ob ein
>>RecordsetItem auch wirklich existiert.
>>
>>Gru� Anja
>>
>>| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
>>| [aspdebeginners] als [EMAIL PROTECTED] subscribed
>>| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
>>| knnen sich unter folgender URL an- und abmelden:
>>|
>http://www.aspgerman.com/aspgerman/listen/anmel>den/aspdebeginners.asp
>>
>
>
>| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
>| [aspdebeginners] als [EMAIL PROTECTED] subscribed
>| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
>| Sie knnen sich unter folgender URL an- und abmelden:
>| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
>| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
>| [aspdebeginners] als [EMAIL PROTECTED] subscribed
>| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
>| Sie knnen sich unter folgender URL an- und abmelden:
>| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
