<%@ language=VBScript %>
<%Option Explicit%>
<%
'###############################################################################################
'### Registracija
'###############################################################################################
'### SQL tbl_registracija (Vrste vozil)
'### tbl_registarcija_cestnina (Cenik cestnine)
'### tbl_registarcija_stroski (Vrste ostalih obveznih stroškov)
'### tbl_registarcija_stroski_cena (Cena enega ostalega obveznega stroška)
'### tbl_registarcija_zavarovanje (Cena za osnovno zavarovanje)
'### tbl_registarcija_zavarovanje_ao (Cena za zavarovanje AO+)
'###############################################################################################
'### Zadnja sprememba: 2007.11.06
'###############################################################################################
Dim liTip '### Tip vozila
Dim giWidth '### Width
'###############################################################################################
Dim a '### Davek 6.5% za zavorvanje
Dim b '### Bonus/malus premije
Dim d '### Doplačilo 20% za firmo ali novega voznika
Dim e '### Kje se začne PR zavarovanje
Dim checked '### Konstanta za izbrano ali neizbrano za CHECKBOX
Dim tmp '### Temp field
Dim laOutput '###
Dim laHelp '###
'###############################################################################################
Dim liAOosnova '### Zavarovanje - PR 14 enojna zavarovalna vsota
Dim liAOvsota '### Zavarovanje - AO enojna ali podvojena zavarovalna vsota
Dim liAOrazred '### Zavarovanje - Razred bonusa za zavarovanje
Dim lcAOdodatek1 '### Zavarovanje - Dodatek mlad voznik (TRUE/FALSE) Množiš z d
Dim lcAOdodatek2 '### Zavarovanje - Dodatek firma (TRUE/FALSE) Množiš z d
Dim lcAOplus '### Zavarovanje - AO Plus (TRUE/FALSE)
Dim lcAOzelenakarta '### Zavarovanje - Zelena karta (TRUE/FALSE)
Dim lmAOzelenacena '### Zavarovanje - Zelena karta cena (1000 SIT)
Dim liGeneraliPopust '### Popust za Generali (5%,10% ali 12%)
Dim lsGeneraliPopust '### Vrste popusta
'###############################################################################################
Dim lmTriglavAO, lmSlovenicaAO, lmTiliaAO, lmMariborAO, lmGeneraliAO
Dim lmTriglavAOplus, lmSlovenicaAOplus, lmTiliaAOplus, lmMariborAOplus, lmGeneraliAOplus
Dim lmTriglavSkupaj, lmSlovenicaSkupaj, lmTiliaSkupaj, lmMariborSkupaj, lmGeneraliSkupaj
'###############################################################################################
Dim liCestnina '### Cestnina
Dim liCestninaMesec '### Cestnina za mesece
Dim lmCestninaSkupaj '### Cestnina - Skupna cena
'###############################################################################################
Dim liTehnicni '### Tehnični pregled
Dim lsTehnicni '### String iz baze kjer dobimo vrste tehničnih
Dim lcTehnicniclan '### Tehnični pregled - Član AMZS (TRUE/FALSE)
Dim lmTehnicniSkupaj '### Tehnični pregled - Skupna cena
'###############################################################################################
Dim liStroski '### Ostali stroški
Dim lsStroski '### String iz baze kjer dobimo vrste stroškov
Dim laStroski(20) '### Array za stroške iz baze SQL
Dim liStroskicena '### Seštevek cene za stroške
Dim lcStroskinalepka '### Ostali stroški - Doplačilo za leplenje nalepke (TRUE/FALSE)
Dim lmStroskiNalepka '### Ostali stroški - Cena za nalepko
Dim lmStroskiSkupaj '### Ostali stroški - Skupna cena
'###############################################################################################
giWIdth = 602
a = "1.065"
d = "1.2"
e = -55
lsGeneraliPopust = "5,10,12"
liTip = IsNumeric(Request.QueryString("tip"))
If Request.QueryString("tip") = "" Or liTip = False Then
liTip = 2
Else
liTip = Round(Request.QueryString("tip"))
If Not (liTip >= 1 And liTip <= 18) Then
liTip = 2
End If
End If
liAOosnova = Request.Form("osnova")
If liAOosnova = "" Then
liAOosnova = 0
End If
liAOrazred = Request.Form("razred")
If liAOrazred = "" Then
liAOrazred = 14
b = "1"
Else
If liAOrazred = 3 Then
b = "0.45"
ElseIf liAOrazred = 4 Then
b = "0.5"
ElseIf liAOrazred = 5 Then
b = "0.55"
ElseIf liAOrazred = 6 Then
b = "0.60"
ElseIf liAOrazred = 7 Then
b = "0.65"
ElseIf liAOrazred = 8 Then
b = "0.70"
ElseIf liAOrazred = 9 Then
b = "0.75"
ElseIf liAOrazred = 10 Then
b = "0.80"
ElseIf liAOrazred = 11 Then
b = "0.85"
ElseIf liAOrazred = 12 Then
b = "0.90"
ElseIf liAOrazred = 13 Then
b = "0.95"
ElseIf liAOrazred = 14 Then
b = "1"
ElseIf liAOrazred = 15 Then
b = "1.1"
ElseIf liAOrazred = 16 Then
b = "1.2"
ElseIf liAOrazred = 17 Then
b = "1.35"
ElseIf liAOrazred = 18 Then
b = "1.5"
ElseIf liAOrazred = 19 Then
b = "1.7"
ElseIf liAOrazred = 20 Then
b = "2.0"
Else
b = "0"
End If
End If
lcAOdodatek1 = Request.Form("dodatek1")
lcAOdodatek2 = Request.Form("dodatek2")
lcAOplus = Request.Form("aoplus")
lcAOzelenakarta = Request.Form("zelena_karta")
liGeneraliPopust = IsNumeric(Request.Form("generali"))
If Request.Form("generali") = "" Or liGeneraliPopust = False Then
liGeneraliPopust = 1
Else
liGeneraliPopust = Request.Form("generali")
If Not (liGeneraliPopust = "0,95" Or liGeneraliPopust = "0,90" Or liGeneraliPopust = "0,88") Then
liGeneraliPopust = 1
End If
If Not (liTip = 2 Or liTip = 3) Then
liGeneraliPopust = 1
End If
If (lcAOdodatek1 = "on" Or lcAOdodatek2 = "on") Then
liGeneraliPopust = 1
End If
End If
liCestnina = Request.Form("cestnina")
If liCestnina = "" Then liCestnina = 0
liCestninaMesec = Request.Form("mesec")
If Request.Form("mesec") = "" Or liCestninaMesec = False Then
liCestninaMesec = 12
Else
liCestninaMesec = Round(Request.Form("mesec"))
If (liCestninaMesec < 0 Or liCestninaMesec > 36) Then
liCestninaMesec = 12
End If
End If
liTehnicni = Request.Form("tehnicni")
lctehnicniclan = Request.Form("clan")
liStroski = Request.Form("stroski")
lcStroskinalepka = Request.Form("nalepka")
'###############################################################################################
'### IZRAČUNAJ ZAVAROVANJE
'###############################################################################################
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT"
If (lcAOdodatek1 = "on" Or lcAOdodatek2 = "on") Then
sql = sql & " Round([ao_triglav]*" & a & "*" & b & "*" & d & ",0) as triglav,"
sql = sql & " Round([ao_slovenica]*" & a & "*" & b & "*" & d & ",0) as slovenica,"
sql = sql & " Round([ao_tilia]*" & a & "*" & b & "*" & d & ",0) as tilia,"
sql = sql & " Round([ao_maribor]*" & a & "*" & b & "*" & d & ",0) as maribor,"
sql = sql & " Round([ao_generali]*" & a & "*" & b & "*" & d & ",0) as generali"
Else
sql = sql & " Round([ao_triglav]*" & a & "*" & b & ",0) as triglav,"
sql = sql & " Round([ao_slovenica]*" & a & "*" & b & ",0) as slovenica,"
sql = sql & " Round([ao_tilia]*" & a & "*" & b & ",0) as tilia,"
sql = sql & " Round([ao_maribor]*" & a & "*" & b & ",0) as maribor,"
sql = sql & " Round([ao_generali]*" & a & "*" & b & ",0) as generali"
End If
sql = sql & " FROM tbl_registracija A INNER JOIN tbl_registracija_zavarovanje_ao B ON A.reg_ao = B.reg_oznaka"
sql = sql & " WHERE A.reg_oznaka = " & liTip
sql = sql & " AND B.ao_oznaka = " & liAOosnova
AdoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
If lcAOzelenakarta = "on" Then
lmTriglavAO = CDbl(adoRS("triglav")) + 4.17
lmSlovenicaAO = CDbl(adoRS("slovenica")) + 4.17
lmTiliaAO = CDbl(adoRS("tilia")) * CDbl(liGeneraliPopust) + 4.17
lmMariborAO = CDbl(adoRS("maribor")) + 4.17
lmGeneraliAO = CDbl(adoRS("generali")) * CDbl(liGeneraliPopust) + 4.17
Else
lmTriglavAO = adoRS("triglav")
lmSlovenicaAO = adoRS("slovenica")
lmTiliaAO = CDbl(adoRS("tilia")) * CDbl(liGeneraliPopust)
lmMariborAO = adoRS("maribor")
lmGeneraliAO = CDbl(adoRS("generali")) * CDbl(liGeneraliPopust)
End If
End If
adoRS.Close
Set adoRS = Nothing
'###############################################################################################
'### IZRAČUNAJ ZAVAROVANJE AOPLUS
'###############################################################################################
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT"
If (lcAOdodatek1 = "on" Or lcAOdodatek2 = "on") Then
sql = sql & " Round([plus_triglav]*" & a & "*" & b & "*" & d & ",0) as triglav,"
sql = sql & " Round([plus_slovenica]*" & a & "*" & b & "*" & d & ",0) as slovenica,"
sql = sql & " Round([plus_tilia]*" & a & "*" & b & "*" & d & ",0) as tilia,"
sql = sql & " Round([plus_maribor]*" & a & "*" & b & "*" & d & ",0) as maribor,"
sql = sql & " Round([plus_generali]*" & a & "*" & b & "*" & d & ",0) as generali"
Else
sql = sql & " Round([plus_triglav]*" & a & "*" & b & ",0) as triglav,"
sql = sql & " Round([plus_slovenica]*" & a & "*" & b & ",0) as slovenica,"
sql = sql & " Round([plus_tilia]*" & a & "*" & b & ",0) as tilia,"
sql = sql & " Round([plus_maribor]*" & a & "*" & b & ",0) as maribor,"
sql = sql & " Round([plus_generali]*" & a & "*" & b & ",0) as generali"
End If
sql = sql & " FROM tbl_registracija A INNER JOIN tbl_registracija_zavarovanje_aoplus B ON A.reg_ao = B.reg_oznaka"
sql = sql & " WHERE A.reg_oznaka = " & liTip
' Tipa 2 in 3 imata več možnosti za AO Plus
If liTip = 2 Or liTip = 3 Then
sql = sql & " AND B.ao_oznaka = " & liAOosnova
End If
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF Or lcAOplus <> "on") Then
lmTriglavAOplus = adoRS("triglav")
lmSlovenicaAOplus = adoRS("slovenica")
lmTiliaAOplus = adoRS("tilia")
lmMariborAOplus = adoRS("maribor")
lmGeneraliAOplus = CDbl(adoRS("generali")) * CDbl(liGeneraliPopust)
End If
adoRS.Close
Set adoRS = Nothing
'###############################################################################################
'### IZRAČUNAJ SKUPNO ZAVAROVANJE
'###############################################################################################
lmTriglavSkupaj = CDbl(lmTriglavAO) + CDbl(lmTriglavAOplus)
lmSlovenicaSkupaj = CDbl(lmSlovenicaAO) + CDbl(lmSlovenicaAOplus)
lmTiliaSkupaj = CDbl(lmTiliaAO) + CDbl(lmTiliaAOplus)
lmMariborSkupaj = CDbl(lmMariborAO) + CDbl(lmMariborAOplus)
lmGeneraliSkupaj = (CDbl(lmGeneraliAO) + CDbl(lmGeneraliAOplus))
'###############################################################################################
'### IZRAČUNAJ CESTNINO
'###############################################################################################
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT ces_cena"
sql = sql & " FROM tbl_registracija_cestnina"
sql = sql & " WHERE ces_oznaka = " & liCestnina
sql = sql & " ORDER BY ces_oznaka"
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
lmCestninaSkupaj = (adoRS("ces_cena")/12) * liCestninaMesec
End If
adoRS.Close
Set adoRS = Nothing
'###############################################################################################
'### IZRAČUNAJ TEHNIČNI
'###############################################################################################
If liTehnicni <> 0 Then
If lcTehnicniclan = "on" Then
lmTehnicniSkupaj = liTehnicni * 0.8
Else
lmTehnicniSkupaj = liTehnicni
End If
Else
lmTehnicniSkupaj = 0
End If
'###############################################################################################
'### IZRAČUNAJ STROŠKI
'###############################################################################################
lmStroskiSkupaj = CDbl(liStroski)
'###############################################################################################
'### ZAČETEK IZRAČUNA REGISTRACIJE
'###############################################################################################
Dim preveriURL, giPodrocje, n,i
preveriURL = "registracija.asp"
Response.Write "" & vbNewLine & vbNewLine
Response.Write "" & vbNewLine & vbNewLine
Response.Write "" & vbNewLine & vbNewLine
'###############################################################################################
'### IZBOR TIPA VOZILA
'###############################################################################################
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT reg_oznaka, reg_naziv"
sql = sql & " FROM tbl_registracija"
sql = sql & " WHERE reg_objava = 1"
sql = sql & " ORDER BY reg_prioriteta"
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine & vbNewLine
adoRS.Close
Set adoRS = Nothing
'###############################################################################################
'### ZAVAROVANJE
'###############################################################################################
'*** Katere podatke rabimo za zavarovanje
tmp = ""
If liTip = 1 Or liTip = 2 Or liTip = 3 Or liTip = 9 Or liTip = 12 Then
tmp = "Moč motorja v kW:"
ElseIf liTip = 4 Then
tmp = "Enotna cena"
Else
tmp = "Nosilnost v tonah:"
End If
Response.Write "
" & vbNewLine & vbNewLine
'###############################################################################################
'### FORMA IZRAČUN CESTNINE
'###############################################################################################
'*** Katere podatke rabimo za cestnino
tmp = ""
If liTip = 1 Or liTip = 2 Or liTip = 3 Or liTip = 4 Then
tmp = "prostornina motorja v ccm³"
ElseIf liTip = 5 Or liTip = 6 Or liTip = 10 Or liTip = 14 Or liTip = 15 Or liTip = 16 Or liTip = 18 Then
tmp = "največja dovoljena masa v tonah"
End If
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT B.ces_oznaka, B.ces_kategorija, B.ces_cena"
sql = sql & " FROM tbl_registracija A, tbl_registracija_cestnina B"
sql = sql & " WHERE A.reg_cestnina = B.reg_oznaka"
sql = sql & " AND A.reg_oznaka = " & liTip
sql = sql & " ORDER BY B.ces_oznaka"
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
Response.Write "
" & vbNewLine
End If
adoRS.Close
Set adoRS = Nothing
If liTip = 1 Or liTip = 2 Or liTip = 3 Or liTip = 4 Or liTip = 12 Or liTip = 13 Or liTip = 14 Or liTip = 15 Then
Response.Write "
" & vbNewLine
'# Response.Write "
Uveljavil bom članski popust:
" & vbNewLine
'# Response.Write "
" & vbNewLine
'# Response.Write "
" & vbNewLine
End If
Response.Write "
" & vbNewLine & vbNewLine
'###############################################################################################
'### FORMA OSTALI STROŠKI
'###############################################################################################
Set adoRS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT cen_oznaka, cen_cena"
sql = sql & " FROM tbl_registracija_stroski_cena"
sql = sql & " ORDER BY cen_oznaka"
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
Do Until adoRS.EOF
laStroski(adoRS("cen_oznaka")) = adoRS("cen_cena")
adoRS.movenext
Loop
End If
adoRS.Close
Set adoRS = Nothing
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT reg_stroski"
sql = sql & " FROM tbl_registracija"
sql = sql & " WHERE reg_oznaka = " & liTip
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
lsStroski = adoRS("reg_stroski")
End If
adoRS.Close
Set adoRS = Nothing
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
Ostali obvezni stroški
" & vbNewLine
Response.Write "
Cena: " & FormatNumber(lmStroskiSkupaj,2) & " EUR
" & vbNewLine
Response.Write "
" & vbNewLine
Response.Write "
" & vbNewLine & vbNewLine
Set adoRS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT str_naziv, cen_parameter"
sql = sql & " FROM tbl_registracija_stroski"
sql = sql & " WHERE str_oznaka IN (" & lsStroski & ")"
sql = sql & " ORDER BY STR_OZNAKA"
'sql = sql & " ORDER BY CHARINDEX (','+LTRIM(STR(str_oznaka))+',', ','+REPLACE('" & lsStroski & "',' ','')+',')"
adoRS.Open sql, Povezava, adOpenForwardOnly, adLockReadOnly
If Not (adoRS.BOF And adoRS.EOF) Then
Response.Write "
Popust 55% (PR 3) imata samo zavarovalnici AdriaticSlovenica in Zavarovalnica Maribor, zato podatkov za Zavarovalnico Triglav, Tilio in Generali ni. Zavarovalnica Tilia in Generali imata popust na vozniške izkušnje (velja samo za osebna vozila).
" & vbNewLine
Response.Write "
" & vbNewLine
End If
Response.Write "" & vbNewLine
Response.Write "