Hvorfor søger den ikke på forskellige!!

Du har i 3 linier skrev steSql og ikke StrSql

Eks vis her:
SreSql = StrSql & " AND (landsdel = '2' OR landsdel = '3' OR landsdel = '4' or landsdel = '5')"

Så den mangler den ene halv del af det du søger efter, her er hele if sætningen:


If strKeywordLand = "hele_dk" then

StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '%" & LCase(strKeyword) & "%')"

elseif  strKeywordLand = "1" then

StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '%" & LCase(strKeyword) & "%')"
StrSql = StrSql & " AND (landsdel = '2' OR landsdel = '3' OR landsdel = '4' or landsdel = '5')"

elseif strKeywordLand = "7" then

StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '%" & LCase(strKeyword) & "%')"
StrSql = StrSql & " AND (landsdel = '8' OR landsdel = '9' OR landsdel = '10')"

else

StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '%" & LCase(strKeyword) & "%')"
StrSql = StrSql & " AND (landsdel = '" & strKeywordLand & "')"
end if

Du har da helt ret, det havde jeg slet ikke set - tak, men jeg skal lige høre. Når jeg ikke finder noget i databasen, altså ved While EOF, så går der noget helt galt med tabellerne, kan du se hvad det er??

Her er koderne fra hvor jeg udskriver:

Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>
                                    <table width="520" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
                                      <%
                                      Do While Not objRec.EOF
                                      %>
                                      <tr bgcolor="#DDDDDD">
                                        <td height="3" colspan="2"></td>
                                      </tr>
                                      <tr bgcolor="#DDDDDD">
                                        <td colspan="2" valign="top"><%=objRec("annoncetekst")%><%=objRec("landsdel")%></td>
                                      </tr>
                                      <tr bgcolor="#DDDDDD">
                                        <td height="3" colspan="2"></td>
                                      </tr>
                                      <tr>
                                        <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
                                      </tr>
                                      <%
objRec.movenext()
Loop
Else %>
  <tr>
    <td height="20"></td>
  </tr>
  <tr>
    <td>
      <div align="center">Der blev ikke fundet noget på denne søgning</div>
    </td>
  </tr>
  <tr>
    <td height="20"></td>
  </tr>
<%
End If
Conn.Close
Set Conn = Nothing
Set objRec = Nothing
End If
%>
                                    </table>

Prøv at flytte denne linie:

<table width="520" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">

Oven over:

Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>


og så en </table> efter End If

Jepper - tak for det!