selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

Re: ASP Filter starten

Autor: loni [Beiträge: 3]
Datum: 10.05.2012 23:41:54

> Hallo,
>
> kannst du uns nocheinmal genau sagen was du mit
> deinem Quelltext machen möchtest?

Besten Dank für deine Antwort. Ich habe das Problem gelöst.
Leider haben sich im laufe der weiterentwicklung weitere Hürden ergeben. So habe ich ein Formular in welchem ich rechte zur bearbeitung der Datenbank vergebe. Ebenso möchte ich je nach bedarf einen Filter mitgeben, so dass der User nicht alle Datensätze sieht. Wie mache ich das, dass ich den Filter mit zusammenklicken erstelle und dieser im Feld Filter auch gleich angezeigt wird?

Habe noch den Code der Seite:

Der nachstehende Code funktioniert, zeigt aber die Aktualisierung nicht.

<%
        fehler=0
if request.QueryString("filtern")=1 then
           swhere=chk_where_such(swhere, "fvjahr") 'auf inhalt prüfen nicht 1 or 0 sondern len > 0
           swhere=chk_where_such(swhere, "mitgliedseit") 'auf inhalt prüfen nicht 1 or 0 sondern len > 0
           swhere=chk_where_such(swhere, "zugehoerig")
           swhere=chk_where_such(swhere, "gold")
           swhere=chk_where_such(swhere, "sammler")
           swhere=chk_where_such(swhere, "inserent")
           swhere=chk_where_such(swhere, "sponsor")
           swhere=chk_where_such(swhere, "lieferant")
           swhere=chk_where_such(swhere, "helfer")
           swhere=chk_where_such(swhere, "helfervon")
           swhere=chk_where_such(swhere, "vorstand")
           swhere=chk_where_such(swhere, "ehrenm")

end if

        'gewählten datensatz öffnen
        SqlStrg = "SELECT * FROM tbl_benutzer WHERE ID_benutzer=" & request.QueryString("id")
        set recMain = fhdb.Execute(SqlStrg)

        'bearbeitete daten speichern
        if request.QueryString("save")="1" then

                if len(request.Form("bname"))>0 AND len(request.Form("passw"))>0 AND len(request.Form("admin"))>0 AND len(request.Form("id_kunde"))>0 then

                        Set rst = Server.CreateObject("ADODB.Recordset")
                        rst.Open "SELECT * FROM tbl_benutzer WHERE ID_benutzer="&request.QueryString("id"), fhdb,2,3

                        rst("bname")                = request.Form("bname")
                        rst("passw")                = request.Form("passw")
                        rst("berechtigung")         = request.Form("berechtigung")
                        rst("admin")                = request.Form("admin")
                        rst("id_kunde")             = request.Form("id_kunde")
                                 if request.QueryString("filtern")=1 then
                                          if len(swhere)>0 then rst("Filter")= swhere
                                 end if
                        rst("erfasst")              = date()
                        rst("update")               = date()

                        rst.Update
                        rst.Close
                        response.Redirect "index.asp?site=17"
                else
                        fehler=1
                end if
        end if
%>

<table align="right" border="0" width="1100" cellspacing="3" cellpadding="0" class="txtregular">
        <tr>
                <td colspan="2" class="txt_titel">
                        Benutzer bearbeiten
                </td>
        </tr>
        <tr><td colspan="2"> </td></tr>
        <%if fehler=1 then%>
                <tr>
                        <td colspan="2" class="txtsmall">
                                <font color="red">Alle Felder mit einem * müssen ausfühlt sein.</font>
                        </td>
                </tr>
                <tr>
                        <td colspan="2">
                                 
                        </td>
                </tr>
        <%end if%>
        <form action="index.asp?site=19&save=1&filtern=1&id=<%=request.QueryString("id")%>" method="post">
        <tr>
                <td colspan="2">
                        <hr size="1" color="#D2D2D2">
                </td>
        </tr>
        <tr><td width="200">Name: *</td><td width="700"><Êll strDropDownList("id_kunde","id_kunde","nname","tbl_kunden","vorstand='1'",recMain("id_kunde"),"Details neu...")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr><td>Benutzername: *</td><td><Êll feld_Edit("bname")%></td></tr>
        <tr><td>Passwort: *</td><td><Êll feld_Edit("passw")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr><td>Berechtigung: *</td><td><Êll strDropDownList("berechtigung","id","beschreibung","tbl_benutzer_rechte","",recMain("berechtigung"),"Berechtigung neu...")%></td></tr>
        <tr><td>Datenfilter: *</td><td><Êll feld_Edit("Filter")%></td></tr>
        <tr><td>Administrator: *</td><td><Êll janein_Edit("admin")%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr>
                <td colspan="2">
                        <input type="button" value="Zurück" class="button" onClick="window.location.href='index.asp?site=17'">
                        <input type="submit" value="Speichern" class="button">
                </td>
        </tr>
        <tr>
                <td colspan="2" class="txt_titel"> Datenfilter erstellen</td>
        </tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
                 <tr><td>Frohsinnvater:</td><td><Êll janein_Neu("fvjahr")%></td></tr>
                 <tr><td>Mitglied:</td><td><Êll janein_Neu("mitgliedseit")%></td>
                                       <td><Êll chkbox("chkmitglied","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Zugehörigkeit: </td><td><Êll strDropDownList("zugehoerig","id","zunft","tbl_zugehoerig","","","suche...")%></td>
                                             <td><Êll chkbox("chkzugehoerig","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Goldplakettenträger:</td><td><Êll janein_Neu("gold")%></td>
                                                  <td><Êll chkbox("chkgold","AND","AND","OR","OR",1)%></td></tr>
                 <tr>
                         <td colspan="2">
                                 <hr size="1" color="#D2D2D2">
                         </td>
                 </tr>
                 <tr><td>Sammler:</td><td><Êll janein_Neu("sammler")%></td>
                                      <td><Êll chkbox("chksammler","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Inserent:</td><td><Êll janein_Neu("inserent")%></td>
                                       <td><Êll chkbox("chkinserent","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Sponsor:</td><td><Êll janein_Neu("sponsor")%></td>
                                      <td><Êll chkbox("chksponsor","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Lieferant:</td><td><Êll janein_Neu("lieferant")%></td>
                                        <td><Êll chkbox("chklieferant","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Helfer:</td><td><Êll janein_Neu("helfer")%></td>
                                     <td><Êll chkbox("chkhelfer","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Helfer von: </td><td><Êll strDropDownList("helfervon","id","amt","tbl_Vorstandamt","","","suche...")%></td>
                                          <td><Êll chkbox("chkhelfervon","AND","AND","OR","OR",1)%></td></tr>
                 <tr>
                         <td colspan="2">
                                 <hr size="1" color="#D2D2D2">
                         </td>
                 </tr>
                 <tr><td>Vorstand:</td><td><Êll janein_Neu("vorstand")%></td>
                                       <td><Êll chkbox("chkvorstand","AND","AND","OR","OR",1)%></td></tr>
                 <tr><td>Ehrenmitglied:</td><td><Êll janein_Neu("ehrenm")%></td>
                                            <td><Êll chkbox("chkehrenm","AND","AND","OR","OR",1)%></td></tr>
        <tr>
                <td colspan="2"><hr size="1" color="#D2D2D2"></td>
        </tr>
        <tr>
                <td>

                </td>
        </tr>
        <tr>
                <td colspan="2">
                        <input type="submit" value="Filter setzen" class="button">
                </td>
        </tr>
        <tr>
                <td colspan="2"> </td>
        </tr>
</table>


Beiträge

Antwort schreiben

Username: Usernamen registrieren
Passwort: Passwort vergessen?
Thema:
  Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:
Link (URL):
Titel für Link:
Grafik (URL):
  Die Breite der Grafik darf 468 Pixel nicht überschreiten.
 
E-Mail-Benachrichtigung:



Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Webhosting Provider bewerten und Apple iPad gewinnenWie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...