Avatar billede lbos Nybegynder
04. marts 2003 - 18:15 Der er 6 kommentarer og
1 løsning

er helt galt på den

Hej !
Jeg har en search.asp som der er 4 radiobuttons det skal være sådan at når trykker jeg er en (mand) som søger (kvinde)
så skal den gå i dben og hente alle de kvinder som søger en mand. Og omvendt
her er min script
<%@ LANGUAGE = VBScript%><%Response.Buffer = True%><html>

<head>
<!-- #include File=databasen.asp-->
</head>

<body bgcolor="#A1C2F7">
<%
sex = Request.Form("sex")
%>

<form method="post">

<p>

<p>jeg er:
<input type="radio" name="sex" value="r"> kvinde
<input type="radio" name="sex" value="g"> mand.
    &nbsp;</p>
    </form>

<form method="post">
    <p>som søger :<input type="radio" name="lookfor" value="a">mand.
    <input type="radio" name="lookfor" value="b">kvinde
    &nbsp;</p>
</form>
<form method="post">

<input type="submit" name="btnSearch" value="Search" style="color:white; background-color:rgb(161,194,247);"></p>
    </form>

&nbsp;
<p><%Select Case Request.Form("sex")
Case "r"
    sex = "mand"
Case "g"
    sex = "kvinde"
Case "a"
    lookfor = "mand"
Case "b"
    lookfor = "kvinde"

End Select
'Else

    Response.Write "<p align=center><b>" & sex & "&nbsp;</b></p><br>"
   
   
    Set con = server.CreateObject("ADODB.Connection")
    con.Open Ketab

    Set RS = Server.CreateObject("ADODB.Recordset")


    SQL = "Select * From users Where sex = '" & sex & "'"

    RS.open sql, con
%>
</p>
<p align="center">
<form action="***.asp" method="Post">
    <input type="hidden" name="sex" size="20" value="<%=sex%>"> <%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'change this 2 to any number you like:
If LinkCount Mod 4 = 0 Then
    If LinkCount <> 0 Then Response.Write"</tr>"
            Response.Write "<tr><td><img width=50 src=../pictures/" & RS("filename") & "><BR>"& RS("username") & "<BR>"& RS("starsign") & "</td>"
            'Response.Write "<tr><td>"& RS("username") & "></td>"

    Else
            Response.Write "<td><img width=50 src=../pictures/" & RS("filename") & "><BR>"& RS("username") & "<BR>"& RS("starsign") & "</td>"
            'Response.Write "<td>"& RS("username") & "></td>"
    End If
    LinkCount = LinkCount + 1
    rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing

%>
</table>

</form>
<%'End If%>
</body>
</html>
Alt virker fint når jeg trykker kun på mand eller kun på kvinde ??

Kan simpelthen ikke finde ud af det please hjælp !!!!!!
Avatar billede eagleeye Praktikant
04. marts 2003 - 18:38 #1
Du skal hvade delt denne op i to::

Select Case Request.Form("sex")
Case "r"
    sex = "mand"
Case "g"
    sex = "kvinde"
Case "a"
    lookfor = "mand"
Case "b"
    lookfor = "kvinde"

End Select


Da det ene form input hedder "sex" det andet hedder "lookfor"

Så det skal være:

Select Case Request.Form("sex")
Case "r"
    sex = "mand"
Case "g"
    sex = "kvinde"
End Select

Select Case Request.Form("lookfor")
Case "a"
    lookfor = "mand"
Case "b"
    lookfor = "kvinde"
End Select



Så skal du lave denne SQL om så den også har lookfor med i WHERE delen, her antager jeg kolonnen hedder lookfor:

SQL = "Select * From users Where sex = '" & sex & "' AND lookfor = '" & lookfor & "'"
Avatar billede lbos Nybegynder
04. marts 2003 - 18:50 #2
skal jeg så ikke lave en requestform der hedder lookfor ???
Avatar billede eagleeye Praktikant
04. marts 2003 - 18:51 #3
Jo den er i den anden Select Case, jeg har vist.:

Select Case Request.Form("lookfor")
Case "a"
    lookfor = "mand"
Case "b"
    lookfor = "kvinde"
End Select
Avatar billede lbos Nybegynder
04. marts 2003 - 18:55 #4
der kommer slet ikke noget heller ikke nogle fejl ???
Avatar billede eagleeye Praktikant
04. marts 2003 - 18:58 #5
Prøv at udskrive denne SQL:

SQL = "Select * From users Where sex = '" & sex & "' AND lookfor = '" & lookfor & "'"

Response.write SQL

og tjek der står det du har valgt for sex og lookfor.
Avatar billede lbos Nybegynder
04. marts 2003 - 19:01 #6
Den er der ;O)
Tak for det
Avatar billede lbos Nybegynder
07. marts 2003 - 11:40 #7
yy
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester