<% Set objConn = CreateObject("ADODB.Connection") objConn.Open "DSN=KT080128_webman;UID=;pwd=" SQL = "" Set rsSok = CreateObject("ADODB.Recordset") Set rsSok.ActiveConnection = objConn rsSok.Open "SELECT * FROM tblPages where PageActive = 'ja' AND PageLevel = 1 order by PageOrder" Do While Not rsSok.EOF %> <% rsSok.MoveNext Loop rsSok.close set rsSok = Nothing objConn.close set objConn = Nothing %>

" target="main"><%= rsSok("PageName")%>

Kontakta