Trke održane u prethodnih 15 dana u: <% '***************************************** '*** Nemoj da puknes kad naidjes na gresku '***************************************** '**** On Error Resume Next '****************************** '***** DEFINISANJE BAZE '****************************** set objADO = Server.CreateObject("ADODB.Connection") sConnection ="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath(".")&"\_baza\kasaciweb.mdb;" objADO.Open(sConnection) '******************* '*** Pokupi podatke '******************* komand1 = "select * from trkeweb where datumtrke>DateAdd('d',-15,date()) and datumtrke"&slog("mestohipodroma")&"" response.write(ispis) end if tempslog=slog("mestohipodroma") slog.movenext loop else ispis="Nema odrzanih trka" response.write(ispis) end if %>