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