[ASP] Formulier verkleinen - Softwareontwikkeling

donderdag 12 december 2002 15:55

Acties:

Verwijderd

Topicstarter

Hey,

Ik heb een mooi formulier gemaakt dmv mn ASP boek. Met dit formulier kan ik de mensen die mijn site bezoeken heel makkelijk laten kiezen over welk boek ze iets willen weten.

Ze kiezen namelijk eerst het genre, dan de schrijver, voornaam schrijver en vervolgens de titel. Dan worden alle recensies die in de db staan te voorschijn gehaald.

Nu is het probleem dat ik deze dropdown menu's allemaal op verschillende pagina's heb, maar ik wil ze graag allemaal overzichtelijk onder elkaar.

Ik heb mn boek al heel veel gecheckt maar kan daar het juiste ook niet vinden

.
Tevens heb ik mn SQL al aangepast:

code:

1	"SELECT * FROM tabel WHERE optie1 = " & optie1 & " and optie2 = " & optie2¨

maar dat werkte ook niet

De code staat hieronder, kan iemand me vertellen wat ik aan moet passen ?

THNX $_/-\o_$

code:

<html>
<head>

</head>
<%
Dim Conn

Set Conn = Server.CreateObject("ADODB.connection") 
Conn.Open "blaat","blaat","blaat"

If Request.QueryString("soort") <> "" Then
    'gegevens opbouwen
    Session("soort") = Request.QueryString("soort")
    Set objRS = Conn.Execute("SELECT DISTINCT schrijver FROM tblboeken Where soort = '" & Session("soort") & "' ORDER BY schrijver")
    If Not (objRS.EOF And objRS.BOF) Then%>
        <form action="boeken.asp" method="get">
        Welke Schrijver : 
        <select name="schrijver">
            <option></option>
        <%Do While Not objRS.EOF%>
            <option value="<%= objRS.Fields("schrijver") %>"><%= objRS.Fields("schrijver")%></option>
            <%objRS.MoveNext
        Loop%>
        </select>
        <input type="submit" value="Zoek" />
        </form>
    <%Else%>
        Sorry wij hebben geen <%=request("soort")%>
    <%End If
ElseIf Request.QueryString("schrijver") <> "" Then
    'gegevens opbouwen
    Session("schrijver") = Request.QueryString("schrijver")
    Set objRS = Conn.Execute("SELECT DISTINCT [voornaamschrijver] FROM tblboeken Where soort = '" & Session("soort") & "' and schrijver = '" & session("schrijver") & "' ORDER BY [voornaamschrijver]")
    If Not (objRS.EOF And objRS.BOF) Then%>
        <form action="boeken.asp" method="get">
        Voornaam: 
        <select name="voornaamschrijver">
            <option></option>
        <%Do While Not objRS.EOF%>
            <option value="<%= objRS.Fields("voornaamschrijver") %>"><%= objRS.Fields("voornaamschrijver")%></option>
            <%objRS.MoveNext
        Loop%>
        </select>
        <input type="submit" value="Zoek" />
        </form>
    <%Else%>
        Sorry wij hebben geen <%=session("soort")%> van <%=request("schrijver")%>
    <%End If
    objRS.Close
ElseIf Request.QueryString("voornaamschrijver") <> "" Then
    'gegevens opbouwen
    Session("voornaamschrijver") = Request.QueryString("voornaamschrijver")
    Set objRS = Conn.Execute("SELECT DISTINCT naamboek FROM tblboeken Where soort = '" & Session("soort") & "' and schrijver = '" & session("schrijver") & "' and [voornaamschrijver] = '" & session("voornaamschrijver") & " ' ORDER BY naamboek")
    If Not (objRS.EOF And objRS.BOF) Then%>
        <form action="boeken.asp" method="get">
        Titel boek: 
        <select name="naamboek">
            <option></option>
        <%Do While Not objRS.EOF%>
            <option value="<%= objRS.Fields("naamboek") %>"><%= objRS.Fields("naamboek")%></option>
            <%objRS.MoveNext
        Loop%>
        </select>
        <input type="submit" value="Zoek" />
        </form>
    <%Else%>
        Sorry wij hebben geen <%=session("soort")%> van <%=session("schrijver")%> met het als voornaam <%=request("voornaamschrijver")%>
    <%End If
    objRS.Close
ElseIf Request.QueryString("naamboek") <> "" Then
        Set objRS = Conn.Execute("SELECT * FROM tblboeken WHERE soort = '" & session("soort") & "' AND [schrijver] = '" & session("schrijver") & "' AND [voornaamschrijver] = '" & session("voornaamschrijver") & "' And [naamboek] = '" & Request.QueryString("naamboek") & "'")
    If Not (objRS.EOF And objRS.BOF) Then%>
        </head>
        <table border="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" height="44" width="1125">
        <%'objRS.Open "SELECT DISTINCT soort FROM tblboeken ORDER BY soort", objDC, 0, 1
        Do While Not objRS.EOF%>
            <tr>
            <td width="175">
            <a href="bekijkitem.asp?ID=<%= objRS.Fields("ID") %>"><%= objRS.Fields("Tekst") %></a>
            </td>
            <td width="150">
            <%= objRS.Fields("Uitkomst") %>
            </td>
            </tr>
            <%objRs.MoveNext
        Loop%>
        </table>
    <%Else%>
        Sorry wij hebben geen <%=session("soort")%> van <%=session("schrijver")%> met het als voornaam <%=session("voornaamschrijver")%> met als titel <%=request("naamboek")%>
    <%End If
    Set objRS = Nothing
ElseIf Request.QueryString = "" Then
    Set objRS = Conn.Execute("SELECT DISTINCT soort FROM tblboeken ORDER BY soort")%>
    <form action="boeken.asp" method="get">
    Soort Boek :
    <select name="soort">
        <option></option>
        <%Do While Not objRS.EOF%>
            <option value="<%= objRS.Fields("soort") %>"><%= objRS.Fields("soort")%></option>
            <%objRS.MoveNext
        Loop%>
        </select>
        <input type="submit" value="Zoek" />
    </form>
<%
End If

Conn.Close
Set Conn = Nothing
%>
</body>
</html>

donderdag 12 december 2002 16:05

Acties:

Glimi

Designer Drugs

Zou je even je post willen aan passen aan Welkom in P&W -> Quickstart (update 2/10/2002). We gooit een hele lap code neer, terwijl het maar om een klein stukje gaat. Tevens moet je ook even wat initiatief laten zien hoor. Gewoon je code neergooien en het ons laten oplossen is niet echt wat de bedoeling is.
Je zou bijvoorbeeld de code kunnen isoleren tot 2 dropdown menu's zonder al die overbodige code en dan doormiddel van debuggen (zie de FAQ! ) kijken wat er precies mis gaat.

donderdag 12 december 2002 16:06

Acties:

drm

f0pc0dert

overigens is dit een clientside / design en daarmee een Webdesign & Graphics probleem, dus hoort ook hier nog 's niet thuis.

*kloenk* dus.

Music is the pleasure the human mind experiences from counting without being aware that it is counting
~ Gottfried Leibniz