<%@LANGUAGE="VBSCRIPT"%> <% Dim Novosti__MMColParam Novosti__MMColParam = "1" If (Request.QueryString("Zk1") <> "") Then Novosti__MMColParam = Request.QueryString("Zk1") End If %> <% Dim Novosti Dim Novosti_cmd Dim Novosti_numRows Set Novosti_cmd = Server.CreateObject ("ADODB.Command") Novosti_cmd.ActiveConnection = MM_Connections_STRING Novosti_cmd.CommandText = "SELECT * FROM Novosti WHERE Zk1 = ? ORDER BY ID DESC" Novosti_cmd.Prepared = true Novosti_cmd.Parameters.Append Novosti_cmd.CreateParameter("param1", 200, 1, 50, Novosti__MMColParam) ' adVarChar Set Novosti = Novosti_cmd.Execute Novosti_numRows = 0 %> Zatišje 2003 d.o.o.
 
 
   

Novice

<% Dim nextline, todisplay, endof todisplay = 1 nextline = 2 endof = 1 %> <% do while endof <> (Novosti_total) AND (NOT Novosti.EOF)%> <% endof = endof + 1 %> <% If nextline = todisplay Then %> <% nextline = 0 %> <% End If %> <% nextline = nextline + 1 %> <% Novosti.MoveNext() %> <% loop %>
<%=(Novosti.Fields.Item("Novosti_naslov1_Slo").Value)%>
    
" class="Siva_tahoma12 style1"><<%=(Novosti.Fields.Item("ImaFoto1").Value)%>="../CPx/Materijali/<%=(Novosti.Fields.Item("ID").Value)%>Foto640.jpg" width="220" border="0" />
<%=(Novosti.Fields.Item("Opis1_Slo").Value)%>
 
 
<% Novosti.Close() Set Novosti = Nothing %>