søger undeligt!

Jeg kan se een fejl, det behøver ikke at være det:
if Len(strKeyword) <> "" Then
det skal være
if Len(strKeyword) <> 0 Then
eller
if strKeyword <> "" Then

If Len(strKeyword) > 0 Then

eller

If strKeyword <> "" Then

Det fatter jeg ikke helt, prøv lige at se denne kode, er der aldet jeg gør forkert, for det virker stadig!

ps. er det muligt at søge på to ord adgangen?


Her er koden:

<%
StrKeyword = Replace(Request.Form("soeg"), "'", "''")
If strKeyword <> "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
StrSql = "SELECT * FROM annoncer WHERE annoncetekst LIKE '%" & strKeyword & "%'"
Set objRec = Conn.Execute(StrSql)
If objRec.EOF or objRec.BOF then
%>
<table width="520" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
                                      <tr bgcolor="#DDDDDD">
                                        <td height="3" colspan="2"></td>
                                      </tr>
                                      <tr>
                                        <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
                                      </tr>
                                    </table>
<% else %>
                                      <table width="520" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
                                      <tr bgcolor="#DDDDDD">
                                        <td height="3" colspan="2"></td>
                                      </tr>
                                      <%
                        while not objRec.eof
                            %>
                                      <tr bgcolor="#DDDDDD">
                                        <td width="5" valign="top"> </td>
                                        <td valign="top"><%=objRec("annoncetekst")%>&nbsp<%=objRec("kategori")%>&nbsp<%=objRec("u_kategoriId")%></td>
                                      </tr>
                                      <tr bgcolor="#DDDDDD">
                                        <td height="3" colspan="2"></td>
                                      </tr>
                                      <tr>
                                        <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
                                      </tr>
<%
objRec.movenext()
wend
Conn.Close
Set Conn = Nothing
Set objRec = Nothing
End if
End if
%>

Når der ikke findet noget i db, altså (If objRec.EOF or objRec.BOF then)

Så viser den også tabellerne meget mystisk??

nå - jeg prøver at stille et andet spørgsmål, da det stadig ikke virker  - men da jeg har lavet lidt om på scriptet!