Søgning
Jeg har fået dette søge script flækket sammen<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
strSQL = \"SELECT El_side, El_overskrift, ID FROM tele WHERE\"
strSQL = strSQL & \" (El_side LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (El_overskrift LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (ID LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db/alfred.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" >\"
Do While Not rs.EOF
Response.Write \"<tr><td width=100% ><b><font size=\"\"2\"\" face=\"\"Arial, Helvetica, sans-serif\"\">Overskrift </font></b><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" >\" & \"<a href=detail.asp?ID=\"& rs(\"ID\")&\" TARGET=_self>\"& rs(\"El_overskrift\") &\"</A> <br><b><font size=\"\"2\"\" face=\"\"Arial, Helvetica, sans-serif\"\">Resultat: </font></b>\" & rs(\"El_side\")&\" <br><HR></td></tr>\"
rs.MoveNext
Loop
Response.Write \"</FONT></table>\"
Else
Response.Write \"<p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" ><b>Desværrer fandt vi ikke noget til dig.<br>Prøv med nogle andre søgeord.</b><br><br>\"
End If
myConn.Close
Set myConn = Nothing
%>
Det virker ok men jeg ville gerne have at jeg kunne bestemme hvormange resultater jeg skal have vist pr søgning.
Jeg vil også gerne kunne nøjes med at kunne vise eks. 30 tegn ved Resultat så den ikke skriver hele posten ud.
Er der nogen der har en ideeeeeee
