<%@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.
 
 
   

Novosti

<% 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.Close() Set Novosti = Nothing %>