<% 'kreiramo veze Dim objConn, kao Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString= "DSN=Ivan.dsn" objConn.open 'kreiranje recordset %>

 

<% Set objRS=Nothing objConn.Close Set objConn=Nothing %>

Link	Galerija Jesen uz Odru	Preporuka
		<% objConn.Close Set objConn=Nothing 'Dim objConn, kao Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString= "DSN=rezerva" objConn.open pizda= "SELECT * FROM vjesti WHERE preporuka = true ORDER BY datum DESC" Set objRS=Server.CreateObject("ADODB.Recordset") objRs.Open pizda, objConn Do While Not objRS.EOF %> " target="_blank"><%=objRS("naslov")%> <% 'response.write (objRS("Naslov")&" ") objRS.MoveNext loop objConn.Close Set objConn=Nothing 'Dim objConn, kao Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString= "DSN=Ivan.dsn" objConn.open %>
Mu?ke na YouTube
	Foto galerije 2023.: *** Izložba pasa Zagreb Winter Classic Dog Shows 2023. *** Jesen *** Sjetski kinološki šampionat u Slovačkoj *** Ispiti i smotra Velika Gorica 2023. *** Betina panoramska fotografija *** Uvala Kosirina panoramska fotografija *** Velika Gorica tržni centar panoramska fotografija *** Velika Gorica park Franje Tuđmana panoramska fotografija ***
	Unesite Va?e uvjete za pretra?ivanje Po?aljite obrazac za pretra?ivanje Web ivan-hrvacic.iz.hr
SLIENI TEKSTOVI	DNEVNIK	ARHIVA od 1 do 127
Galerija fotografija Izložba pasa Zagreb Winter Classic Dog Shows 2023. Jesen uz Odru2023. Sjetski kinološki šampionat u Slovačkoj Ispiti i smotra Velika Gorica 2023. Betina panoramska fotografija Uvala Kosirina panoramska fotografija VG tržni centar panoramska fotografija VG park Franje Tuđmana panoramska fotografija Drvene kapele Turopolja Specijalna izložba Njemačkih Oštrodlakih Ptičara - Gradina 2022. Lov na prepelicu Bosanski Petrovac 2022. <% dim cuca cuca= "SELECT * FROM citati WHERE datum>= Date()-7 ORDER BY datum DESC" dim objRSc Set objRSc=Server.CreateObject("ADODB.Recordset") objRsc.Open cuca, objConn 'dim n 'n=1 'response.Write(vrsta) Do While Not objRSc.EOF SetLocale("hr") %> " target="_blank"><%=objRSc("Naslov")%> <% Response.Write(" - " & objRSc("Od")& " - " & FormatDateTime(objRSc("Datum"),0))%> <% objRSc.MoveNext loop objRSc.Close Set objRSc=Nothing 'Set objConn=Nothing %>	<% dim pizda pizda= "SELECT * FROM vjesti WHERE year(datum) > '2022' ORDER BY id DESC" //pizda= "SELECT * FROM vjesti WHERE id > 530" dim objRS Set objRS=Server.CreateObject("ADODB.Recordset") objRs.Open pizda, objConn dim nn, arhiva dim xy xy=1 nn=1 nas=1 arhiva=Request("Arh") if arhiva = 0 then arhiva=objRS("id") else arhiva=Request("Arh") end if SetLocale("hr") Do While Not objRS.EOF if cdbl(objRS("id"))=cdbl(arhiva) then if xy<=3 then arhiva=arhiva-1 else arhiva=10000 end if xy=xy+1 response.write(" "&FormatDateTime(objRS("datum"),1)&" "&" ") response.write(" "&""&objRS("naslov")&""&" "&" ") dim nas, broji nas=objRS("id") Response.write(" "&objRS("vjesti")&" ") 'http://ivan-hrvacic.iz.hr/pregled.asp?Arh=328&ArhTag=agrokor %> Tag: & Arh=<%=objRS("id")%>" class="style42"><%=objRS("tag")%> " class="style45">Komentiraj " target="_blank">Ispis <% 'kreiramo veze 'Dim objConn, kao ' objConn.open dim objRSpor, pip pip= "SELECT * FROM tblPoruka WHERE datum > 0 ORDER BY datum ASC" Set objRSpor=Server.CreateObject("ADODB.Recordset") objRSpor.Open pip, objConn,,3 %> <% broji=0 Do While Not objRSpor.EOF if objRSpor("tema")= nas then broji=broji+1 response.write (" ") response.write (objRSpor("Poruka")&" ") response.write (objRSpor("ime")& ", " & formatDateTime(objRSpor("datum"),0)&" "&" ") objRSpor.MoveNext else objRSpor.MoveNext end if loop response.write("Komentara("&broji&")") %> <% objRSpor.Close Set objRSpor=Nothing objRS.MoveNext else objRS.MoveNext end if loop objRS.Close ' %> <% pip= "SELECT * FROM tblPoruka WHERE datum > 0 ORDER BY datum DESC" Set objRSpor=Server.CreateObject("ADODB.Recordset") objRSpor.Open pip, objConn,,3 %> <% Dim idee idee=0 broji=0 Do While Not objRSpor.EOF if objRSpor("tema")= cdbl(idee) then broji=broji+1 response.write (" ") response.write (objRSpor("Poruka")&" ") response.write (objRSpor("ime")& ", " & formatDateTime(objRSpor("datum"),0)&" "&" ") objRSpor.MoveNext else objRSpor.MoveNext end if loop response.write("Komentara("&broji&")") 'objRS.Close Set objRS=Nothing objConn.close Set objconn=Nothing %>	ARHIVA <% Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString= "DSN=Ivan.dsn" objConn.open dim nasa, zda zda= "SELECT * FROM vjesti WHERE id > 280 ORDER BY id DESC" //zda= "SELECT * FROM vjesti WHERE year(datum)>'2021' ORDER BY id DESC Set objRS=Server.CreateObject("ADODB.Recordset") objRs.Open zda, objConn broji=0 Do While Not objRS.EOF broji=broji+1 nasa=objRS("naslov") kao=objRS("Tag") //objRS.MoveNext %> <% if objRS("id")="" then objRS.MoveNext else response.write (objRS("id") &"." ) end if %> &ArhTag=<%=objRS("tag")%>" target="_blank" class="style41"><%=objRS("naslov")%> <% dim objRSpor1, pipa nasa=objRS("id") pipa= "SELECT * FROM tblPoruka WHERE datum > 0 ORDER BY datum DESC" Set objRSpor1=Server.CreateObject("ADODB.Recordset") objRSpor1.Open pipa, objConn,,3 broji=0 Do While Not objRSpor1.EOF if objRSpor1("Tema")= nasa then broji=broji+1 objRSpor1.MoveNext else objRSpor1.MoveNext end if loop if broji>0 then response.write(" ") response.write(" *Komentara("&broji&")"&"") else response.write(" ") response.write(" *Komentara("&broji&")"&"") end if objRS.MoveNext loop objRS.Close %>

Izradio Ivan Hrvačić, 2007

<% if Request.Cookies("theName")= "Ivan" and Request.Cookies("theEmail")= "ivan.hrvacic@gmail.com" then response.write("Unos i promjena") end if %>