|
 |
|
| |
|
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
PROMETNA
NEZGODA |
|
|
Što
učiniti u slučaju prometne nezgode?
Vaša dužnost je da pomognete sudionicima
prometne nezgode u okvirima Vaših
mogućnosti i Vašega znanja, i pomognete
u osiguravanju mjesta nezgode od naknadnih
nezgoda postavljanjem sigurnosnog
trokuta ukoliko to sudionici nezgode
nisu u stanju sami učiniti.
|
|
 |
Procijenite u kakvom stanju ste našli sudionike
prometne nezgode, pogotovo ako niste vidjeli
nezgodu, i po mogućnosti uključite i druge
koji se zateknu na mjestu nezgod,
Pokušajte dobro procijeniti stanje ozlijeđenih:
dali su pri svijesti, dišu li, ocijenite
krvarenje, oštećenje kralježnice, povraćanje,
boju kože, puls i dr.
Obavijestite policiju pozivom na broj 92
ili pozovite broj 112.
Što javiti:
tko zove i otkuda
vrstu nesreće i opseg
mjesto nesreće (naselje, cesta, križanje,
tunel... )
vrijeme nastanka prometne nezgode
broj ozlijeđenih osoba i broj teško ozlijeđenih
da li je ozlijeđeni ukliješten ili zatvoren
u vozilu
da li je prilikom nesreće izbio požar
ili eksplozija
da li na mjestu nesreće netko stručno
pruža prvu pomoć
Kako se ponašati ako ste sudionik prometne
nezgode?
Ukoliko ima poginulih ili povrijeđenih
morate obavijestiti policiju na broj 92
ili pozvati broj 112 koji će pozvati prvu
pomoć, vatrogasce ili druge spasioce.
Sačekajte kraj očevida i ne nemojte piti
alkoholna pića. Mjesto nezgode možete
napustiti samo ukoliko pružate pomoć unesrećenima
u nezgodi ili radi poziva policije, nakon
čega se morate vratiti na mjesto nezgode.
Ukoliko ste sudionik prometne nezgode
u kojoj je nastala samo materijalna šteta,
a drugi oštećenik nije prisutan, obavijestite
policiju, recite im svoje podatke i podatke
o vozilima (registarski broj i marku)
Ako imate pri sebi fotoaparat ili kameru
snimite mjesto nezgode iz više položaja
kako bi se kasnije lakše utvrdile okolnosti
pod kojim je došlo do nezgode
Ukoliko ste sudionik prometne nezgode
u kojoj je nastala samo manja materijalna
šteta, uklonite vozilo sa kolnika kako
bi se promet nesmetano odvijao. Ispunite
i potpišite Europsko izvješće o nezgodi
ili na neki drugi način izmijenite podatke
sa ostalim sudionicima nezgode jer ste
to dužni učiniti prema Zakonu o sigurnosti
prometa na cestama. Savjetujemo vam da
u svakoj prometnoj nesreći popunite Europsko
izvješće o nezgodi radi kasnijeg lakšeg
prikupljanja podataka.
|
| |
|
|
