Forsættelse

Er der ikke en der kan dette ?

jeg har fundet et stykke kode til det men det vil ik virker :

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
strSQL = \"SELECT navn FROM drink WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.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 \"<p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#666666\"\"><CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : S&oslash;geresultat fra S&oslash;g</CENTER></FONT></p>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF
Response.Write \"<tr><td width=100% bgcolor=navy><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#666666\"\">\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_top>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\"<BR></FONT><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"gray\"\">Bes&oslash;g fra S&oslash;g :</FONT> <FONT face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" Color=\"\"#ffffff\"\">\" & rs(\"LinkHits\") & \"</font><BR><font face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" color=\"\"gray\"\">Adresse : </font><font face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" color=\"\"#666666\"\">\" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_top>Bes&oslash;g</a><BR><HR></td></tr>\"
rs.MoveNext
Loop
Response.Write \"</FONT></table>\"
Else
Response.Write \"<p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" COLOR=\"\"#666666\"\">S&oslash;g fandt ikke noget til dig!<BR>Tilbage til start? <A HREF=default.asp>Klik her</A></p>\"
End If
myConn.Close
Set myConn = Nothing
%>

nej det virker ikke, er der ikke en der kan lave en der søger på navn og viser alle drinks som den person har lavet og det samme med overskrift

lukker