Udtræk fra database

Hvad er det jeg skal skrive for at få den til at vise udtrækket fra databasen?

<%
dim connStr, rs, conn, sqlquery
connStr = "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=192.168.90.33,1433; Initial Catalog=DKprod;User ID=sa;Password=sp/2001/9;"
set conn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("adodb.recordset")
conn.Open connStr

sqlquery = "select actNo from niAct"


%>


DETTE ER JO FORKERT, ELLER?
<%=rs("actNo")%>