|
 |
|
| |
|
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 "![](" & rs.fields("BannerImage") & ") "
' 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
%>
|
|
|
|
|
|
|
SAVJETOVALIŠTE
GAŠENJE
POŽARA U AUTU |
|
|
Ugasite
požar sami!
Vozilo vam se zapalilo, pokušajte
sami ugasiti požar jer dok stigne
vatrogasno vozilo može biti kasno.
Da biste to sami učinili morate poznavati
osnovne sigurnosne mjere i način gašenja.
Prvi znaci požara u vašem vozilu je
neugodan miris paljevine, najčešće
plastike ili benzina koji će se osjetiti
u kabini vozila. Dim se ne mora odmah
pojaviti.
|
|
 |
Česti uzrok izbijanja požara je loše stanje
električnih instalacija ili istjecanje goriva.
Do požara može doći i uslijed prometne nezgode.
Ukoliko za vrijeme vožnje osjetite neugodan
miris paljevine, zaustavite vozilo i isključite
motor. Kad ste se uvjerili da miris dolazi
iz motora (vjerojatno se već vidi i dim)
učinite slijedeće:
1. polagano podignite poklopac motora
2. ukoliko je moguće odvojite akomulator
3. uzmite vatrogasni aparat (pod pretpostavkom
da ga imate u vozilu) i izvucite osigurač
4. aparat držite okomito, usmjerite mlaz
na vatru i počnite gasiti plamen
5. ukoliko se plamen raširio, gasite isprekidanim
mlazovima, jer je količina praha u aparatu
ograničena
U slučaju da nemate aparat, požar nemojte
nikada gasiti vodom. Plamen pokušajte "pokriti"
nekim pokrivačem ili krpom nastojeći da
plamen što prije ugušite. Pokušajte zadržati
prisebnost i ne dozvolite da vas uhvati
panika. Ne zaboravite redovito održavati
vatrogasni aparat kod ovlaštene organizacije.
Vatrogasni aparat spada u dodatnu opremu
koja nije obvezna za privatne osobe, pa
vam preporučujemo da nabavite jedan za svoje
vozilo. Prema Pravilniku o održavanju i
izboru vatrogasnih aparata, mora se nalaziti
u vozilima koja su u vlasništvu poduzeća
i drugih pravnih osoba. Vrsta, veličina
i broj aparata nalazi se u tablici.
|
|
|
| VRSTA
VOZILA |
VRSTA
I VELIČINA APARATA |
BROJ
KOMADA |
|
|
|
| Osobni automobil za javni
prijevoz |
prah ABC - 2 kg |
1 |
|
|
|
| Osobni
automobil u vlasništvu pravnih osoba,
obrtnika i tijela državne uprave koji
služe u prijevozu za vlastite potrebe |
prah
ABC - 1 kg |
1 |
|
|
|
| Kombi vozila, vozila registrirana
za više od 5 osoba i tramvaji |
prah ABC - 2 kg |
1 |
|
|
|
| Autobusi
javnog gradskog prometa i kamioni do
2,5 t nosivosti |
prah
ABC - 3 kg |
1 |
|
|
|
| Međugradski autobusi i
kamioni preko 2,5t nosivosti |
prah ABC - 6 kg |
1 |
|
|
|
| Kamioni
s prikolicom i tegljači |
prah
ABC - 6 kg |
2 |
|
|
|
|
| |
|
|
