<h2><font face="Arial">Kobling mot en Access-database:</font></h2>

<pre>
&lt;HTML&gt;
&lt;head&gt;
&lt;title&gt;&lt;/title&gt;
&lt;/head&gt;

&lt;BODY bgcolor="#FFFFCC"&gt;
&lt;h2 align="center"&gt;
&lt;B&gt;Database i Access.&lt;/B&gt;
&amp;nbsp;&lt;br&gt;
&lt;%@Language="VBScript"%>

&lt;%Session.LCID=1033

Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp &amp; "DBQ=" &amp;
server.mappath("database.mdb")
conn.Open DSNtemp

 SQLstmt = "SELECT * FROM person"
 %&gt;
&lt;/h2&gt;
 &lt;%<br />
 Set rs = conn.Execute(SQLstmt)
 %&gt;
&lt;div align="center"&gt;
 &lt;center&gt;
 &lt;TABLE BORDER='0' bgcolor='#E6E4E4' width='500' cellspacing='3'
cellpadding='0' style='border: 2 solid #000000'&gt;
 &lt;TR&gt;
 &lt;TD
width="55"&gt;&lt;CENTER&gt;&lt;B&gt;Fornavn&lt;/B&gt;&lt;/CENTER&gt;&lt;/TD&gt;

 &lt;TD
width="68"&gt;&lt;CENTER&gt;&lt;B&gt;Etternavn&lt;/B&gt;&lt;/CENTER&gt;&lt;/TD&gt;

 &lt;TD
width="32"&gt;&lt;CENTER&gt;&lt;B&gt;Alder&lt;/B&gt;&lt;/CENTER&gt;&lt;/TD&gt;

 &lt;%
 x=0
 DO WHILE NOT rs.EOF
 x=x+1
 fornavn = rs("fornavn")
 etternavn = rs("etternavn")
 alder = rs("alder")
 %&gt;
 &lt;TR&gt;
 &lt;TD width="55"&gt;&lt;%=fornavn%&gt;&lt;/TD&gt;
 &lt;TD width="55"&gt;&lt;%=etternavn%&gt;&lt;/TD&gt;
 &lt;TD width="32"&gt;&lt;%=alder%&gt;&lt;/TD&gt;
 &lt;%
 rs.MoveNext
 LOOP
 RS.Close
 Response.Write "&lt;/TABLE&gt;"
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%&gt;
 &lt;/table&gt;
 &lt;/center&gt;
&lt;/div&gt;
&lt;/BODY&gt;
</pre>

<p>Skrevet av Sindre Mathisen 2002</p>