 |
 Senj,
<%=Date%> |
Obavijesti
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0"
baza = Server.MapPath("../baze/Obavijesti.mdb")
objConn.open baza
'****
strSQL = "SELECT * FROM Obavijesti WHERE Status = True ORDER BY Id DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
'*****
Do While Not objRS.EOF
%>
<%
Response.Write " | "
Response.Write "| #"&objRS("Id") &" | "
Response.Write ""&objRS("Datum") &" | "
Response.Write " "&objRS("Vrijeme") &" | "
Dim encode_txt
encode_txt=objRS("Sadrzaj")
'encode_txt=Server.HTMLEncode(encode_txt)
Response.Write "| "&encode_txt&" | "
'Dim encode_img
'encode_img=""
'encode_img=Server.HTMLEncode(encode_img)
Response.Write " | "
Response.Write " | "
Response.Write " | "
Response.Write " | "
objRS.MoveNext
%>
<%
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
 |
|
|
| |
|
|
|
