søge funktion

jeg kan se en uheldig ting du har givet begge dine checkboxe samme navn. Så du vil ikke kunne skelne dem fra hinanden.

hvis du kalder den ene for person:
<input type="checkbox" name="person" value="pers">

og den anden for indleg:
<input type="checkbox" name="indleg" value="pers">


i asp koden kan du lave et tjek:

if request.form("person") <> "" then
  'Søg i person kolonnen

end if
if request.form("person") <> "" then
  'Søg (også) i indløg kolonnen

end if

eks på koden:


SQLwhere = ""
if request.form("person") <> "" then
  'Søg i person kolonnen
  SQLwhere = "person = '" & request.form("keyword") & "'"
end if
if request.form("person") <> "" then
  'Søg (også) i indløg kolonnen
  if SQLwhere <> "" then SQLwhere = SQLwhere " OR "
  SQLwhere = SQLwhere & "indlæg = '" & request.form("keyword") & "'"
end if

SQL = "SELECT * FROM tabel"
if SQLwhere <> "" then
  SQL = SQL & " WHERE " & SQLwhere
end if

set rs=conn.execute(SQL)

Det ser ud til at virke, men nu har jeg fået lavet en hel røvfuld kode, og hver sektion er delt op som det ses neden for. Mit problem er bare at jeg ikke kan få den til at skrive at der ikke er fundet nogen resultater på det rigtige sted. Min resultatside er delt op i to dele en der viser res af personer og en af Indlæg, så hvis ikke der er nogen personer i en søgning, så skal den skrive under det punkt der hedder personer, men i stedet skriver dne det øverst på siden, hvilket jeg ikke kan forstå.

Hver sektion Person resultat og Indlæg resultat er kodet som det ses nedenfor:

------------------kode start--------------
<% if request.form("person") <> "" then
    myConnPers.Open strDSNPers
    strSQL = "SELECT * FROM persondata WHERE"
    strSQL = strSQL & " (Name LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (postnr LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (bynavn LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (Tlf LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (mobil LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (Email LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (ICQ LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (Foedselsdag LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (klasse LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (last_logedin LIKE '%" & strKeyword & "%')"
   
    Set rs = myConnPers.Execute(strSQL)%>
    <tr>
      <td width="581" height="6" bgcolor="#0000FF" colspan="3"><font face="Verdana" size="3"><b>Personer</b></font></td>
    </tr>
    <tr>
      <td width="168" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">Navn</font></td>
      <td width="1" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">Mobiltlf</font></td>
      <td width="146" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">E-Mail</font></td>
    </tr>
    <%If Not (rs.BOF Or rs.EOF) Then%>
    <%Else
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
    End If%>
    <%Do While Not rs.EOF%>
    <tr>
      <td width="168" height="5"><font face="Verdana" size="1"><a href="vis_data_alt.asp?id=<%=Rs("ID")%>" onMouseOver="window.status='Mere Info om <%=Rs("Name")%>'; return true;" onMouseOut="window.status=''"><%=rs("Name")%></a></font></td>
      <td width="1" height="5"><font face="Verdana" size="1"><%=rs("mobil")%></font></td>
      <td width="146" height="5"><font face="Verdana" size="1"><a href="mailto:<%=rs("Email")%>"><%=rs("Email")%></a></font></td>
    </tr>
<%rs.MoveNext
Loop%>

<%
myConnPers.Close
Set myConnPers = Nothing
%>

-------------------kode slut ------------------

Sig til hvis du hellere vil se hele koden.

en sidste ting, ved du om der er en sql streng der kun hiver en del ud af et note felt, så man ikke får hele teksten ud, men kun den første del??

Så vidt jeg kan se er problemet bare at jeg i følgende kode, ikke kan få den til at skrive ud at der ikke er nogen resultater efter at den har skrevet første del af tabellen ud....

--------------kode

    <tr>
      <td width="581" height="6" bgcolor="#0000FF" colspan="3"><font face="Verdana" size="3"><b>Personer</b></font></td>
    </tr>
    <tr>
      <td width="168" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">Navn</font></td>
      <td width="1" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">Mobiltlf</font></td>
      <td width="146" height="5" bgcolor="#CCCCCC"><font face="Verdana" size="3">E-Mail</font></td>
    </tr>
    <%If Not (rs.BOF Or rs.EOF) Then%>
    <%Else
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
    End If%>
    <%Do While Not rs.EOF%>
    <tr>
      <td width="168" height="5"><font face="Verdana" size="1"><a href="vis_data_alt.asp?id=<%=Rs("ID")%>" onMouseOver="window.status='Mere Info om <%=Rs("Name")%>'; return true;" onMouseOut="window.status=''"><%=rs("Name")%></a></font></td>
      <td width="1" height="5"><font face="Verdana" size="1"><%=rs("mobil")%></font></td>
      <td width="146" height="5"><font face="Verdana" size="1"><a href="mailto:<%=rs("Email")%>"><%=rs("Email")%></a></font></td>
    </tr>
----------------- kode slut

Har selv fået klaret det andet problem, så jeg lukker spg nu. tak for hjælpen.