Avtohiša Jureš - novosti in akcije

<%@LANGUAGE="VBSCRIPT" %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_Jures_STRING Recordset1.Source = "SELECT * FROM obvestila WHERE Datumod <= date() AND Datumdo >= date() ORDER BY Datumod DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Avtohiša Jureš - novosti in akcije

Avtohiša Jureš, Janez Jureš s.p., Hradeckega c. 35, 1000 Ljubljana, tel.: (01) 431 63 88, 232 85 91, 439-99-70, faks: (01) 439-99-74, delovni čas: delovnik: 7 - 17 ure, petek: 7 - 15 ure.

NOVOSTI IN AKCIJE

<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

	<%=(Recordset1.Fields.Item("Naslov").Value)%>	<%= DoDateTime((Recordset1.Fields.Item("Datumod").Value), 2, 1051) %>
<%=Replace(Recordset1.Fields.Item("Sporocilo").Value,chr(13)," ")%>

<% If Recordset1.EOF And Recordset1.BOF Then %>

Trenutno ni novosti in akcij. Prosimo, da nas obiščete kasneje.

<% End If ' end Recordset1.EOF And Recordset1.BOF %>

<% Recordset1.Close() %>