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
