når jeg forsøger at søge.. min kode ser således ud:
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then ' Hvis der ikke er skrevet i feltet Response.Clear Response.Redirect("ordre_list.asp") Else ' Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,"'","''") End If
' Opbygger en dynamisk SQL streng SQL = "SELECT ordre_nr, s_per, client, product, type, status, design_per, date_created, date_done FROM ind_ordre WHERE" SQL = SQL & " (s_per LIKE '%" & strKeyword & "%')" SQL = SQL & " OR (client LIKE '%" & strKeyword & "%')" SQL = SQL & " OR (product LIKE '%" & strKeyword & "%')" SQL = SQL & " OR (design_per LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen ' strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search.mdb") ' Set myConn = Server.CreateObject("ADODB.Connection") ' Conn.Open set rs = Conn.execute(SQL) ' Skaber et recordset udfra SQL strengen
Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then ' Hvis der er fundet poster på søgningen Response.Write "<p>Search Results:</p>"%>
<table border="1" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="#999999"><strong>Ordre Nr:</strong></td> <td bgcolor="#999999"><strong>Client:</strong></td> <td bgcolor="#999999"><strong>Status:</strong></td> <td bgcolor="#999999"><strong>Ordre Type:</strong></td> <td bgcolor="#999999"><strong>Product:</strong></td> <td bgcolor="#999999"><strong>Sales Person:</strong></td> <td bgcolor="#999999"><strong>Designer:</strong></td> <td bgcolor="#999999"><strong>Ordre Date:</strong></td> <td bgcolor="#999999"><strong>Date Done:</strong></td> </tr> <% Do While Not rs.EOF %> <tr> <td valign="top" bgcolor="#cccccc"><a href="?mode=show&ordrenr=<%=rs("ordre_nr")%>"><%=rs("ordre_nr")%></a></td> <td valign="top" bgcolor="#cccccc"><a href="?mode=client&client=<%=rs("client")%>"><%=rs("client")%></a></td> <td valign="top" bgcolor="#cccccc"><a href="?mode=status&ordrenr=<%=rs("ordre_nr")%>"><%=rs("status")%></a></td> <td valign="top" bgcolor="#cccccc"><%=rs("type")%></td> <td valign="top" bgcolor="#cccccc"><%=rs("s_per")%></td> <td valign="top" bgcolor="#cccccc"><%=rs("design_per")%></td> <td valign="top" bgcolor="#cccccc"><%=rs("date_created")%></td> <td valign="top" bgcolor="#cccccc"><%=rs("date_done")%></td> </tr> <% Loop Response.Write "</table>" Else ' Hvis der ikke er fundet poster på søgningen Response.Write "<p>The Search Results Was Empty</p>" End If
' Rydder op efter os Conn.Close Set Conn = Nothing %>
et gæt er at det er noget af dit database-arbejde der gør det - prøv at fejlsøg det næsten linie for linie; udkommentér eller fjern al koden i søgedelen og indsæt derefter én linie af gangen for at se hvad det præcis for en linie der giver fejlen.
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.