Her er HELE koden, men jeg kan godt tilføje et link hvis bare jeg ikke skriver mere end ca. 20 tegn i kolonnen kommentar.
\"<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; server=local; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"xxxxx.mdb\")
Conn.Open DSN
strSQL = \"Select * from links\"
set rscount = conn.execute(\"select count(id) as antal from links\")
antal = rscount(\"antal\")
set rscount = nothing
%>
<% mode = request(\"mode\") %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"xxxxx.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From links\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%><% if mode =\"\" then %>
<head>
<style>
body
{font-family:tahoma,verdana,arial; font-size:7pt; color:#000000}
TD{font-family:tahoma,verdana,arial; font-size:7pt; color:#000000}
a:link { text-decoration: underline; color: #000000;}
a:visited { text-decoration: underline; color: #000000;}
a:active { text-decoration: underline; color: #000000;}
</style>
<form action=\"linksadd.asp?mode=tilfojet\" method=\"post\">
<title>Stevn design</title>
</head>
<body background=\"bg.jpg\">
<p align=\"center\">
Navn: <input type=\"text\" name=\"navn\" maxlength=\"100\" size=\"40\" style=\"font-family: Tahoma; font-size: 10 px\"><br>
<br>
Handler om/indeholder:<br>
<textarea name=\"kommentar\" cols=\"47\" rows=\"3\" style=\"font-family: Tahoma; font-size: 10 px\"></textarea><br>
<br>
Email: <span class=\"rot\"><input type=\"text\" name=\"email\" maxlength=\"100\" size=\"40\" style=\"font-family: Tahoma; font-size: 10 px\"><br>
<br>
</span>Website: <span class=\"rot\"><input type=\"text\" name=\"url\" value=\"
http://\" maxlength=\"100\" size=\"40\" style=\"font-family: Tahoma; font-size: 10 px\"><br>
<br>
</span><input type=\"submit\" value=\"Send\" name=\"Submit\" style=\"font-family: Tahoma; font-size: 10 px\">
<p align=\"center\"><a href=\"links.asp\">Tilbage til links</a></p>
<% end if %>
<% if mode =\"tilfojet\" then
rs.AddNew
rs(\"navn\") = Request.form(\"navn\")
rs(\"email\") = Request.form(\"email\")
rs(\"url\") = Request.form(\"url\")
rs(\"kommentar\") = Request.form(\"kommentar\")
rs(\"dato\") = date()
rs(\"kl\") = time()
rs(\"Ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
rs.Update
%>
<script language=\"javascript\">
self.location=\"/stevn/links.asp\";
</Script>
<% end if %>\"