|
 |
|
| |
|
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
%>
|
|
|
|
|
|
|
ON-LINE UČIONICA
PROMETNA PRAVILA |
|
|
|
Skretanje
vozilom
Skretanje ulijevo
 Vozač
koji vozilom skreće na raskrižju ulijevo
mora se kretati krajnjom lijevom prometnom
trakom uz središnju uzdužnu crtu koja služi
za razdvajanje kolničkih traka. Skretanje
treba izvesti uz zamišljeni ili obilježeni
luk koji spaja dvije središnje crte bočnih
kolnika. Prije nego skrene ulijevo vozač
mora:
- provjeriti kretanje vozila iza sebe
gledanjem u zrcala (unutarnje i vanjsko)
i preko ramena radi provjere "mrtvog kuta"
- uključiti lijeve pokazivače smjera
- razvrstati se uz lijevi rub prometne
trake
- prilagoditi brzinu vožnje vidnom polju
ovisno o prometnoj situaciji
- propustiti pješake i bicikliste koji
se kreću po pješačkom prijelazu i biciklističkoj
stazi koju presijeca
- propustiti promet iz suprotnog smjera
osim ako prometnim znakom ili oznakama
na cesti, kao razinom upravljanja prometom
višom od prometnog pravila nije drugačije
određeno
Skretanje udesno
 Vozač
koji vozilom skreće na raskrižju udesno
mora se kretati krajnjom prometnom trakom
uz desni rub kolnika. Prije nego skrene
udesno vozač mora:
- provjeriti kretanje vozila iza sebe
gledanjem u zrcala (unutarnje i vanjsko)
i preko ramena radi provjere "mrtvog kuta"
- uključiti desne pokazivače smjera
- razvrstati se uz desni rub prometne
trake
- prilagoditi brzinu vožnje vidnom polju
ovisno o prometnoj situaciji
- propustiti pješake i bicikliste koji
se kreću po pješačkom prijelazu i biciklističkoj
stazi koju presijeca
- propustiti autobuse koji se kreću po
prometnoj traci za vozila javnog gradskog
prijevoza, koja je desno od prometne trake
po kojoj se vozač kreće
|
| |
|
|
