<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%> <% Dim Novosti__MMColParam Novosti__MMColParam = "1" If (Request.QueryString("otvori1") <> "") Then Novosti__MMColParam = Request.QueryString("otvori1") 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 ID = ?" Novosti_cmd.Prepared = true Novosti_cmd.Parameters.Append Novosti_cmd.CreateParameter("param1", 5, 1, -1, Novosti__MMColParam) ' adDouble Set Novosti = Novosti_cmd.Execute Novosti_numRows = 0 %> <% Dim NovostiSlike__MMColParam NovostiSlike__MMColParam = "1" If (Request.QueryString("otvori1") <> "") Then NovostiSlike__MMColParam = Request.QueryString("otvori1") End If %> <% Dim NovostiSlike Dim NovostiSlike_cmd Dim NovostiSlike_numRows Set NovostiSlike_cmd = Server.CreateObject ("ADODB.Command") NovostiSlike_cmd.ActiveConnection = MM_Connections_STRING NovostiSlike_cmd.CommandText = "SELECT * FROM Novosti WHERE ID_veza = ?" NovostiSlike_cmd.Prepared = true NovostiSlike_cmd.Parameters.Append NovostiSlike_cmd.CreateParameter("param1", 200, 1, 50, NovostiSlike__MMColParam) ' adVarChar Set NovostiSlike = NovostiSlike_cmd.Execute NovostiSlike_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 NovostiSlike_numRows = NovostiSlike_numRows + Repeat1__numRows %> Zatišje 2003 d.o.o.
 
 
   

<%=(Novosti.Fields.Item("Novosti_naslov1_Slo").Value)%>
<% If Not Novosti.EOF Or Not Novosti.BOF Then %> <% End If ' end Not Novosti.EOF Or NOT Novosti.BOF %>
<<%=(Novosti.Fields.Item("ImaFoto1").Value)%>="../CPx/Materijali/<%=(Novosti.Fields.Item("ID").Value)%>Foto640.jpg"; width="298" border="0" />
pdf_slo.pdf" target="_blank">_pdf.gif" border="0" />
<%=(Novosti.Fields.Item("Opis1_Slo").Value)%>
<%=(Novosti.Fields.Item("Opis2_Slo").Value)%>		 <% If Not NovostiSlike.EOF Or Not NovostiSlike.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT NovostiSlike.EOF)) %> Foto640.jpg" title="<%=(NovostiSlike.Fields.Item("Opis1").Value)%>" target="_blank" rel="lightbox[<%=(NovostiSlike.Fields.Item("ID_veza").Value)%>]">foto640.jpg" alt="<%=(NovostiSlike.Fields.Item("Opis1").Value)%>" title="<%=(NovostiSlike.Fields.Item("Opis1").Value)%>" width="195" border="0" /> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 NovostiSlike.MoveNext() Wend %> <% End If ' end Not NovostiSlike.EOF Or NOT NovostiSlike.BOF %>
<% Novosti.Close() Set Novosti = Nothing %> <% NovostiSlike.Close() Set NovostiSlike = Nothing %>