Anja,
wenn ich dich richtig verstanden habe, du willst mit Hilfe von
RSExecute-Funktion eine asp Seite mit angeh�ngten Informationen
ausf�hren.Danach willst die Ergebnisse an eine in VB-Script definierte
Variable ( Z_Bereich) zuweisen. In deinem Programm habe ich keinen
Steuerelement mit dem Namen Z_Bereich gefunden. So geht es nicht. In
JavaScript sind alle in VB-Script definierte variablen unsichtbar,die sind
da nicht g�ltig.
Oder habe ich etwas verguckt?
> -----Urspr�ngliche Nachricht-----
> Von: Weisselberg Anja [SMTP:[EMAIL PROTECTED]]
> Gesendet am: Donnerstag, 21. Februar 2002 12:36
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] AW: javascript in vbscript-asp-Seite
>
> 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_Mitarbeit
> er=<%=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
| 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
