<% Const adCmdText = &H0001 dim njuus set njuus= Server.CreateObject("ADODB.Connection") njuus.commandTimeOut = 15 njuus.ConnectionTimeOut = 30 njuus.open "dsn=mla_support_web; uid=supportuser; pwd=su880rtas33k;" sql="SELECT pealkiri, sisu, stiil, DATENAME(dd, kuup) AS kp_d, DATEPART(mm, kuup) AS kp_k, DATENAME(hh, kuup) AS kp_h,DATENAME(mi, kuup) AS kp_m FROM dbo.ilvesnews ORDER BY id DESC" Set rs = njuus.Execute(sql, , adCmdText) do while not rs.EOF strSisu=rs.fields("sisu").value %> "> <%=rs("kp_d")&".0"&rs("kp_k")&" "&rs("kp_h")&":"&rs("kp_m") %> <%=trim(rs("pealkiri"))&" "& strSisu %> <% rs.MoveNext loop rs.Close Set Rs = Nothing njuus.close set njuus = Nothing %>