søgning og opdater af nogle af form indput

du kan prøve at komme med en rigtig fejlbeskrivelse her og også gerne koden...

\"rigtig fejlbeskrivelse\" - Man kan ikke søge i acces md filen filen, og når der skal indtast søge ord i undtastnings formularen kommer disse ikke med søge ord ikke med i acces md filen \"

og her kommer så koden
<% response.buffer = true %>
<html>
<head>
<title>Graphic-fantasy.dk - Links</title>
<style type=\"text/css\">
body {margin: 65;font-family:verdana}
a.menu {text-decoration:none;color:#330066}
a.menu:hover {text-decoration:none;color:#330066}
a {text-decoration:none;color:#330066}
a:hover {text-decoration:underline;color:#330066}
INPUT
{
    BACKGROUND-COLOR: #FFFFFF;
    COLOR: #330066;
    FONT-FAMILY: verdana, helvetica, sans-serif;
    FONT-SIZE: 12px;
    FONT-STYLE: normal;
    border: 1px solid #330066;
}
Textarea
{
    BACKGROUND-COLOR: #FFFFFF;
    COLOR: #FCFCFC;
    FONT-FAMILY: verdana, helvetica, sans-serif;
    FONT-SIZE: 12px;
    FONT-STYLE: normal;
    border: 1px solid #330066;
}
-->
</style>
</head>
<body bgcolor=\"#000000\" text=\"#FFFFFF\" background=\"www.graphic-fantasy.dk/images/bag_03.jpg\" link=\"#FFFFFF\" vlink=\"#808080\" alink=\"#808080\">
<%
strMode = Request.Querystring(\"mode\")
select case strMode
case \"id\"

Response.Buffer = True

\' Her opdateres hits når brugeren bliver sendt til et link
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM links WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs(\"Hits\") = rs(\"Hits\") + 1
        strURL = rs(\"URL\")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

<% case \"search\"
\' Siden med søgeresultater

\' Database connection
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
\' Henter søgeorden fra formularen
strKeyword = Trim(Request.Form(\"søgeord\"))

If Len(strKeyword) = 0 Then
\' Hvis der ikke er skrevet i formularen sendes brugeren tilbage
    Response.Clear
    Response.Redirect (\"links.asp?mode=søg\")
Else
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT * FROM links WHERE\"
strSQL = strSQL & \" (godkendt = \'ja\') AND (\"
strSQL = strSQL & \" (id LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (url LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (hits LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (søgeord LIKE \'%\" & strKeyword & \"%\'))\"

    Response.Write \"<table width=\"\"500\"\" cellspacing=\"\"1\"\" cellpadding=\"\"3\"\">\"
        Response.Write \"<tr><td width=\"\"100%\"\" colspan=\"\"2\"\" bgcolor=\"\"#E5E5E5\"\"><font size=\"\"1\"\"><b>Links</b> » <b>Søgeresultater for \" & strKeyword & \"</b></font></td></tr>\"
        Response.Write \"<tr><td bgcolor=\"\"#CCCCCC\"\"><font size=\"\"1\"\"><b>Navn/beskrivelse</b></font></td><td bgcolor=\"\"#330066\"\"><font size=\"\"1\"\"><b>Hits</b></font></td></tr>\"

\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
\' Hvis søgningen gav resultat
    Do While Not rs.EOF
If farve=1 Then
bg=\"#FCFCFC\"
Farve= Farve + 1
Else
bg=\"#E5E5E5\"
farve=1
End If
        Response.Write \"<tr><td valign=top bgcolor=\" & bg & \"><font size=2><b><a href=\"\"links.asp?mode=id&id=\" & rs(\"ID\") & \"\"\" target=\"\"_blank\"\">\" & rs(\"Navn\") & \"</a></b><br>\" & rs(\"Beskrivelse\") & \"</font></td>\"
        Response.Write \"<td valign=top align=center width=\'30\' bgcolor=\" & bg & \"><font size=2>\" & rs(\"Hits\") & \"</font></td></tr>\"
        rs.MoveNext
    Loop

Else
\' Hvis ingen poster passede på søgordene
        Response.Write \"<tr><td align=center width=\"\"100%\"\" colspan=\"\"2\"\" bgcolor=#e5e5e5><font size=\"\"2\"\"><b>Ingen sider passede på søgeordet</b></font></a></td></tr>\"
End If
response.write \"<tr><td align=\"\"right\"\" colspan=\"\"2\"\" bgcolor=\"\"#CCCCCC\"\"><font size=\"\"1\"\"><b><a href=\"\"links.asp\"\" class=\"\"menu\"\">» Oversigt</a>&nbsp;&nbsp;&nbsp;<a href=\"\"links.asp?mode=søg\"\" class=\"\"menu\"\">» Søg igen</a>&nbsp;&nbsp;&nbsp;<a href=\"\"links.asp?mode=add\"\" class=\"\"menu\"\">» Tilføj links</a></b>&nbsp;&nbsp;</font></td></tr></table></td></tr>\"
    Response.Write \"</table><br><br>\"
%>

<% case \"søg\"
\' Søgeformularen
Response.write \"<table width=\'500\' style=\'border-bottom: 1 solid #C0C0C0\'><tr><td><font size=\'2\'><b>Søg</b></font></td></tr>\"
Response.write \"<tr><td><form method=POST action=links.asp?mode=search><input type=text name=keywords size=30></td></tr>\"
Response.write \"<tr><td><input type=submit value=\'  søg  \' name=send>&nbsp;<input type=button onclick=\'history.go(-1)\' value=tilbage name=tilbage></td></tr>\"
Response.Write \"<tr><td width=\'100%\' align=right style=\'border-top: 1 solid #660099\'><font size=\'2\'><a href=\'links.asp\'>Links</a></font></td></tr></table></form>\"
%>
<% case \"update\"
\' Sender resultaterne fra tilføj links til databasen
\' Database connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"links.mdb\")
\' Opbygger SQL streng
SQLstmt = \"INSERT INTO links (navn,url,beskrivelse,hits,søgeord,kategori,godkendt)\"
SQLstmt = SQLstmt & \" VALUES (\'\" & request.form(\"navn\") & \"\',\'\" & request.form(\"url\") & \"\',\'\" & replace(request.form(\"beskrivelse\"),\"\'\",\"\'\'\") & \"\',\'\" & request.form(\"hits\") & \"\',\'\" & request.form(\"søgeord\") & \"\',\'\" & request.form(\"kategori\") & \"\',\'nej\')\"

response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

\' Sender brugeren tilbage til links når databasen er opdateret
response.redirect (\"links.asp\")
%>

<% case \"add\"
\' tilføj links
%>
<form method=\"POST\" action=\"links.asp?mode=update\">
        <div align=\"center\">
          <center>
        <table border=\"0\" cellpadding=\"3\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#330066\" width=\"388\">
        <tr><td colspan=\"2\" bgcolor=\"#330066\" width=\"379\">

          <font face=\"verdana\" size=\"1\" color=\"#330066\"><b>Links</b></font></td></tr>
        <tr><td colspan=\"2\" bgcolor=\"#FCFCFC\" width=\"379\">
          <font face=\"verdana\" size=\"1\" color=\"#330066\"><b>Tilføj link</b></font></td></tr>
            <tr>
              <td width=\"166\" bgcolor=\"#FCFCFC\"><b>
              <font face=\"Verdana\" size=\"2\" color=\"#000000\">Navn</font></td>
              <td width=\"210\" bgcolor=\"#E5E5E5\">
                  <p><font color=\"#000000\">
                  <input type=\"text\" name=\"navn\" size=\"32\" style=\"color: #000000\"></font></p>
              </td>
            </tr>
            <tr>
              <td width=\"166\" bgcolor=\"#FCFCFC\">
              <font face=\"Verdana\" size=\"2\" color=\"#000000\"><b>url</b></font></td>
              <td width=\"210\" bgcolor=\"#FCFCFC\"><font color=\"#000000\">
              <input type=\"text\" name=\"url\" value=\"http://\" size=\"32\" style=\"color: #000000\"></font></td>
            </tr>
            <tr>
              <td width=\"166\" bgcolor=\"#FCFCFC\" valign=\"top\">
              <font face=\"Verdana\" size=\"2\" color=\"#000000\"><b>beskrivelse</b></font></td>
              <td width=\"210\" bgcolor=\"#FCFCFC\">
              <font color=\"#000000\">
              <textarea name=\"beskrivelse\" cols=\"32\" rows=\"1\" style=\"color: #000000\"></textarea></font></td>
            </tr>
            <tr>
              <td width=\"166\" bgcolor=\"#FCFCFC\" valign=\"top\">
              <font face=\"Verdana\" size=\"2\" color=\"#000000\"><b>Kategori</b></font></td>
              <td width=\"210\" bgcolor=\"#FCFCFC\">
              <select name=\"kategori\" style=\"color: #000000\">
<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM kategorier ORDER BY kategori\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"links.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  Do until rs.EOF = True
        Response.Write \"<option value=\'\" & rs(\"id\") & \"\'>\" & rs(\"kategori\") & vbCrLf
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
%></select></td>
            </tr>
            <tr>
              <td width=\"166\" bgcolor=\"#E5E5E5\" valign=\"top\">
              <font face=\"Verdana\" size=\"2\" color=\"#000000\"><b>Søgeord</b><br></font>
              <font face=\"Verdana\" size=\"1\" color=\"#000000\">Adskilles med komma!</font></td>
              <td width=\"210\" bgcolor=\"#E5E5E5\"><font color=\"#000000\">
              <input type=\"text\" name=\"søgeord\" size=\"32\" style=\"color: #000000\"></font></td>
            </tr>
            <tr>
              <td width=\"379\" bgcolor=\"#FCFCFC\" colspan=\"2\">
              <font color=\"#000000\"><input type=\"hidden\" value=\"0\" name=\"hits\">
              </font><font color=\"#000000\"><input type=\"submit\" value=\"Send\" name=\"send\" style=\"background-color:#666699\">
                <input type=\"reset\" value=\"Annuller\" name=\"anuller\" style=\"background-color:#666699\"></font></td>
            </tr>
<tr><td colspan=\"2\" align=\"right\" bgcolor=\"#CCCCCC\" width=\"379\"><font size=\"1\"><b><a href=\"links.asp\" class=\"menu\">» Links</a>&nbsp;&nbsp;&nbsp;<a href=\"links.asp?mode=søg\" class=\"menu\">» Søg i links</a></b>&nbsp;&nbsp;</font></td></tr></table>
          </center>
        </div>
</form>

<% case \"vis\"
\' Hvis der ikke er valgt noget mode vises alle links

\' Paging
intPage = Request(\"page\")
rpage = \"&page=\" & request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
  rpage = \"&page=1\"
End If

orderby = request(\"orderby\")
if request(\"orderby\") <> \"\" then
orderby = request(\"orderby\")
else
orderby = \"navn\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
Set kat = Conn.Execute(\"SELECT kategori FROM kategorier WHERE id=\" & request(\"kat\") & \"\")
katg = kat(\"kategori\")
Set kat = nothing
Conn.Close
Set Conn = Nothing

\' Database connection

    Response.Write \"<table width=\'500\' cellspacing=\'1\' cellpadding=\'3\'>\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM links WHERE kategori=\'\" & request(\"kat\") & \"\' AND godkendt=\'ja\' ORDER BY \" & orderby & \"\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"links.mdb\")
rs.Open strSQL, strDSN, 1
    Response.Write \"<tr><td width=\'100%\' colspan=\"\"2\"\" bgcolor=\"\"#666699\"\"><font size=\"\"1\"\"><b>Links</b> » <b>\" & katg & \"</b></font></td></tr>\"
If Not (rs.BOF Or rs.EOF) Then
    Response.Write \"<tr><td bgcolor=\"\"#666699\"\"><font size=\"\"1\"\"><b><a href=\"\"links.asp?mode=vis&kat=\" & request(\"kat\") & rpage & \"&orderby=navn\"\" class=\"\"menu\"\">Navn/beskrivelse</a></b></font></td><td bgcolor=\"\"#CCCCCC\"\" align=\"\"center\"\"><font size=\"\"1\"\"><b><a href=\"\"links.asp?mode=vis&kat=\" & request(\"kat\") & rpage & \"&orderby=hits\"\" class=\"\"menu\"\">Hits</a></b></font></td></tr>\"
  rs.PageSize = 6
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0

If farve=1 Then
bg=\"#CCCCCC\"
Farve= Farve + 1
Else
bg=\"#999999\"
farve=1
End If

        Response.Write \"<tr><td valign=top bgcolor=\" & bg & \"><font size=2><b><a href=\"\"links.asp?mode=id&id=\" & rs(\"ID\") & \"\"\" target=\"\"_blank\"\">\" & rs(\"Navn\") & \"</a></b><br>\" & rs(\"Beskrivelse\") & \"</font></td>\"
        Response.Write \"<td valign=top align=center width=\'30\' bgcolor=\" & bg & \"><font size=2>\" & rs(\"Hits\") & \"</font></td></tr>\"

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
else
response.write \"<tr><td colspan=\"\"2\"\" align=\"\"center\"\"><font size=\"\"1\"\"><b>Der er ingen links i denne kategori!</b></font></td><tr>\"
End If
rs.Close
Set rs = Nothing

\' Navigering mellem siderne med paging
Response.Write \"<tr><td colspan=\"\"2\"\" bgcolor=\"\"#CCCCCC\"\">\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" cellpadding=\"\"0\"\" width=\"\"100%\"\"><tr><td bgcolor=\"\"#CCCCCC\"\"><font size=\'1\'>\"

If Clng(intPage) > 1 Then
  Response.Write \"<a href=links.asp?mode=vis&kat=\" & request(\"kat\") & \"&page=\" & intPage - 1 & \"&orderby=\" & request(\"orderby\") & \" class=\"\"menu\"\">[<<]</a>&nbsp;\"
Else
  Response.Write \"\"
End If

Response.Write \"\"
For intNum = 1 To intPageCount
  Response.Write \"&nbsp;<a href=links.asp?mode=vis&kat=\" & request(\"kat\") & \"&page=\" & intNum & \"&orderby=\" & request(\"orderby\") & \" class=\"\"menu\"\"><b>\" & intNum & \"</b></a>&nbsp;\"
Next

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"&nbsp;<a href=links.asp?mode=vis&kat=\" & request(\"kat\") & \"&page=\" & intPage + 1 & \"&orderby=\" & request(\"orderby\") & \" class=\"\"menu\"\">[>>]</a>\"
Else
  Response.Write \"\"
End If

Response.write \"</b> Side <b>\" & intPage & \"</b> af \" & intPageCount & \"</font></td><td align=\"\"right\"\"><font size=\"\"1\"\"><b><a href=\'links.asp\' class=\"\"menu\"\">» Oversigt</a>&nbsp;&nbsp;&nbsp;<a href=\'links.asp?mode=søg\' class=\"\"menu\"\">» Søg i links</a>&nbsp;&nbsp;&nbsp;<a href=\'links.asp?mode=add\' class=\"\"menu\"\">» Tilføj links</a></b>&nbsp;&nbsp;</font></td></tr></table></td></tr></table>\"

case else


\' Database connection
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM kategorier ORDER BY kategori\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"links.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    Response.Write \"<table width=\'500\' cellspacing=\'1\' cellpadding=\'3\'>\"
        Response.Write \"<tr><td width=\'100%\' bgcolor=\"\"#660099\"\"><font size=\"\"1\"\"><b>Links</b></font></td></tr>\"
        Response.Write \"<tr><td width=\'100%\' bgcolor=\"\"#660099\"\"><font size=\"\"1\"\"><b>Kategorier</b></font></td></tr>\"
  Do until rs.EOF = True

If farve=1 Then
bg=\"#999999\"
Farve= Farve + 1
Else
bg=\"#CCCCCC\"
farve=1
End If

        Response.Write \"<tr><td width=\'100%\' bgcolor=\"\"\" & bg & \"\"\"><font size=\"\"2\"\"><a href=\'links.asp?mode=vis&kat=\" & rs(\"id\") & \"&orderby=navn\'><b>\" & rs(\"kategori\") & \"</b></a></font></td></tr>\"
  rs.MoveNext
  Loop
End If
        Response.Write \"<tr><td align=\"\"right\"\" bgcolor=\"\"#999999\"\"><font size=\"\"1\"\"><b><a href=\'links.asp?mode=søg\' class=\"\"menu\"\">» Søg i links</a>&nbsp;&nbsp;&nbsp;<a href=\'links.asp?mode=add\' class=\"\"menu\"\">» Tilføj links</a></b>&nbsp;&nbsp;</font></td></tr>\"
    Response.Write \"</table>\"
rs.Close
Set rs = Nothing


end select %>
<p>

        <font size=\"1\">Søgning virker ikke endnu sorry -
<a target=\"_self\" href=\"links_top.asp\"><font color=\"#FFFFFF\"><u>check top link
listen</u></font></a></font><br>
        <a target=\"_self\" href=\"default.asp\"><img border=\"0\" src=\"images/luk.jpg\"></a></p>
<p>&nbsp;</p>
</body>
</html>

Under: Case \"search\"  hendter du søgeordet sådan her:

strKeyword = Trim(Request.Form(\"søgeord\"))


I Case \"søg\"  indsættes den input som man skriver søgeordet i, her hedder søgeord\'et feltet keywords:
Response.write \"<tr><td><form method=POST action=links.asp?mode=search><input type=text name=keywords size=30></td></tr>\"


Så enten ret:
strKeyword = Trim(Request.Form(\"søgeord\"))
TIL:
strKeyword = Trim(Request.Form(\"keywords\"))

Eller omdøb input feltet.

Ja det virkede , efter at jeg også have rette felt navnet til \"keywords\" i acces databasen.

1000 tak herfra eagleeye