<% response.ContentType = "text/xml" response.write("") & vbcrlf response.write("") & vbcrlf response.write("") & vbcrlf response.write("") & vbcrlf response.write("http://www.crzagreb.hr/") & vbcrlf response.write("Aktualnosti objavljene na web-stranicama Centra za rehabilitaciju "Zagreb"") & vbcrlf response.write("Copyright 2005. Dizzy internetska rješenja") & vbcrlf response.write("hr") & vbcrlf response.write("pisma@dizzy.hr") & vbcrlf response.write("pisma@dizzy.hr") & vbcrlf '***((( KONEKCIJA )))*** Set ConnNovost = Server.CreateObject("ADODB.Connection") ConnNovost.Open Application("Conn") Set rsNovosti = ConnNovost.Execute("SELECT TOP 20 aktID, aktNaslov, aktSazetak, aktDatum FROM tblAktualnosti WHERE aktObjava = 1 AND aktDatum <= now() ORDER BY aktDatum DESC") Do While Not rsNovosti.Eof response.write("") & vbcrlf response.write("") & vbcrlf response.write("" & rsNovosti("aktSazetak") & "") & vbcrlf response.write("http://www.crzagreb.hr/hr/aktualnosti/?aktID=" & rsNovosti("aktID") & "") & vbcrlf response.write("") & vbcrlf rsNovosti.MoveNext Loop rsNovosti.Close set rsNovosti = nothing '***((( KONEKCIJA )))*** ConnNovost.Close set ConnNovost = nothing response.write("") & vbcrlf response.write("") %>