Stimmt genau. Was meinst du mit Steuerelement? Gibt es eine M�glichkeit Wert trotzdem irgendwie zu �bergeben?
-----Urspr�ngliche Nachricht----- Von: Boos, Ilona [mailto:[EMAIL PROTECTED]] Gesendet: Thursday, February 21, 2002 1:11 PM An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] AW: javascript in vbscript-asp-Seite 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 | 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
