Ich habe eine Seite zur Zeiterfassung und wenn ich bei bei Bereich etwas ausw�hle dann
soll die Seite vom Server neu angefordert werden damit bei Projekt die richtigen
Eintr�ge drin stehen.
Hier die ganze Seite vielleicht hilft das.
Default.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 //EN">
<% Response.Buffer = true %>
<% RSDispatch %>
<!-- #include file="../../_ScriptLibrary/RS.ASP" -->
<!-- #include virtual="common/adovbs.inc" -->
<!-- #include file="Header.inc" -->
<SCRIPT LANGUAGE="JavaScript" for="Bereich" event="onclick">
Uebergabe = document.Eingabe.Bereich.value;
Auswahl = RSExecute("Default.asp?Bereich=Z_Bereich", Uebergabe);
Z_Bereich.value = Auswahl.return_value;
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Dateneingabe</TITLE>
</HEAD>
<BODY vlink="black" link="black" bgcolor="#E9E9E9">
<% FormularKopf("Dateneingabe")%><P>
<H4 align="center"><FONT face="Arial, Helvetica">Um das Produktfeld zu f�llen, bitte
den Auswahl-Button drücken!</FONT></H4>
<% Dim Datum, NameVoll, Mitarbeiter, DatenBereich, DatenProdukt, Verbinden,
VergleichBereich
Dim Z_Bereich, Z_Produkt, Z_Mitarbeiter, Z_Datum, Z_Zeit, BereichNr, MitarbeiterNr,
ProduktNr, Eingabe
Set Verbinden = Server.CreateObject("ADODB.Connection")
Verbinden.Open "Zeiten"
Set DatenBereich = Server.CreateObject("ADODB.Recordset")
DatenBereich.Open "SELECT Bereich FROM Daten ORDER BY Bereich", Verbinden,
adOpenDynamic, adLockOptimistic
Z_Bereich = Trim(Request("Bereich"))
If Z_Bereich = "" Then
DatenBereich.MoveFirst
Z_Bereich = DatenBereich("Bereich")
End If
Set DatenProdukt = Server.CreateObject("ADODB.Recordset")
DatenProdukt.Open "SELECT Produkt FROM Daten WHERE Bereich = '" & Z_Bereich & "' ORDER
BY Produkt", Verbinden, adOpenDynamic, adLockOptimistic
Z_Produkt = Trim(Request("Produkt"))
Set Mitarbeiter = Server.CreateObject("ADODB.Recordset")
Mitarbeiter.Open "SELECT * FROM Mitarbeiter ORDER BY Mitarbeiter", Verbinden,
adOpenDynamic, adLockOptimistic
NameVoll = Request.ServerVariables("Logon_User")
If NameVoll = "" Then
Z_Mitarbeiter = Trim(Request("Mitarbeiter"))
Else
Z_Mitarbeiter = NameVoll
End If
Z_Datum = Trim(Request("Datum"))
Z_Zeit = Trim(Request("Zeit"))
If Request("Bereich") = "" Or Request("Produkt") = "" Or Request("Mitarbeiter") = ""
Or Request("Datum") = "" Or Request("Zeit") = "" Then
On Error Resume Next %>
<FORM name="Eingabe" method = "POST" action =
"Default.asp?Z_Bereich=<%=Z_Bereich%>&Z_Produkt=<%=Z_Produkt%>&Z_Mitarbeiter=<%=Z_Mitarbeiter%>&Z_Datum=<%=Z_Datum%>&Z_Zeit=<%=Z_Zeit%>">
<TABLE align="center" bgcolor="#E9E9E9" bordercolor="#000000" border="0">
<TR>
<TD>Bereich:</TD>
<TD><SELECT name="Bereich" size="1">
<% VergleichBereich = Request("Bereich")
BereichNr = 0
Do until DatenBereich.EOF
If Z_Bereich = DatenBereich("Bereich") AND BereichNr = 0 Then %>
<OPTION selected><%= Z_Bereich %></OPTION><BR>
<% VergleichBereich = DatenBereich("Bereich")
DatenBereich.MoveNext
BereichNr = 1
ElseIf VergleichBereich <> DatenBereich("Bereich") Then %>
<OPTION><%= DatenBereich("Bereich") %></OPTION><BR>
<% VergleichBereich = DatenBereich("Bereich")
DatenBereich.MoveNext
Else
DatenBereich.MoveNext
End If
Loop %>
</SELECT></TD>
<TD><INPUT type="submit" value="Auswahl"></TD>
</TR>
<TR>
<TR>
<TD>Produkt:</TD>
<TD><SELECT name="Produkt" size="1">
<%ProduktNr = 0
Do until DatenProdukt.EOF
If Z_Produkt = DatenProdukt("Produkt") AND ProduktNr = 0 Then %>
<OPTION selected><%= Z_Produkt %></OPTION><BR>
<% ProduktNr = 1
Else %>
<OPTION><%= DatenProdukt("Produkt") %></OPTION><BR>
<% DatenProdukt.MoveNext
End If
Loop %>
</SELECT></TD>
</TR>
<TR>
<TD>Mitarbeiter:</TD>
<% MitarbeiterNr = 0
If Z_Mitarbeiter = "" Then %>
<TD><SELECT name="Mitarbeiter" size="1">
<OPTION></OPTION>
<% Do until Mitarbeiter.EOF
If Z_Mitarbeiter = Mitarbeiter("Mitarbeiter") AND
MitarbeiterNr = 0 Then %>
<OPTION selected><%= Z_Mitarbeiter %></OPTION><BR>
<% MitarbeiterNr = 1
Else %>
<OPTION><%= Mitarbeiter("Mitarbeiter") %></OPTION><BR>
<% Mitarbeiter.MoveNext
End If
LOOP %>
</SELECT>
<% Else %>
<INPUT type="text" size="50" name="Mitarbeiter" value="<%=
Z_Mitarbeiter %>">
<% End If %></TD>
</TR>
<TR>
<TD>Datum:</TD>
<% If Z_Datum = "" Then %>
<TD><INPUT type="date" size="10" name="Datum" value="<%= Datum
%>"></TD>
<% Else %>
<TD><INPUT type="date" size="10" name="Datum" value="<%= Z_Datum
%>"></TD>
<% End If %>
</TR>
<TR>
<TD>Zeit:</TD>
<% If Z_Zeit = "" Then %>
<TD><INPUT type="text" size="4" name="Zeit"></TD>
<% Else %>
<TD><INPUT type="text" size="4" name="Zeit" value="<%= Z_Zeit %>"></TD>
<% End If %>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
</TR>
<TR>
<TD> </TD>
<TD><INPUT type="submit" value="Bestätigung"></TD>
</TR>
</TABLE>
</FORM>
<% DatenBereich.Close
Set DatenBereich = Nothing
DatenProdukt.Close
Set DatenProdukt = Nothing
Mitarbeiter.Close
Set Mitarbeiter = Nothing
Verbinden.Close
Set Verbinden = Nothing
If Err.Number <> 0 Then %>
Leider trat ein Fehler auf.<P>
Error #<%=Err.Number%>: <%=Err.Description%><P>
<% End If
Else
On Error Resume Next
Set Verbinden = Server.CreateObject("ADODB.Connection")
Verbinden.Open "Zeiten"
Set Eingabe = Server.CreateObject("ADODB.Recordset")
Eingabe.Open "SELECT * FROM Zeiterfassung WHERE Bereich='" & Z_Bereich & "'",
Verbinden, adOpenDynamic, adLockOptimistic
DatenTabelle Z_Bereich, Z_Produkt, Z_Mitarbeiter, Z_Datum, Z_Zeit
Eingabe.AddNew
Eingabe("Bereich") = Z_Bereich
Eingabe("Produkt") = Z_Produkt
Eingabe("Mitarbeiter") = Z_Mitarbeiter
Eingabe("Datum") = Z_Datum
Eingabe("Zeit") = Z_Zeit
Eingabe.Update
If Err.Number = 0 Then %>
<FONT size=5><I>Ihre Daten wurden gesspeichert.</I></FONT><P>
<A href="default.asp">Home</A><P>
<% Else %>
Leider trat ein Fehler auf.<P>
Error #<%=Err.Number%>: <%=Err.Description%><P>
<% End If
Eingabe.Close
Set Eingabe = Nothing
Verbinden.Close
Set Verbinden = Nothing
End If %>
</BODY>
</HTML>
Header.inc
<% Sub FormularKopf(SeitenName) %>
<TABLE border="2" width="100%" bordercolor="black" bgcolor="#E9E9E9">
<TR>
<TD align="center" valign="center" width="33%"><FONT face="Arial, Helvetica"
size="5"><A href="Default.asp"><B>Dateneingabe </FONT></A></B></TD>
<TD align="center" valign="center" width="33%"><FONT face="Arial, Helvetica"
size="5"><A href="DatenSortiert.asp"><B>Daten sortiert</FONT></A></B></TD>
<TD align="center" valign="center" width="33%"><FONT face="Arial, Helvetica"
size="5"><A href="DatenSuche.asp"><B>Suche</FONT></A></B></TD>
</TR>
</TABLE>
<BR>
<TABLE border="2" width="100%" bordercolor="black" bgcolor="#E9E9E9">
<TD align="center"><FONT face="Arial, Helvetica" size="5"><B><%= SeitenName
%></B></FONT></TD>
</TABLE><P>
<% End Sub %>
<% Sub Sortieren %>
<TD><SELECT name="Sortiert" size="1">
<OPTION></OPTION><BR>
<OPTION>Bereich</OPTION><BR>
<OPTION>Produkt</OPTION><BR>
<OPTION>Mitarbeiter</OPTION><BR>
<OPTION>Datum</OPTION><BR>
<OPTION>Zeit</OPTION><BR>
</SELECT></TD>
<% End Sub %>
<% Sub DatenTabelle(Bereich, Produkt, Mitarbeiter, Datum, Zeit) %>
<TABLE border="0" width="100%" cellspacing="0" cellpadding="2">
<TR>
<TD width="25%">Bereich: </TD>
<TD><%= Bereich %></TD>
</TR>
<TR>
<TD width="25%">Produkt: </TD>
<TD><%= Produkt %></TD>
</TR>
<TR>
<TD width="25%">Mitarbeiter: </TD>
<TD><%= Mitarbeiter %></TD>
</TR>
<TR>
<TD width="25%">Datum: </TD>
<TD><%= Datum %></TD>
</TR>
<TR>
<TD width="25%">Zeit: </TD>
<TD><%= Zeit %></TD>
</TR>
</TABLE><P>
<% End Sub %>
| 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
