<%@ 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
<< Slijedeća stranica/Next Page Prethodna stranica/Previous page >>
  <% brp_str=10 pokazivac=Session("Pokazivac") br_zadnji_Id=Session("Ukupno") If pokazivac=1 Then pokazivac2=brp_str Else 'Response.Write "Pokazivac="&pokazivac&" " pokazivac2=pokazivac-1 pokazivac=pokazivac-brp_str 'Response.Write "Pokazivac="&pokazivac&" " 'Response.Write "Pokazivac2="&pokazivac2&" " Session("Pokazivac")=pokazivac End If 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 WHERE Id >= pokazivac AND Id>= pokazivac2" strSQL = "SELECT * FROM Oglasi WHERE Id >= "&pokazivac&" AND Id<="&pokazivac2&" ORDER BY Id DESC" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn Response.Write "Poruke: <"&pokazivac&"-"&pokazivac2&">
" %> 		  <% Response.Write "Ukupno poruka: <"&br_zadnji_Id&">
"%>
 
<% 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 sve poruke na istoj stranici/
Show all messages on same page >>
Vrh stranice/ Top/
Vrh stranice