Knjiga gostiju

<%@ Language=VBScript %> <% Session.LCID=1050 %> Knjiga gostiju

<%=Date%> Grad Senj	Izlaz / Home
		Pošalji poruku/ Send message/ Pošalji poruku
	KNJIGA GOSTIJU/GUEST BOOK/GÄSTEBUCH

<< Slijedeća stranica/Next Page

Prethodna stranica/Previous page >>


	<% 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 Id DESC" strSQL = "SELECT * FROM Oglasi " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, 1 '***** objRS.MoveLast 'Response.Write "Id zadnjeg zapisa="&objRS("Id")&" " brp_str=10 zadnji_Id=objRS("Id") br_zadnji_Id=Cint(zadnji_Id) ostatak=br_zadnji_Id Mod brp_str If ostatak=0 Then ostatak=brp_str End If 'pokazivac=br_zadnji_Id-(br_zadnji_Id Mod brp_str)+1 pokazivac=br_zadnji_Id-ostatak+1 pokazivac2=pokazivac+brp_str-1 'Response.Write " ("&pokazivac&"-"&br_zadnji_Id&")" Session("Pokazivac")=pokazivac Session("Ukupno")=br_zadnji_Id objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Response.Write "Poruke: <"&pokazivac&"-"&br_zadnji_Id&"> " %>		<% Response.Write "Ukupno poruka: <"&br_zadnji_Id&"> "%>

<% 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 '***//// 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