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

 
ON-LINE UČIONICA
PROMETNI ZNAKOVI

Pregled prometnih znakova

Znakovi opasnosti
Znakovi izričitih naredbi
Znakovi obavijesti (I dio)
Znakovi obavijesti (II dio)
Znakovi obavijesti za vođenje prometa

Znakovi obavijesti (II dio)

  C071 C072 C073 C074 C075 C076 C077 C078 C079 C080
  C081 C082 C083 C084 C085 C086 C087 C088 C089 C090
  C091 C092 C093 C094 C095 C096 C097 C098 C099 C100
  C101 C102 C103 C104 C105 C106 C107 C108 C109 C110
  C111 C112 C113 C114 C115 C116 C117 C118 C119 C120
  C121 C122 C123 C124 C125 C126 C127 C128 C129 C130
  C131 C132_ C133              
 
design & hosting by Internet arhiva d.o.o.