an deiner Stelle ich w�rde Button "submit" klicken oder dieser Klick emitieren Z.B. document.myform.submit(); > -----Urspr�ngliche Nachricht----- > Von: Weisselberg Anja [SMTP:[EMAIL PROTECTED]] > Gesendet am: Donnerstag, 21. Februar 2002 14:29 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: javascript in vbscript-asp-Seite > > Super, danke! > Nur noch eine kleine Frage: Wie bring ich javascript dazu das es die Seite > erneut vom Server holt? > > -----Urspr�ngliche Nachricht----- > Von: Boos, Ilona [mailto:[EMAIL PROTECTED]] > Gesendet: Thursday, February 21, 2002 1:37 PM > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: javascript in vbscript-asp-Seite > > > einen Steuerelement ist etwas, was sich auf einer HTML-Seite befindet. Z.B > <input type="text">, > <inbut type="button"> oder noch etwas. > Du mas alle werte di du an VB-Script �bergeben willst an irgend-welche > versteckte Felder, die auch Steuerelemente sind,zuweisen. In > value-Eigenschaft von diesen Feldern, muss du in > <%=%> klammern deine variable von VBScripr reinschreiben. > Es sieht so z.B aus. > <% > Dim Z_Bereich 'Hier defenierst du eine Variable in VB-Script > %> > > Hier ist dein verstecktes Feld und Select-Steuerelement plaziert. > <body> > <form name="myform" method="post"> > <SELECT name="Bereich" size="1" onClick="return aktualisieren()"> > <INPUT type=hidden name="JSvar" value="<%=Z_Bereich%>"> > </form> > </body> > > Hier ist deinen JavaScript -Code > <SCRIPT LANGUAGE=JavaScript> > <!-- > function aktualisieren() > { > document.myform.JSvar.value = Auswahl; > } > --> > </Script> > Nat�rlich an die Variable Auswahl, m�ssen vorher bestimmte werte > zugewiesen > werden. > > > > > -----Urspr�ngliche Nachricht----- > > Von: Weisselberg Anja [SMTP:[EMAIL PROTECTED]] > > Gesendet am: Donnerstag, 21. Februar 2002 13:15 > > An: ASP Diskussionsliste fuer Anfaenger > > Betreff: [aspdebeginners] AW: javascript in vbscript-asp-Seite > > > > 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 > > | 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
