<%@ Language=VBScript %> <% Session.LCID=1050 %> Knjiga gostiju
<%=Date%>
Grad Senj		 Izlaz / Home  
Pošalji poruku/ Send message/ Pošalji poruku
Početna stranica KNJIGA GOSTIJU/GUEST BOOK/GÄSTEBUCH
<% set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0" baza = Server.MapPath("../baze/Oglasi.mdb") objConn.open baza '****strSQL = "SELECT * FROM Oglasi ORDER BY Datum DESC" strSQL = "SELECT * FROM Oglasi ORDER BY Id DESC" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn '***** Do While Not objRS.EOF %>
<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Dim encode_txt encode_txt=objRS("Text") encode_txt=Server.HTMLEncode(encode_txt) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" objRS.MoveNext %>
#"&objRS("Id") &""&objRS("Potpis") &" "&objRS("Email") &"
"&encode_txt&"
"&objRS("Datum") &""&objRS("Vrijeme") &""&objRS("Mjesto") &"
<% Loop objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>
Prikaži po 10 poruka po stranici/
Show 10 messages for each page >>
Vrh stranice/ Top/
Vrh stranice