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
