Kommer inte på någon bra rubrik :(

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan25 aug. 2002 22:22#1

Hej!
Ursäktar rubriken, men vet inte vad den ska döpas till...

Aja, iaf, får inte ihop min sökfunktion, den gör bara inte som jag vill, inga felmess, men kan någon kolla om detta är rätt tekninskt sätt???
Vill att den listar beroende på vilken knapp man tryckte på.... hmm...
formuläret:

<form name="sok" method="post" action="resultat.asp">
  <p> 
    <input type="text" name="fras">
    <input type="submit" name="sok" value="S&ouml;k">
  </p>
  <p> 
    <input type="text" name="av">
    <input type="submit" name="sok" value="S&ouml;k skribent">
  </p>
  </form>

och här resultat.asp:

<%
SQL = "select * from add_forum Where rubrik OR inlagg LIKE '%" & request.form("fras") & "%' Order BY datum desc"
SQL2 = "select * from add_forum where anvandarnamn like '%" & request.form("av") & "%' Order by datum desc"
Set rs = Databas.execute(SQL)
set rs2 = Databas.execute(SQL2)
%>
<%
If request.form("fras") = "" OR request.form("av") = "" then
response.write "Du kan inte söka på ingenting!"
end if
%>
<%
If rs.eof OR rs2.eof then
response.write "Inga resultat!"
else
If request.form("sok") = "S&ouml;k" then
response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100><b>Forum:</b></td><td width=200><b>Rubrik:</b></td><td width=100><b>Skribent:</b></td><td width=100><b>Datum:</b></td></tr></table>"
do until rs.eof
response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100>"& rs("forum_val") &"</td><td width=200><a href=""read.asp?id="& rs("id") &"&forum="& rs("forum_val") &""">"& rs("rubrik") &"</a></td><td width=100>"& rs("anvandarnamn") &"</td><td width=100>"& FormatDateTime(rs("datum"), 1) &"</td></tr></table>"
rs.movenext
loop
elseif request.form("sok") = "S&ouml;k skribent" then
response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100><b>Forum:</b></td><td width=200><b>Rubrik:</b></td><td width=100><b>Skribent:</b></td><td width=100><b>Datum:</b></td></tr></table>"
do until rs2.eof
response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100>"& rs("forum_val") &"</td><td width=200><a href=""read.asp?id="& rs("id") &"&forum="& rs("forum_val") &""">"& rs("rubrik") &"</a></td><td width=100>"& rs("anvandarnamn") &"</td><td width=100>"& FormatDateTime(rs("datum"), 1) &"</td></tr></table>"
rs2.movenext
loop
end if
end if
%>

hänger det inte ihop eller?

@ndersMedlem sedan juni 200032 967 inlägg

26 aug. 2002 04:15#2

Du har OR-villkor på ett par ställen där det ska vara AND. Exempelvis, man ska väl inte fylla i båda textrutorna?

Jag skrev om din kod en aning.

<%
If request.form("fras") = "" AND request.form("av") = "" then
     response.write "Du kan inte söka på ingenting!"
     response.end
end if

If request.form("sok") = "Sök" then
     SQL = "select * from add_forum Where rubrik OR inlagg LIKE '%" & request.form("fras") & "%' Order BY datum desc"
Else
     SQL = "select * from add_forum where anvandarnamn like '%" & request.form("av") & "%' Order by datum desc"
End if

Set rs = Databas.execute(SQL)

If rs.eof then
     response.write "Inga resultat!"
else
     response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100><b>Forum:</b></td><td width=200><b>Rubrik:</b></td><td width=100><b>Skribent:</b></td><td width=100><b>Datum:</b></td></tr></table>"
     do until rs.eof
          response.write "<table width=500 bgcolor="& bgcolor &"><tr><td width=100>"& rs("forum_val") &"</td><td width=200><a href=""read.asp?id="& rs("id") &"&forum="& rs("forum_val") &""">"& rs("rubrik") &"</a></td><td width=100>"& rs("anvandarnamn") &"</td><td width=100>"& FormatDateTime(rs("datum"), 1) &"</td></tr></table>"
          rs.movenext
     loop
End if
%>

Mvh,