<%@ LANGUAGE=VBSCRIPT %> <% Option Explicit %> Ivan Hrvačić Ivan Hrvaeia
<% '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

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 %>


    Kalkulator ana i kamata

    Na Youtube kanalu


    SLIENI TEKSTOVI

    DNEVNIK

    ARHIVA od 1 do 127

    Galerija fotografija

    <% 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 %>