Jeg bruger en include fil til db-tilslutning:
f.eks dblinksinc.asp med flg indhold:
<%
strConnect = \"Data Source=\" & Server.Mappath(\"../sys/links.mdb\") & \";Provider=Microsoft.Jet.OLEDB.4.0;\"
%>
og herefter filen blabla.asp der ser f.eks sådan ud:
<!-- #include file=\"dblinksinc.asp\" -->
<%
if session(\"godkendt\") = false then
response.redirect \"menu.asp\"
end if
%>
<%
if NOT isempty(Request.Form(\"Insert\")) then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open StrConnect
SQL = \"insert into links (WWW, Beskrivelse) \" _
& \"values (\" _
& \"\'\" & Request.Form(\"www\") & \"\', \" _
& \"\'\" & Request.Form(\"beskr\") & \"\')\"
Set RS = Conn.Execute(SQL)
end if
%>
<html>
<head>
<title>Indsæt post i databasen</title>
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 3.0\">
</head>
<body>
<p><font face=\"Arial Black\"><small>Opret nyt link</small> </font></p>
<form method=\"POST\">
<p>Indtast adresse på nyt link, f.eks. <font
color=\"#FF0000\">
www.aofhorsens.dk</font></a> :<br>
<input type=\"text\" name=\"www\" size=\"47\"></p>
<p>Indtast beskrivelse af nyt link!<br>
<textarea rows=\"4\" name=\"beskr\" cols=\"47\"></textarea></p>
<p><small><font face=\"Arial\"><strong>OBS!<br>
</strong>Begge felter skal udfyldes!</font></small></p>
<p><input type=\"submit\" value=\"Indsæt\" name=\"Insert\"><input type=\"reset\" value=\"Fortryd\"
name=\"B2\"></p>
</form>
</body>
</html>
og her indhold af filen slet.asp:
<!-- #include file=\"dblinksinc.asp\" -->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open StrConnect
if not IsEmpty(Request.Form(\"Delete\")) then
conn.Execute \"delete from links where Id = \" & Request.Form(\"T1\")
end if
%>
<html>
<head>
<title>Sletbruger</title>
</head>
<body>
<form method=\"POST\">
<p><small><font face=\"Arial Black\">Slet indlæg</font></small> <input
type=\"text\" name=\"T1\" size=\"20\">Id <input type=\"submit\" value=\"Delete\"
name=\"Delete\"><input type=\"reset\" value=\"Reset\" name=\"B2\"></p>
</form>
</body>
</html>