Ok her er så det hele igen
-------------- INSET.ASP-------------------
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>New Page 1</title>
</head>
<%
PLUS = request(\"PLUS\")
IF PLUS = \"ON\" THEN
PLUS = 1
else
PLUS = 0
END IF
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"soeg.mdb\")
Set RS = Server.CreateObject(\"ADODB.Connection\")
RS.Open strDSN
\'RS.Execute( \"INSERT INTO cd (nummer,navn) VALUES (12,\'Test\'); \")
RS.Execute( \"INSERT INTO soeg (Navn,URL,Beskrivelse,PLUS) values(\" & \"\'\" & request(\"Navn\") & \"\'\" & \",\" & \"\'\" & request(\"URL\") & \"\'\" & \",\" & \"\'\" & request(\"Beskrivelse\") & \"\'\" & \",\" & \"\'\" & PLUS & \"\'\" & \")\")
%>
<body>
Record have been Added
</body>
</html>
-----------------------------------------------
----------------- ADD.htm -------------------
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Navn</title>
</head>
<body>
<form method=\"POST\" action=\"inset.asp\">
<p>Navn :<input type=\"text\" name=\"Navn\" size=\"20\"></p>
<p>Url :<input type=\"text\" name=\"URL\" size=\"20\"></p>
<p>Beskrivelse :<textarea rows=\"2\" name=\"Beskrivelse\" cols=\"20\"></textarea></p>
<p>Plus :<input type=\"checkbox\" name=\"PLUS\" value=\"ON\"></p>
<p><input type=\"submit\" value=\"Submit\" name=\"B1\"><input type=\"reset\" value=\"Reset\" name=\"B2\"></p>
</form>
</body>
</html>
-------------------------------------------------
--------------------- SOEG.ASP-------------------
<HTML>
<HEAD>
<title></title>
</HEAD>
<BODY>
<form action=\"soeg.asp\" method=\"post\">
<table>
<tr><td><font face=verdana size=2>Søgeord:</font></td><td><input type=\"text\" name=\"soeg\"></td></tr>
<tr><td></td><td><input type=\"submit\" name=\"submit\" value=\"Søg\">
</table>
</form>
<%
If Request.Form(\"soeg\") <> \"\" then
Set DB = Server.CreateObject(\"ADODB.Connection\")
DBSti = \"DBQ=\" & Server.Mappath(\"soeg.mdb\")
DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
SQL = \"select * from Soeg where url like \'%\" & Request.Form(\"soeg\") & \"%\' or Navn like \'%\" & Request.Form(\"soeg\") & \"%\'\"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write \"<table>\"
Do until rs.eof
IF RS(\"PLUS\") = True then %>
<a href=\"<%=rs(\"url\")%>\" target=\"_blank\"><b><%=rs(\"navn\")%></b></a> : <%=rs(\"beskrivelse\")%><br>
<%Else%>
<a href=\"<%=rs(\"url\")%>\"target=\"_blank\"><%=rs(\"navn\")%></a> : <%=rs(\"beskrivelse\")%><br>
<%END IF%>
<%
\'Response.Write \"<tr><td><font face=verdana size=2>\" & rs(\"navn\") & \"<a href=\'
http://\" & rs(\"url\") &\"\'></a></font></td><td><font face=verdana size=2>\" & rs(\"beskrivelse\") & \"</font></td><td width=30></td></tr>\"
rs.movenext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<b>Prøv igen! ikke noget resultat</b>\"
End if
End if
%>
</BODY>
</HTML>
-------------------------------------------------
Så burde det hele virke som du vil have det
