NASLOVNICAO NAMAUSLUGEKONTAKTION-LINE TESTOVI
   
ON-LINE UČIONICA
POPIS AUTOŠKOLA
SAVJETOVALIŠTE
ZAKONI I PRAVILNICI
AUTI, KREDITI, OSIGURANJA
SPORT - FORMULA 1
MALI OGLASI
HUMOR I ZABAVA
KORISNI LINKOVI
ON-LINE TESTOVI
 

Powered by:

 

 

  
  <% ' ASP Banner Rotator (BETA) for IIS 4.0+ ' ' Version: v1.0 ' Author : Keith Ollerton (ollertonk@postmaster.co.uk) ' F1-Computer Solutions (c) 2000 ' ' Last Modified: 09/08/2000 ' All rights reserved. ' ----------------------------- ' ' ASP Banner Rotator was tested under IIS 4.0 on a Windows NT 4.0 (SP5) ' ' ' Please send bug reports, comments, etc to ollertonk@postmaster.co.uk ' ' This version of ASP banner Rotator may be used and modified free of charge ' by anyone so long as this copyright notice and the comments above ' remain intact. By using this code you agree to indemnify ' Keith Ollerton from any liability that might arise ' from its use. ' ' Selling the code for this program without prior written consent is ' expressly forbidden. ' ' This is a beta release meant for testing only until this line is removed by the author. ' ' ChangeLog: ' 1.0 - Inital Release ' Set some general variables BackgroundColor = "D6DFE7" ' background color of the page (hex value) sDataSource = "e:\inetpub\wwwroot\autoskola.com.hr\banneri\470x70\banners.mdb" ' Local Path to Database ' Open Database Access Connection Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & sDataSource mySQL="SELECT * FROM banners" set rs=Server.CreateObject("adodb.recordset") rs.open mySQL, Con, 3 BannersRecordCount=rs.recordcount randomize() dim RandomNumber dim upperbound dim lowerbound upperbound = BannersRecordCount lowerbound = 1 ' Get a random record number between 1 and number of banners available RandomNumber = int ((upperbound - lowerbound + 1) * rnd + lowerbound) set rs=Server.CreateObject("adodb.recordset") ' Open Static RecordSet ' Equivalent values of adOpenKeyset, adLockPessimistic, adCmdTable ' from the adovbs.inc file which I haven't included here rs.open "banners", Con, 1, 2, &H0002 ' Move to the first record ready to cycle through them rs.movefirst ' Cycle through the banners until we've got the n'th one ' We can't do this with a SELECT statement as the record ' with an ID matching the RandomNumber may have been delete. dim intLoop For intLoop = 1 To RandomNumber - 1 rs.movenext next ' response.write "" ' response.write "" ' response.write "" ' response.write "" ' response.write "

" response.write "" response.write "" ' response.write " width='" & rs.fields("BannerWidth") & "' height='" & rs.fields("BannerHeight") & "'>" ' response.write "" ' response.write "" ' Increment the display count for this banner dim current current = rs.Fields("BannerDisplayCount")+ 1 rs.Fields("BannerDisplayCount")= current rs.update ' Check to see if the banner has expired - if it has delete its record if rs.fields("BannerExpiryDate") < date() then ' Delete the record - the 1 is the equivalent value of adAffectCurrent ' from the adovbs.inc file which I haven't included here rs.Delete 1 end if ' Finished with the recordset now - so close it con.close set con=nothing %>

 
AUTI, KREDITI, OSIGURANJE
O LEASINGU
 
leasing kuće
erste s-leasing
raiffeisen leasing
pbz leasing
locat leasing
hypo-leasing
vb leasing
z plus leasing
info leasing
debis leasing
hvb leasing
ald automotive
porsche leasing
euroleasing

Što je leasing?

Leasing je poseban oblik financiranja temeljen na ideji da se predmet leasinga ne kupi već unajmi. Ovime se omogućava da korisnik uz određenu mjesečnu naknadu dobije predmet leasinga na korištenje na onaj vremenski period koji mu je potreban.

U pravilu se leasingom koriste tvrtke i obrtnici jer kroz ovakav način financiranja stječu određene računovodstvene pogodnosti.

Dva su osnovna tipa leasinga - financijski i operativni.

Financijski leasing

Kod ovog leasinga pravni vlasnik predmeta leasinga je davatelj leasinga, a korisnik leasinga je ekonomski vlasnik.

Korisnik leasinga vodi i otpisuje predmet leasinga u svojim knjigama što znači da kao troškove evidentira amortizaciju predmeta leasinga i troškove vezane uz leasing (kamata, naknade, ....).

Po otplati posljednje rate korisnik leasinga postaje vlasnikom predmeta leasinga.

Također, korisnik leasinga se može odlučiti želi li PDV na predmet leasinga platiti odmah i leasing uzeti samo na netto vrijednost predmeta ili leasing uzeti na brutto (netto+pdv) vrijednost predmeta.

Operativni leasing (najam)

Kod ovog leasinga i pravni i ekonomski vlasnik predmeta leasinga je davatelj leasinga.

Predmet leasinga se vodi i otpisuje u knjigama davatelja leasinga čime se bilanca primatelja leasinga ne opterećuje niti se iskazuje kao kreditna zaduženost koja bi smanjila vrijednost tvrtke.

Korisnik leasinga evidentira cjelokupnu ratu leasinga kao mjesečni trošak.

Nakon isteka leasinga, predmet leasinga se vraća davatelju leasinga, a po želji se može i otkupiti.
 
design & hosting by Internet arhiva d.o.o.