<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;User Id=admin;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT f2 FROM t1 WHERE f1 = 2",con
s = rs("f2")
n = UBound(Split(s)) + 1
Response.Write "Der er " & n & " ord i '" & s & "'"
Set rs = Nothing
Set con = Nothing
%>