Moiz Saifuddin
asked on
skip page
In the site below there is a requirement for menus to skip the 2nd page to 3rd page if and only if there is 1 submenu in the list. I have attached a document explaining the requirement
I do not understand the code below and want someone to explain if possible the logic behind the code... on click of the link or menu of the first one on the page, say if the id =2970 the link should be redirected to 2972.. and I am not sure how to accomplish this..
http://www.alenkacopati.si/
I do not understand the code below and want someone to explain if possible the logic behind the code... on click of the link or menu of the first one on the page, say if the id =2970 the link should be redirected to 2972.. and I am not sure how to accomplish this..
http://www.alenkacopati.si/
<%
Sub InsertUpdate_Website_webshop(oContent)
End Sub
Sub Edit_Website_webshop(oNode)
End Sub
Function Render_Website_webshop(oContent)
Dim wID : wid= GetmaraP("wid")
Dim panoge : panoge = getmaraP("panoge")
Dim nID
Dim DetailID : DetailID =GetmaraP("detailID")
Dim oRecs
Dim MyType
Dim OrderKey : OrderKey = "VRed"
Dim OrderType : OrderType = "asc"
if getParam("orderby") <> "" then OrderKey = getparam("orderby")
if getParam("ordertype") <> "" then OrderType = getparam("ordertype")
if Len(DetailID) > 0 then
Render_Website_webshop = PrikaziDetaileArtikla(wid, DetailID)
Else
if wID= "" then
if panoge="panoge" then
Render_Website_webshop = PrikazPrvaStranPanoge()
Else
Render_Website_webshop = PrikazPrvaStran()
End if
else
Set oRecS = GetRS("SELECT [Type] FROM T_NAVI WHERE IDNAVI=" & wid)
if oRecs.eof then
Mytype="P"
else
MyType = oRecs("Type")
End if
if MyType="P" then
Render_Website_webshop = PrikazArtiklov(wid, OrderKey, Ordertype)
'elseif MyType="A" then
'elseif MyType="B" then
elseif MyType="C" then
Render_Website_webshop = PrikazNNArtiklov(wid, OrderKey, Ordertype)
elseif MyType="Y" then
Render_Website_webshop = PrikazNNArtiklov(wid, OrderKey, Ordertype)
elseif MyType="Z" then
Render_Website_webshop = PrikazNNArtiklov(wid, OrderKey, Ordertype)
Else
nID = DoTheMagicNavi(wid, MyType) ' To je pizdarija da skrije en nivo..èe je samo eden podnivo
if nID = wID then
Render_Website_webshop = PrikazPodvrst(wid, MyType)
Else
If MyType="V" then
Render_Website_webshop = PrikazArtiklov(nID, OrderKey, Ordertype)
Elseif MyType="B" then
Render_Website_webshop = PrikazNNArtiklov(nID, OrderKey, Ordertype)
End if
End if
End if
Set oRecS =Nothing
End if
End if
'-------------------------------------------------------------------------------------------------
End Function
Sub InsertUpdate_Website_AkcijskiArtikli(oContent)
End Sub
Sub Edit_Website_AkcijskiArtikli(oNode)
End Sub
Function Render_Website_AkcijskiArtikli(oContent)
Dim oXml
Dim oItem
Dim oTemplate
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim PodvrstaID
Dim Akcija
i=1
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_artikli.html"
If g_sPagging ="" or g_sPagging ="0" then g_sPagging =1
set oRS = ExecuteSQLProcedure("AkcijskiArtikli ",Array("@Group", "@Language"), Array(g_oUser.Group, g_sMenuID))
i=1
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""seznam_row"">"
tx = tx & "<div class=""seznam_box"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
'Set oRS= ExecuteSQLProcedure("GetSkupina", Array("@SkupinaID","@Language"),Array(PodVrstaID, g_sMenuID))
' If oRS.eof = true then
' oTemplate.Slot("webshop_item_banner") = ""
' Else
' oTemplate.Slot("webshop_item_banner") = "<div class=""slika_vrh""><img src=""" & oRS("PathX") & oRS("SlikaX") & """ alt=""" & CleanSinkName(oRS("Naziv")) & """ /></div>"
' End if
' oTemplate.Slot("webshop_item_pathloc") = Render_webshop_ThePathLocator(true)
' oTemplate.Slot("webshop_item_paging") = GetPaging()
oTemplate.Slot("webshop_item_paging") =""
oTemplate.Slot("webshop_item_pathloc") =""
oTemplate.Slot("webshop_item_artikli") = tx
' oTemplate.Slot("webshop_basicpath")= Render_webshop_BasicPathLocator(false)
Render_Website_AkcijskiArtikli = oTemplate.GetOutput
Set oRS= nothing
set oRecS = nothing
set oTemplate = Nothing
End Function
Function Render_WebSite_ArtikliPrikazPosebaj(oContent)
Dim tx, oRS, i
Dim podvrstaID
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim ImeKategorije
Dim Akcija
i=1
set oRS = ExecuteSQLProcedure("GetArtikles4FirstPage ",Array("@Group","@Language"), Array(g_oUser.Group, g_sMenuID))
Do until oRS.Eof
Akcija=""
'---------------------OD TU
ImeKategorije = CleanNameString(oRS("Naziv"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) =0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">" & FFN(oRS("Cena")) & " €</div>"
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""firstpage_row"">"
tx = tx & "<div class=""firstpage_box"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & ImeKategorije & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""firstpage_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""firstpage_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""firstpage_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""firstpage_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""firstpage_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & ImeKategorije & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""firstpage_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""firstpage_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""firstpage_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""firstpage_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""firstpage_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & ImeKategorije & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""firstpage_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""firstpage_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""firstpage_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""firstpage_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
Render_WebSite_ArtikliPrikazPosebaj = tx
set oRS = nothing
End function
Function DoTheMagicNavi(wid, MyType)
Dim oRecS
If MyType="V" then
Set oRecS = GetRS("SELECT IDNAVI FROM T_NAVI WHERE UpperLink=" & wid & " AND Type='P'")
if oRecs.RecordCount = "1" then
DoTheMagicNavi= oRecs("IDNAVI")
else
DoTheMagicNavi = wid
End if
elseif MyType="B" then
Set oRecS = GetRS("SELECT IDNAVI FROM T_NAVI WHERE UpperLink=" & wid & " AND Type='C'")
if oRecs.RecordCount = "1" then
DoTheMagicNavi= oRecs("IDNAVI")
else
DoTheMagicNavi = wid
End if
else
DoTheMagicNavi = wid
End if
set oRecS = Nothing
End function
Function PrikazNNArtiklov(wid, OrderKey, Ordertype)
Dim oXml
Dim oItem
Dim oTemplate
Dim oSlika
Dim rabat
Dim i,j,tx,ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
i=1
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_artikli.html"
set oRS = ExecuteSQLProcedure("GetArtikelNNList ",Array("@NaviID", "@Group", "@DisplayUnPublished","@Language", "@OrderBy", "@OrderType"), Array(wid, g_oUser.Group, "0", g_sMenuID, OrderKey, Ordertype))
i=1
Do until oRS.Eof
'---------------------OD TU
PodvrstaID = oRS("PodvrstaID")
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">" & FFN(oRS("Cena")) & " €</div>"
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""seznam_row"">"
tx = tx & "<div class=""seznam_box"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """> </a></div>"
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """> </a></div>"
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """> </a></div>"
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
oTemplate.Slot("webshop_item_pathloc") = Render_webshop_ThePathLocator2(true)
oTemplate.Slot("webshop_item_artikli") = tx
PrikazNNArtiklov = oTemplate.GetOutput
set oRecS = nothing
set oTemplate = Nothing
End Function
Function PrikazArtiklov(PodVrstaID, OrderBy, OrderType)
Dim oXml
Dim oItem
Dim oTemplate
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim Akcija
i=1
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_artikli.html"
If g_sPagging ="" or g_sPagging ="0" then g_sPagging =1
set oRS = ExecuteSQLProcedure("GetArtikelList ",Array("@PodVrstaID", "@Group", "@DisplayUnPublished", "@Language", "@OrderBy", "@OrderType", "@Stran", "@Segment"), Array(PodVrstaID, g_oUser.Group, "0", g_sMenuID, OrderBy, OrderType, g_sPagging, g_sSegID))
i=1
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""seznam_row"">"
tx = tx & "<div class=""seznam_box"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
Set oRS= ExecuteSQLProcedure("GetSkupina", Array("@SkupinaID","@Language"),Array(PodVrstaID, g_sMenuID))
If oRS.eof = true then
oTemplate.Slot("webshop_item_banner") = ""
Else
oTemplate.Slot("webshop_item_banner") = "<div class=""slika_vrh""><img src=""" & oRS("PathX") & oRS("SlikaX") & """ alt=""" & CleanSinkName(oRS("Naziv")) & """ /></div>"
End if
oTemplate.Slot("webshop_item_pathloc") = Render_webshop_ThePathLocator(true)
oTemplate.Slot("webshop_item_paging") = GetPaging()
oTemplate.Slot("webshop_item_artikli") = tx
oTemplate.Slot("webshop_basicpath")= Render_webshop_BasicPathLocator(false)
PrikazArtiklov = oTemplate.GetOutput
Set oRS= nothing
set oRecS = nothing
set oTemplate = Nothing
End Function
Function PrikazPrvaStranPanoge()
Dim oXml,fpNode
Dim oTemplate
Dim oSlika
Dim rabat
Dim oRS, oRecS, tx, i
Dim fpCol
Dim oFirstPageFound
Dim SkupinaLink
Dim SlikaPath
i=1
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_enter.html"
oFirstPageFound = false
set oRS = ExecuteSQLProcedure("GetSkupinaList",Array("@DisplayUnPublished","@Language"), Array("0", g_sMenuID))
Do until oRS.Eof
'-----------------------TU SO DEFINICIJE ZA
SkupinaLink = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wID=" & oRS("IDNavi")
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaPath = "<img src=""media/slikeIT/Thumbs/ni_slike.jpg"" alt='" & CleanNameString(oRS("naziv")) & "' />"
Else
SlikaPath = "<img src=""" & oRS("Path") & oRS("Slika") & """ alt=""" & CleanSinkName(oRS("naziv")) & """ />"
End if
'---------------------DO TU OD TU NAPREJ JE IZGLED
if i=1 then
tx = tx & "<div class=""skupina_row"">"
tx = tx & "<div class=""skupina_box"">"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv")) & "</a></div>"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
Elseif i = 3 then
tx = tx & "<div class=""skupina_box"">"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv")) & "</a></div>"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""skupina_box_odmik"">"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv")) & "</a></div>"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
End if
if i=3 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 then tx = tx & "</div>"
oTemplate.Slot("webshop_item_naslovnica") =tx
oTemplate.Slot("zadnji_rand") = PrikazRandomArtikla
oTemplate.Slot("akcija_rand") = PrikazRandomAkcija
oTemplate.Slot("popularno_rand") = PrikazRandomPopularno
oTemplate.Slot("novost_rand") =PrikazRandomNovosti
PrikazPrvaStranPanoge = oTemplate.GetOutput
set oRS = Nothing
set oTemplate = Nothing
End Function
Function PrikazPrvaStran()
Dim oXml,fpNode
Dim oTemplate
Dim oSlika
Dim rabat
Dim oRS, oRecS, tx, i
Dim fpCol
Dim oFirstPageFound
Dim SkupinaLink
Dim SlikaPath
i=1
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_enter.html"
oFirstPageFound = false
set oRS = ExecuteSQLProcedure("GetSkupinaList",Array("@DisplayUnPublished","@Language"), Array("0", g_sMenuID))
Do until oRS.Eof
'-----------------------TU SO DEFINICIJE ZA
SkupinaLink = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wID=" & oRS("IDNavi")
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaPath = "<img src=""media/slikeIT/Thumbs/ni_slike.jpg"" alt='" & CleanNameString(oRS("naziv")) & "' />"
Else
SlikaPath = "<img src=""" & oRS("Path") & oRS("Slika") & """ alt=""" & CleanNameString(oRS("naziv")) & """ />"
End if
'---------------------DO TU OD TU NAPREJ JE IZGLED
if i=1 then
tx = tx & "<div class=""skupina_row"">"
tx = tx & "<div class=""skupina_box"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv"))& " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""skupina_box_odmik"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv")) & " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""skupina_box_odmik"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRS("naziv")) & " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
oTemplate.Slot("webshop_item_naslovnica") =tx
oTemplate.Slot("zadnji_rand") = PrikazRandomArtikla
oTemplate.Slot("akcija_rand") = PrikazRandomAkcija
oTemplate.Slot("popularno_rand") = PrikazRandomPopularno
oTemplate.Slot("novost_rand") =PrikazRandomNovosti
PrikazPrvaStran = oTemplate.GetOutput
set oRS = Nothing
set oTemplate = Nothing
End function
Function PrikazRandomArtikla
Dim tx, oRS, i
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim AtLeastOne
Dim Akcija
i=1
Set oRS = ExecuteSQLProcedure("GetZadnjiArtikel", Array("@Group","@Language"), Array(g_oUser.Group, g_sMenuID))
Do until oRS.Eof
'---------------------OD TU
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value2"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""rednacena_precrtan2"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value2"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""zadnji_row"">"
tx = tx & "<div class=""zadnji_box"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/zadnji-artikli.png"" alt=""Zadnji artikli"" /></a></div>"
tx = tx & "<div class=""zadnji_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""zadnji_opis2"">" & oRS("KratkiOpis") & "</div>"
'tx = tx & "<div class=""zadnji_opis2"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""zadnji_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""zadnji_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/zadnji-artikli.png"" alt=""Zadnji artikli"" /></a></div>"
tx = tx & "<div class=""zadnji_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""zadnji_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""zadnji_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""zadnji_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/zadnji-artikli.png"" alt=""Zadnji artikli"" /></a></div>"
tx = tx & "<div class=""zadnji_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""zadnji_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""zadnji_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
PrikazRandomArtikla =tx
End Function
Function PrikazRandomAkcija
Dim tx, oRS, i
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
i=1
Set oRS = ExecuteSQLProcedure("GetArtikelAkcija", Array("@Group","@Language"),Array(g_oUser.Group, g_sMenuID))
Do until oRS.Eof
'---------------------OD TU
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value2"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""rednacena_precrtan2"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt2"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value2"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""random_row"">"
tx = tx & "<div class=""random_box"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/akcijski-artikli.png"" alt=""Akcijski artikli"" /></a></div>"
tx = tx & "<div class=""random_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""random_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""random_opis2"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""random_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""random_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""random_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/akcijski-artikli.png"" alt=""Akcijski artikli"" /></a></div>"
tx = tx & "<div class=""random_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""random_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""random_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""random_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""random_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""random_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/akcijski-artikli.png"" alt=""Akcijski artikli"" /></a></div>"
tx = tx & "<div class=""random_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""random_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""random_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""random_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""random_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
PrikazRandomAkcija = tx
End Function
Function PrikazRandomPopularno
Dim tx, oRS, i
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
i=1
Set oRS = ExecuteSQLProcedure("GetPopularniArtikel", Array("@Group","@Language"),Array(g_oUser.Group,g_sMenuID))
Do until oRS.Eof
'---------------------OD TU
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value2"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""rednacena_precrtan2"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt2"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value2"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""popularni_row"">"
tx = tx & "<div class=""popularni_box"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/popularni-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""popularni_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""popularni_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""popularni_opis2"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""popularni_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""popularni_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""popularni_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/popularni-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""popularni_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""popularni_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""popularni_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""popularni_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""popularni_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""popularni_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/popularni-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""popularni_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""popularni_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""popularni_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""popularni_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""popularni_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
PrikazRandomPopularno = tx
End Function
Function PrikazRandomNovosti
Dim tx, oRS, i
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
i=1
Set oRS = ExecuteSQLProcedure("GetNovostiArtikel", Array("@Group","@Language"),Array(g_oUser.Group, g_sMenuID))
Do until oRS.Eof
'---------------------OD TU
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
if CDbl(oRS("Cena")) = 0 then
CenaArtikla=""
'CenaArtikla="<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value2"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""rednacena_precrtan2"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt2"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value2"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""novi_row"">"
tx = tx & "<div class=""novi_box"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/novi-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""novi_opis2"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""novi_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/novi-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""novi_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""novi_box_odmik"">"
tx = tx & "<div class=""naziv_vsre_artiklov""><a href=""" & LinkArtikla & """><img src=""/images/site/novi-artikli.png"" alt=""Novi artikli"" /></a></div>"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & CleanNameString(oRS("Artikel")) & "</a></div>"
tx = tx & "<div class=""novi_opis"">" & CleanNameString(oRS("KratkiOpis")) & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
PrikazRandomNovosti=tx
End Function
Function PrikazPodvrst(wid, MyType)
Dim oXml,fpNode
Dim oTemplate
Dim oSlika, procedure
Dim i,j, tx
Dim oRS, oRecS, ArrayVal, ArrayNam
Dim SkupinaLink
Dim SlikaPath
Dim PodvrstaID
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim Akcija
j=0
i=1
if MyType="S" then
procedure="GetVrstaList"
ArrayVal = array("@SkupinaID", "@Language", "@DisplayUnPublished")
ArrayNam = array(wid, g_sMenuID, "0")
End if
if MyType="V" then
procedure="GetPodvrstaList"
ArrayVal = array("@VrstaID","@Language", "@DisplayUnPublished")
ArrayNam = array(wid, g_sMenuID, "0")
End if
if MyType="A" then
procedure="GetPanogeVrsta"
ArrayVal = array("@SkupinaID","@Language", "@DisplayUnPublished")
ArrayNam = array(wid, g_sMenuID, "0")
End if
if MyType="B" then
procedure="GetPanogePodVrste"
ArrayVal = array("@VrstaID","@Language", "@DisplayUnPublished")
ArrayNam = array(wid, g_sMenuID,"0")
End if
if MyType="P" then exit function
if MyType="C" then exit function
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_subenter.html"
set oRecS = ExecuteSQLProcedure(procedure ,ArrayVal, ArrayNam)
If oRecS.eof = false then
If procedure="GetPodvrstaList" then
'Set oRecs=ExecuteSQLProcedure("GetSkupina", Array("@SkupinaID","@Language"),Array(oRS("UpperLink"), g_sMenuID))
End if
End if
j= oRecS.RecordCount
Do until oRecS.Eof
Podvrsta = CleanNameString(oRecs("Naziv"))
'-----------------------TU SO DEFINICIJE ZA
SkupinaLink = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wID=" & oRecS("IDNavi")
if Isnull(oRecS("Slika")) or Len(oRecS("Slika"))=0 then
SlikaPath = "<img src=""media/slikeIT/Thumbs/ni_slike.jpg"" alt='" & CleanSinkName(oRecS("naziv")) & "' />"
Else
SlikaPath = "<img src=""" & oRecS("Path") & oRecS("Slika") & """ alt=""" & CleanSinkName(oRecS("naziv")) & """ />"
End if
'---------------------DO TU OD TU NAPREJ JE IZGLED
if i=1 then
tx = tx & "<div class=""skupina_row"">"
tx = tx & "<div class=""skupina_box"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRecS("naziv"))& " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""skupina_box_odmik"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRecS("naziv")) & " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""skupina_box_odmik"">"
tx = tx & "<div class=""skupina_slika""><a href='" & SkupinaLink & "'>" & SlikaPath & "</a></div>"
tx = tx & "<div class=""skupina_naziv""><a href='" & SkupinaLink & "'>" & CleanNameString(oRecS("naziv")) & " ></a></div>"
'tx = tx & "<div class=""skupina_opis"">" & oRS("Opis") & "</div>"
'tx = tx & "<div class=""skupina_btnvec""><a href='" & SkupinaLink & "'><img src=""images/buttons/" & g_sMenuID & "/podrobno.png"" alt=""podrobno"" /></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRecS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
oTemplate.Slot("webshop_basicpath")= Render_webshop_BasicPathLocator(false)
oTemplate.Slot("webshop_item_subenter")=tx
PrikazPodvrst = oTemplate.GetOutput
Set oRS= nothing
Set oRecS = Nothing
set oTemplate = Nothing
End function
Function PrikaziDetaileArtikla(PodvrstaID, ArtikelID)
Dim oXml, oItem, oTemplate, oSlika
Dim i,j ,tx, SQL, ty, z
Dim oMyNode, oArtikel, oPath
Dim rabat, oRS, oRecS ,MyRS
Dim razprodano
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim ArtikelObjavljen
Dim OpcijaFound
j=0
i=0
z=0
Set oTemplate = new AspTemplate
oTemplate.TemplateDir = SKINS_FOLDER & g_sMenuID & "\modules\webshop\"
oTemplate.Template = "webshop_details.html"
set oRS = ExecuteSQLProcedure("GetArtikel ", Array("@ArtikelID", "@Group","@Language"), Array(ArtikelID, g_oUser.Group, g_sMenuID))
do until oRS.eof
ArtikelObjavljen = Cbool(oRS("Published"))
if Cbool(oRS("Published")) = false then
oTemplate.Slot("webshop_item_defaultimage")=""
oTemplate.Slot("webshop_item_pathloc") = Render_webshop_ThePathLocator(false)
oTemplate.Slot("webshop_item_image_javascipt")=""
oTemplate.Slot("webshop_item_formnumber") = ""
oTemplate.Slot("webshop_item_wID") = ""
oTemplate.Slot("webshop_item_detailID") = ""
oTemplate.Slot("webshop_item_opis") = "<div class=""podrobno_podrobniopis"">" & iff(oRS("opis")="","",oRS("opis")) & "</div>"
oTemplate.Slot("webshop_item_vkosarico") = "<div class=""detail_btnkosarica""></div>"
Else
i=0
oArtikel=Cstr(Iff(Isnull(oRS("artikel")),"", oRS("artikel")))
oPath = oRS("Path") & "Thumbs/" & oRS("Slika")
oTemplate.Slot("webshop_item_pathloc") = Render_webshop_ThePathLocator(false)
'To je veliki image
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
oTemplate.Slot("webshop_item_defaultimage") = "<div class=""detail_slika""><input type=""hidden"" name=""img_src"" id=""img_src"" value='' /><a title='' rel=""lightbox[roadtrip]"" href=""media/SlikeIT/ni_slike.jpg"" ><img src=""media/slikeIT/Thumbs/ni_slike.jpg"" alt='" & oRS("Artikel") & "' /></a></div>"
'oTemplate.Slot("webshop_item_defaultimage") ="<div class=""detail_slika""><input type=""hidden"" name=""img_src"" id=""img_src"" value=''/><a rev=""loadarea::media/SlikeIT/ni_slike.jpg"" rel=""enlargeimage::mouseover"" href=""media/slikeIT/Thumbs/ni_slike.jpg""/><img src=""media/slikeIT/Thumbs/ni_slike.jpg"" alt='" & oRS("Artikel") & "' /></a></div>"
Else
'oTemplate.Slot("webshop_item_defaultimage") = "<div class=""podrobno_slika""><input type=""hidden"" name=""img_src"" id=""img_src"" value=''><a rev=""loadarea::" & oRS("Path") & oRS("Slika") & """ rel=""enlargeimage::mouseover"" href=""" & oRS("Path") & "Thumbs/" & oRS("Slika") & """/><img src=""" & oRS("Path") & "Thumbs/" & oRS("Slika") & """ alt='" & oRS("Artikel") & "' /></a></div>"
oTemplate.Slot("webshop_item_defaultimage") = "<div class=""detail_slika""><input type=""hidden"" name=""img_src"" id=""img_src"" value='' /><a title='' rel=""lightbox[roadtrip]"" href=""" & oRS("Path") & oRS("Slika") & """ ><img src=""" & oRS("Path") & "Thumbs/" & oRS("Slika") & """ alt='" & oRS("Artikel") & "' /></a></div>"
End if
' To so tamali imagi
Set oRecS = GetRS("SELECT Path, Slika FROM T_SLIKA WHERE ArtikelID=" & ArtikelID & " AND Published=1 AND Primarna=0")
oTemplate.Slot("webshop_item_image_javascipt")=""
if oRecs.RecordCount >0 then
Do until oRecS.eof
'if z = 0 then
ty = ty & "<div class=""detail_singlethumb"">"
ty = ty & "<a title='' rel=""lightbox[roadtrip]"" href=""" & oRecS("Path") & oRecS("Slika") & """>"
ty = ty & "<img src=""" & oRecS("Path") & "/thumbs/thumbs/thumbs/thumbs/" & oRecS("Slika") & """ alt='' /></a>"
ty = ty & "</div>"
'Else
' ty= ty & "<a rel=""lightbox[roadtrip]"" href=""" & oRecS("Path") & oRecS("Slika") & """/><img src='images/site/pixel.png' /></a>"
'End if
'if z < 5 then
'tx= tx & "<div class=""podrobno_slika_small""><a id=""" & z & """ rev=""loadarea::" & oRecS("Path") & oRecS("Slika") & """ rel=""enlargeimage::click"" href=""" & oRecS("Path") & "Thumbs/" & oRecS("Slika") & """/><div class=""smal_inner""><img src='" & oRecS("Path") & "Thumbs/Thumbs/Thumbs/Thumbs/" & oRecS("Slika") & "' alt='" & oRecS("Slika") & "' /></div></a></div>"
'End if
z=z+1
oRecS.movenext
loop
If z>0 then
tx = tx & "<div class=""detail_thumbs"">" & ty & "</div>"
End if
oTemplate.Slot("webshop_item_image_javascipt") = tx
End if
' To je naslov artikla
oTemplate.Slot("webshop_item_naslov") = "<div class=""detail_naziv""><h1>" & Cstr(Iff(Isnull(oRS("artikel")),"",oRS("artikel"))) & "</h1></div>"
' To je sifra artikla
oTemplate.Slot("webshop_item_sifra") = "<div class=""detail_oem"">" & oRS("OEM") & "</div>"
oTemplate.Slot("webshop_item_birosifra") = "<div class=""detail_birosifra"">" & CStr(oRS("bsifra")) & "</div>"
oTemplate.Slot("webshop_item_kratkiopis") = "<div class=""detail_kropis"">" & CStr(Iff(Isnull(oRS("KratkiOpis")),"",oRs("KratkiOpis"))) & "</div>"
oTemplate.Slot("webshop_item_material") = "<div class=""detail_material""><b>" & StringSite("webshop","shop","shop_material") & "</b> " & iff(oRS("Material")="","",oRS("Material")) & "</div>"
oTemplate.Slot("webshop_item_dimenzije") = "<div class=""detail_velikost""><b>" & StringSite("webshop","shop","shop_dimenzije") & "</b> " & iff(oRS("Dimenzija")="","",oRS("Dimenzija")) & "</div>"
oTemplate.Slot("webshop_item_pakiranje") = "<div class=""detail_pakiranje""><b>" & StringSite("webshop","shop","shop_pakiranje") & "</b> " &CStr(oRS("Pakiranje")) & " " & StringSite("webshop","shop","shop_pakiranje_kos") & "</div>"
'iff(oRS("RokDobave")="","",oRS("RokDobave")) & " dni"
razprodano=1
Set MyRS = ExecuteSQLProcedure("GetListOfBarva", Array("ArtikelID"), Array(oRS("ArtikelID")))
oTemplate.Slot("webshop_item_barva") = "<div class=""detail_barva"">" & ListBarve(oRS("ArtikelID")) & "</div>"
tx = ""
ty = ""
z=1
razprodano=0
if MyRS.RecordCount >0 then
OpcijaFound = true
SQL ="SELECT DISTINCT v.Oznaka as VelikostID, v.Velikost FROM T_Opcije o INNER JOIN T_VELIKOST v ON o.VelikostID = v.Oznaka WHERE o.ArtikelID=" & oRS("ArtikelID") & " AND o.BarveID='" & MyRS("BarvaID") & "' ORDER BY v.Velikost ASC"
set oRecS = GetRS(SQL)
if oRecs.RecordCount >0 then
If oRecs.RecordCount >1 then
tx = "<div id=""VelikostPrikazi"">"
tx = tx & "<div class=""selectbox_siv""><a href=""javascript:toggleLayer('VelikostForm');"" title=""Izbira velikosti"">"
tx = tx & "<input type=""text"" readonly=""readonly"" id=""txtVelikost"" name=""txtVelikost"" style=""width:120px; height:14px;"" value=""" & oRecS("Velikost") & """ />"
tx = tx & "<input type=""hidden"" id=""txtVelikostID"" name=""txtVelikostID"" value=""" & oRecS("VelikostID") & """ /></a>"
tx = tx & "</div>"
tx = tx & "<div id=""VelikostForm"">"
Do until oRecs.eof
tx = tx & "<div onmouseout=""this.style.background='#FFFFFF';"" onmouseover=""this.style.background='#AABBCC';"" onclick=""this.style.background='#FFFFFF';document.getElementById('txtVelikost').value='" & oRecS("Velikost") & "';document.getElementById('txtVelikostID').value='" & oRecS("VelikostID") & "';toggleLayer('VelikostForm');"">" & oRecS("Velikost") & "</div>"
oRecs.movenext
loop
tx = tx & "</div>"
tx = tx & "</div>"
Else
if oRecS("VelikostID")<> "0" then
tx = "<div id=""VelikostPrikazi"">"
tx = tx & "<div class=""selectbox_siv""><a href=""javascript:toggleLayer('VelikostForm');"" title=""Izbira velikosti"">"
tx = tx & "<input type=""text"" readonly=""readonly"" id=""txtVelikost"" name=""txtVelikost"" style=""width:120px; height:14px;"" value=""" & oRecS("Velikost") & """ />"
tx = tx & "<input type=""hidden"" id=""txtVelikostID"" name=""txtVelikostID"" value=""" & oRecS("VelikostID") & """ /></a>"
tx = tx & "</div>"
tx = tx & "<div id=""VelikostForm"">"
tx = tx & "<div onmouseout=""this.style.background='#FFFFFF';"" onmouseover=""this.style.background='#AABBCC';"" onclick=""this.style.background='#FFFFFF';document.getElementById('txtVelikost').value='" & oRecS("Velikost") & "';document.getElementById('txtVelikostID').value='" & oRecS("VelikostID") & "';toggleLayer('VelikostForm');"">" & oRecS("Velikost") & "</div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = "<div id=""VelikostPrikazi"">"
tx = tx & "<input type='hidden' name='txtVelikostID' id='txtVelikostID' value='0'>"
tx = tx & "<input type=""hidden"" id=""txtVelikost"" name=""txtVelikost"" style=""width:120px; height:14px;"" value=""Izberi velikost"" />"
tx = tx & "</div>"
End if
End if
Else
tx = "<input type='hidden' name='txtVelikostID' id='txtVelikostID' value='0'>"
tx = tx & "<input type=""hidden"" id=""txtVelikost"" name=""txtVelikost"" style=""width:120px; height:14px;"" value=""Izberi velikost"" />"
End if
End if
oTemplate.Slot("webshop_item_velikost") = "<div class=""podrobno_velikosti"">" & tx & "</div>"
if MyRS.RecordCount >0 then
SQL ="SELECT DISTINCT v.Oznaka as VelikostID, v.Velikost, (SELECT Dobava FROM T_Artikel WHERE ArtikelID=" & oRS("ArtikelID") & ") as Dobava FROM T_Opcije o INNER JOIN T_VELIKOST v ON o.VelikostID = v.Oznaka WHERE o.ArtikelID=" & oRS("ArtikelID") & " AND o.BarveID='" & MyRS("BarvaID") & "'"
set oRecS = GetRS(SQL)
If oRecS.eof = true then
'tx = "<div id=""VelikostPrikazi"">"
'tx = tx & "<div class=""zalogeni"" id=""zalogeni"">" & ModulNarociObvestiloKoPrideZaloga(oRS("ArtikelID"), oRS("Dobava")) & "</div>"
'tx = tx & "</div>"
tx = tx & "<div class=""zalogeni"" id=""zalogeni""><img src='/images/site/ni_na_zalogi.png' alt='Izdelka trenutno ni na zalogi' /></div>"
oTemplate.Slot("webshop_item_rokdobave")="<div class=""rokdobave"" id=""rokdobave"">Čas dobave: <b>" & RokDobave & " dni</b></div>"
razprodano=1
Else
tx = tx & "<div class=""zalogeni"" id=""zalogeni""><img src='/images/site/na_zalogi.png' alt='Izdelek je na zalogi' /></div>"
oTemplate.Slot("webshop_item_rokdobave")=""
razprodano=0
End if
End if
if razprodano=0 then
oTemplate.Slot("webshop_item_dobava") = "<div class=""detail_dobava""><b>" & StringSite("webshop","shop","shop_dobava") & "</b> 1-2 dni</div>"
Else
if Isnull(oRS("Dobava")) or oRS("Dobava") ="" then
oTemplate.Slot("webshop_item_dobava") = ""
Else
oTemplate.Slot("webshop_item_dobava") = "<div class=""detail_dobava""><b>" & StringSite("webshop","shop","shop_dobava") & "</b> " & oRS("Dobava") & "</div>"
End if
End if
oTemplate.Slot("webshop_item_teza") = "<div class=""detail_teza""><b>poštnina</b> " & FFN(oRS("Teza")) & " EUR</div><div class=""detail_teza_info"">za plačilo po predračunu ali Moneti</div>"
'tx = tx & "</div>"
'oTemplate.Slot("shop_narocam") = "<div class=""podrobno_stkosov"">" & StringSite("webshop","shop","shop_narocam") & " "
oTemplate.Slot("shop_narocam") = ""
oTemplate.Slot("webshop_item_minkol") = "<input type=""hidden"" name=""kolicina"" id=""kolicina"" value=""" & oRS("MinKol") & """ maxlength=""4"" style=""width:28px; text-align:right; padding-right:2px;"" class=""input"" />"
'oTemplate.Slot("shop_narocam_kos") = " " & StringSite("webshop","shop","shop_narocam_kos") & "</div>"
oTemplate.Slot("shop_narocam_kos") = ""
If razprodano=0 then
'oTemplate.Slot("webshop_item_vkosarico") = "<div class=""detail_btnkosarica""><a href=""javascript:document.formica.submit();""><img src=""images/buttons/" & g_sMenuID & "/v-kosarico.png"" alt="""" /></a></div>"
oTemplate.Slot("webshop_item_vkosarico") = "<div id=""detail_btnkosarica"" class=""detail_btnkosarica""><a href=""javascript:AddArtikelToMyCart('" & oRS("ArtikelID") & "');""><img src=""images/buttons/" & g_sMenuID & "/v-kosarico.png"" alt=""V košaro"" /></a></div>"
Else
if Isnull(oRS("Dobava")) or oRS("Dobava") ="" then
oTemplate.Slot("webshop_item_vkosarico") = "<div class=""detail_btnkosarica""></div>"
Else
'oTemplate.Slot("webshop_item_vkosarico") = "<div class=""detail_btnkosarica""><a href=""javascript:document.formica.submit();""><img src=""images/buttons/" & g_sMenuID & "/v-kosarico.png"" alt="""" /></a></div>"
oTemplate.Slot("webshop_item_vkosarico") = "<div id=""detail_btnkosarica"" class=""detail_btnkosarica""><a href=""javascript:AddArtikelToMyCart('" & oRS("ArtikelID") & "');""><img src=""images/buttons/" & g_sMenuID & "/v-kosarico.png"" alt=""V košaro"" /></a></div>"
End if
End if
if g_oUser.UserID =g_oUser.SID then
oTemplate.Slot("webshop_item_seznamzelja") = "<a href='default.asp?pid=login&mid=" & g_sMenuID & "'><img src=""images/site/seznam_zelja.png"" onmouseover=""this.src='images/site/seznam_zelja_ovr.png';this.style.cursor='hand';"" onmouseout=""this.src='images/site/seznam_zelja.png';"" /></a>"
Else
oTemplate.Slot("webshop_item_seznamzelja") = "<img src=""images/site/seznam_zelja.png"" onmouseover=""this.src='images/site/seznam_zelja_ovr.png';this.style.cursor='hand';"" onmouseout=""this.src='images/site/seznam_zelja.png';"" onclick=""AddToMyWishList('" & oRS("ArtikelID") & "');"" />"
End if
i=0
oTemplate.Slot("webshop_item_formnumber") = "formica"
oTemplate.Slot("webshop_item_wID") = PodVrstaID
oTemplate.Slot("webshop_item_detailID") = CStr(oRS("ArtikelID"))
oTemplate.Slot("webshop_item_opis") = "<div class=""podrobno_podrobniopis"">" & iff(oRS("opis")="","",oRS("opis")) & "</div>"
'If not Isnull(oRS("SegmentID")) then
' If Cstr(oRS("SegmentID")) = "229" then ' SALE
' oTemplate.Slot("webshop_item_sale")= ""'"<div class=""sale_details""><img src=""/images/site/sale.png"" alt='srečna cena'></div>"
' End if
'End if
j=j+1
End if
oRS.movenext
loop
if ArtikelObjavljen=false then
'---------------CENIKI
oTemplate.Slot("webshop_item_cenik")= ""
oTemplate.Slot("webshop_item_ocena")= ""
oTemplate.Slot("ikona_logo")=""
oTemplate.Slot("ikona_tampo")= ""
Else
'---------------CENIKI
set oRS = ExecuteSQLProcedure("GetCenik4Artikel", Array("@ArtikelID","@Skupina"), Array(ArtikelID, g_oUser.Group))
oTemplate.Slot("webshop_item_cenik")= OblikujCenoArtikla(oRS)
oTemplate.Slot("webshop_item_ocena")= OcenaArtikla(ArtikelID)
oTemplate.Slot("webshop_item_komentar")=KomentarjiArtiklov(ArtikelID)
oTemplate.Slot("ikona_tampo")= ""
'oTemplate.Slot("ikona_logo") = "<a target='_blank' href=""http://www.technologo.com/techno.OnDemand?&email=EODjure@EODamix.si&sku=amix&name=amix&imageCount=1&imagelocation_0=http://" & g_sServerName & oPath & "&whiteout=true&orientation=amix&removelogo=true""><img src='/images/site/ikona_logo.png' alt='Personaliziraj artikel' /></a>"
'oTemplate.Slot("ikona_tampo")= ""
End if
tx = ""
set oRS = ExecuteSQLProcedure("GetSorodniArtikliList", Array("@ArtikelID","@Group", "@Language"), Array(ArtikelID, g_oUser.Group, g_sMenuID))
if oRS.eof then
oTemplate.Slot("sorodni_izdelki_txt") = ""
Else
oTemplate.Slot("sorodni_izdelki_txt") = "<div class=""sorodni_artikli""></div>"
End if
i=1
tx =""
Do until oRS.Eof
'---------------------OD TU
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & oRS("PodvrstaID") & "&detailID=" & oRS("SArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if oRS("Cena") = oRS("CenaAkcija") then
CenaArtikla="<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value2"">" & FFN(oRS("Cena")) & " €</div>"
else
CenaArtikla= "<div class=""rednacenatxt2"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan2"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt2"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value2"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""novi_row"">"
tx = tx & "<div class=""novi_box"">"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""novi_opis2"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""novi_box_odmik"">"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""novi_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""novi_box_odmik"">"
tx = tx & "<div class=""novi_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""novi_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""novi_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""novi_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""novi_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
oTemplate.Slot("sorodni_izdelki") = tx
tx = ""
set oRS = ExecuteSQLProcedure("GetPriporoceneArtikleList", Array("@ArtikelID","@Language"), Array(ArtikelID, g_sMenuID))
if oRS.eof then
oTemplate.Slot("priporoceni_izdelki_txt") = ""
Else
oTemplate.Slot("priporoceni_izdelki_txt") = "<div class=""sorodni_artikli"">Priporočeni artikli</div>"
End if
Do until oRS.eof
tx = tx & "<div class=""sorodni_slike""><a href='default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("SArtikelID") & "'><img src=""" & oRS("Path") & "Thumbs/Thumbs/Thumbs/" & oRS("Slika") & """ alt=""" & oRS("Slika") & """ /></a></div>"
oRS.MoveNext
Loop
oTemplate.Slot("priporoceni_izdelki") = tx
'oTemplate.Slot("ostali_so_kupili_txt")= "<div class=""ostalisokupili""></div>"
oTemplate.Slot("ostali_so_kupili")= OstaliSoKupili()
oTemplate.Slot("zadnji_ogledani") = ZadnjiOgledani()
oTemplate.Slot("webshop_basicpath")= Render_webshop_BasicPathLocator(false)
PrikaziDetaileArtikla = oTemplate.GetOutput
set oTemplate = Nothing
set oRS = Nothing
set MyRS= Nothing
set oRecs =Nothing
End Function
Function ModulNarociObvestiloKoPrideZaloga(ArtikelID, Dobava)
Dim tx
If Dobava="" then
tx = "Izdelka trenutno ni na zalogi"
tx = tx & "<div>"
if Instr(g_oUser.login,"@") >0 then
tx = tx & "<div class=""obvesti_txt"">Obvesti me na moj e-naslov, ko izdelek pride na zalogo:</div><div class=""obvesti_input""><input type=""text"" class=""inputnice"" value=""" & g_oUser.login & """ name=""emailzaloga"" id=""emailzaloga"" /></div><div class=""obvesti_button""><img src=""images/buttons/" & g_sMenuID & "/zaloga.png"" alt=""Naroči obvestilo za zalogo"" onclick=""NarociSeNaObvestiloOZalogi(" & ArtikelID & ");"" /></div>"
else
tx = tx & "<div class=""obvesti_txt"">Obvesti me na moj e-naslov, ko izdelek pride na zalogo:</div><div class=""obvesti_input""><input type=""text"" class=""inputnice"" value="""" name=""emailzaloga"" id=""emailzaloga"" /></div><div class=""obvesti_button""><img src=""images/buttons/" & g_sMenuID & "/zaloga.png"" alt=""Naroči obvestilo za zalogo"" onclick=""NarociSeNaObvestiloOZalogi(" & ArtikelID & ");"" /></div>"
End if
tx = tx & "</div><br />"
Else
tx = "Izdelek je dobavljiv"
End if
ModulNarociObvestiloKoPrideZaloga = tx
End Function
Function KomentarjiArtiklov(ArtikelID)
Dim tx, oRS
tx = tx & "<div class='komentarji_artiklov'></div>"
tx = tx & "<div onclick=""KomentirajArtikel('Komentar" & ArtikelID & "','" & ArtikelID & "')"" class=""artikelmain_komentiraj""><img src=""/images/site/komentiraj.jpg"" alt=""komentiraj"" /></div><div id=""Komentar" & ArtikelID & """></div>"
tx = tx & "<div class=""news_mnenja"">"
SET oRS = ExecuteSQLProcedure("Artikel_ListKomentar", Array("@ArtikelID"),Array(ArtikelID))
Do until oRS.eof
tx = tx & "<div class=""news_mnenje_row"">"
tx = tx & "<div class=""news_details_uporabnik"">Uporabnik <b>" & oRS("KOIme") & " " & oRS("KOPriimek") & "</b> | Dne " & oRS("Datum") & "</div>"
tx = tx & "<div class=""news_details_komentaruporabnika"">" & oRS("Komentar") & "</div>"
if Lcase(g_oUser.Group) ="administrator" then
tx = tx & "<div class=""news_detail_deletebutton"" style=""text-align:right;"" id=""komentar___" & oRS("ID") & """> <img src=""images/buttons/" & g_sMenuID & "/izbrisi-komentar.png"" alt=""Izbriš komentar"" onclick=""DeleteUserComment('komentar___" & oRS("ID") & "')""></div>"
Else
tx = tx & ""
End if
tx = tx & "</div>"
oRS.movenext
loop
tx = tx & "</div>"
KomentarjiArtiklov = tx
End Function
Function OcenaArtikla(artikelID)
Dim tx
Dim i
Dim oRS
Dim Ocenitev
Dim JeUporabnikZeGlasoval
Dim cookieArtikel : cookieArtikel = Request.Cookies("allthat-" & ArtikelID)("ArtikelID")
Dim UporabnikovaOcena : UporabnikovaOcena = Request.Cookies("allthat-" & ArtikelID)("ocena")
Dim StKomentar
If CStr(cookieArtikel) = Cstr(artikelID) then
JeUporabnikZeGlasoval= 1
Else
JeUporabnikZeGlasoval= 0
End if
i=1
tx = tx & "Ocena:"
Do until i=6
tx = tx & "<span>"
tx = tx & "<a href=""" & Replace(g_sURL,"&", "&") & """ onmouseover=""OceniIzdelekMouseOver(" & i & ");"" onmouseout=""ResetNastavitveOcene();"" onclick=""OceniIzdelekClick(" & ArtikelID & ", " & i & "); return false;"" rel=""nofollow"">"
tx = tx & "<img src=""images/site/zvezdica_grey.jpg"" id=""zvezdica" & i & """ title=""Oceni z oceno " & i & """ alt=""Oceni z oceno " & i & """ />"
tx = tx & "</a></span>"
i=i+1
Loop
Set oRS = ExecuteSQLProcedure("OcenaUporabnikov", Array("@ArtikelID"), Array(ArtikelID))
If oRS.eof then
Ocenitev = "0"
Else
If Isnull(oRS("Ocena")) then
Ocenitev="0"
Else
Ocenitev =oRS("Ocena")
End if
End if
Set oRS = ExecuteSQLProcedure("GetSteviloArtiklov", Array("@ArtikelID"), Array(ArtikelID))
If oRS.eof then
StKomentar ="0"
Else
If oRS("Stevilo") = "1" then
StKomentar = oRS("Stevilo") & " glas"
elseif oRS("Stevilo") = "2" then
StKomentar = oRS("Stevilo") & " glasova"
elseif oRS("Stevilo") = "3" then
StKomentar = oRS("Stevilo") & " glasovi"
elseif oRS("Stevilo") = "4" then
StKomentar = oRS("Stevilo") & " glasovi"
else
StKomentar = oRS("Stevilo") & " glasov"
End if
End if
If JeUporabnikZeGlasoval =1 then
'tx = tx & "<span id=""ocena_st""> (" & StKomentar & ")</span><br /><span id=""ocena_text"">Artikel ste ocenili z oceno " & UporabnikovaOcena & ".</span>"
tx = tx & "<span id=""ocena_st""></span><br /><span id=""ocena_text"">Artikel ste ocenili z oceno " & UporabnikovaOcena & ".</span>"
Else
'tx = tx & "<span id=""ocena_st""> (" & StKomentar & ")</span><br /><span id=""ocena_text"">Artikla še nisi ocenili.</span>"
tx = tx & "<span id=""ocena_st""></span><br /><span id=""ocena_text"">Artikla še nisi ocenili.</span>"
End if
tx = tx & "<script type=""text/javascript"">var ocena_text = document.getElementById('ocena_text').innerHTML; var ocena=" & Ocenitev & ";ResetNastavitveOcene();var glasoval = " & JeUporabnikZeGlasoval & ";</script>"
OcenaArtikla = tx
Set oRS= nothing
End Function
Function ListBarve(ArtikelID)
Dim tx, oRecS, SQL, ty, z
tx =""
ty =""
z=1
set oRecS = ExecuteSQLProcedure("GetListOfBarva", Array("ArtikelID"), Array(ArtikelID))
if oRecS.RecordCount >0 then
if oRecs.RecordCount>1 then
tx = "<div class=""selectbox_siv""><a href=""javascript:toggleLayer('BarvaForm');"" title=""Izbira barve"">"
tx = tx & "<input type=""hidden"" id=""txtBarvaID"" name=""txtBarvaID"" value=""" & oRecS("BarvaID") & """ />"
tx = tx & "<input type=""text"" readonly=""readonly"" id=""txtBarvanaziv"" style=""width:120px; height:14px;"" name=""txtBarvanaziv"" value=""" & oRecS("Barva") & """ />"
tx = tx & "</a></div>"
tx = tx & "<div id=""BarvaForm"">"
Do until oRecS.eof
tx = tx & "<div onmouseout=""this.style.background='#FFFFFF';"" onmouseover=""this.style.background='#AABBCC';"" onclick=""this.style.background='#FFFFFF';document.getElementById('txtBarvanaziv').value='" & oRecS("Barva") & "';document.getElementById('txtBarvaID').value='" & oRecS("BarvaID") & "';GetVelikost();toggleLayer('BarvaForm');"">" & oRecS("Barva") & "</div>"
z=z+1
oRecS.movenext
loop
tx = tx & "</div>"
else
tx = "<input type='hidden' name='txtBarvaID' id='txtBarvaID' value='" & oRecs("BarvaID") & "'>"
End if
Else
tx = "<input type='hidden' name='txtBarvaID' id='txtBarvaID' value='00'>"
End if
ListBarve =tx
set oRecS = nothing
End Function
Function OblikujCenoArtikla(oRS)
Dim tx, ty, found, tz, foundtisk, tm
Dim MyRS, oRecs, mz
found=false
foundtisk = false
Do until oRS.eof
if Cdbl(oRS("Cena")) = Cdbl(oRS("OldCena")) then
if g_oUser.Group<>"IT" then
tm = "<table cellpadding=""0"" cellspacing=""0"">"
'tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Šifra izdelka:</td><td class=""td_rednacena"">" & oRS("BSifra") & "</td></tr>"
if oRS("OEM")<>"" then
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Oznaka:</td><td class=""td_rednacena"">" & oRS("OEM") & "</td></tr>"
end if
'tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Spletna cena končnega kupca brez DDV:</td><td class=""td_rednacena"">" & FFN(oRS("RednaCena")) & "</td></tr>"
if Cdbl(oRS("Cena"))=0 then
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena brez ddv:</td><td class=""td_cena""></td></tr></table></td></tr>"
else
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena brez ddv:</td><td class=""td_cena"">" & FFN(oRS("Cena")) & " €</td></tr></table></td></tr>"
End if
tm = tm & "</table>"
Else
tm = "<table cellpadding=""0"" cellspacing=""0"">"
'tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Šifra izdelka:</td><td class=""td_rednacena"">" & oRS("BSifra") & "</td></tr>"
if oRS("OEM")<>"" then
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Oznaka:</td><td class=""td_rednacena"">" & oRS("OEM") & "</td></tr>"
end if
if Cdbl(oRS("Cena"))=0 then
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena:</td><td class=""td_cena""></td></tr></table></td></tr>"
else
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena:</td><td class=""td_cena"">" & FFN(oRS("Cena")) & " €</td></tr></table></td></tr>"
End if
tm = tm & "</table>"
End if
Else
if g_oUser.Group<>"IT" then
tm = "<table cellpadding=""0"" cellspacing=""0"">"
'tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Šifra izdelka:</td><td class=""td_rednacena"">" & oRS("BSifra") & "</td></tr>"
if oRS("OEM")<>"" then
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Oznaka:</td><td class=""td_rednacena"">" & oRS("OEM") & "</td></tr>"
end if
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Redna cena brez DDV:</td><td class=""td_rednacena"">" & FFN(oRS("OldCena")) & " €</td></tr>"
tm = tm & "<tr class=""tr_popust""><td class=""td_popustopis"">Spletni popust:</td><td class=""td_popust"">" & Round(oRS("Popust"),0) & " %</td></tr>"
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Spletna cena končnega kupca brez DDV:</td><td class=""td_popust"">" & FFN(oRS("RednaCena")) & " €</td></tr>"
tm = tm & "<tr class=""tr_popust""><td class=""td_popustopis"">Vaš rabat:</td><td class=""td_popust"">" & Round(oRS("rabat"),0) & " %</td></tr>"
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena brez ddv:</td><td class=""td_cena"">" & FFN(oRS("Cena")) & " €</td></tr></table></td></tr>"
tm = tm & "</table>"
Else
tm = "<table cellpadding=""0"" cellspacing=""0"">"
'tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Šifra izdelka:</td><td class=""td_rednacena"">" & oRS("BSifra") & "</td></tr>"
if oRS("OEM")<>"" then
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">Oznaka:</td><td class=""td_rednacena"">" & oRS("OEM") & "</td></tr>"
end if
tm = tm & "<tr class=""tr_rednacena""><td class=""td_rednacenaopis"">redna cena:</td><td class=""td_rednacena"">" & FFN(oRS("OldCena")) & " €</td></tr>"
tm = tm & "<tr class=""tr_popust""><td class=""td_popustopis"">popust:</td><td class=""td_popust"">" & Round(oRS("Popust"),0) & " %</td></tr>"
tm = tm & "<tr class=""tr_cena""><td colspan=""2""><table><tr><td class=""td_cenaopis"">cena:</td><td class=""td_cena"">" & FFN(oRS("Cena")) & " €</td></tr></table></td></tr>"
tm = tm & "</table>"
End if
End if
oRS.movenext
Loop
OblikujCenoArtikla = tm
End Function
Function DodajArtikelVKosaro(ArtikelID, BarvaID, VelikostID, Kol)
Dim oRS, RecS
IF ArtikelID="" then
Exit function
End if
If Len(BarvaID) =0 then BarvaID ="000"
If Len(VelikostID)=0 then VelikostID="000"
if Kol="" then Kol=1
Kol = Clng(Abs(Kol))
Call ExecuteInsertSP("DodajArtikelVKosarico ", Array("@UserID", "@ArtikelID", "@BarvaID", "@VelikostID", "@Kol"), Array(g_oUser.UserID, ArtikelID, BarvaID, VelikostID, Kol))
End Function
Function OstaliSoKupili()
Dim oItem
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim PodvrstaID
Dim Akcija
i=1
set oRS = ExecuteSQLProcedure("GetOstaliSoKupili",Array("@ArtikelID","@Group", "@Language"), Array(GetmaraP("detailID"), g_oUser.Group, g_sMenuID))
i=1
if oRS.recordCount >0 then
tx = "<div class=""ostalisokupili""></div>"
End if
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""seznam_row"">"
tx = tx & "<div class=""seznam_box"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""seznam_box_odmik"">"
tx = tx & "<div class=""firstpage_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""seznam_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""seznam_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""seznam_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""seznam_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
OstaliSoKupili = tx
Set oRS= nothing
set oRecS = nothing
End Function
Function ZadnjiOgledani()
Dim oItem
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim PodvrstaID
Dim Akcija
i=1
set oRS = ExecuteSQLProcedure("GetLast4VisitedArtikels ",Array("@UserSession","@UserIP","@Group", "@Language"), Array(g_oUser.UserID, Request.ServerVariables("REMOTE_ADDR"), g_oUser.Group, g_sMenuID))
i=1
if oRS.recordCount>0 then
tx = "<div class=""zadnji_ogledani_artikli""></div>"
End if
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""zadnji_ogledani_row"">"
tx = tx & "<div class=""zadnji_ogledani_box"">"
tx = tx & "<div class=""zadnji_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""zadnji_ogledani_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_ogledani_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""zadnji_opis"">" & oRS("Artikel") & "</div>"
tx = tx & "<div class=""zadnji_ogledani_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_ogledani_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""zadnji_ogledani_box_odmik"">"
tx = tx & "<div class=""zadnji_ogledani_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""zadnji_ogledani_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_ogledani_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""zadnji_opis"">" & oRS("Artikel") & "</div>"
tx = tx & "<div class=""zadnji_ogledani_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_ogledani_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""zadnji_ogledani_box_odmik"">"
tx = tx & "<div class=""zadnji_ogledani_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""zadnji_ogledani_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""zadnji_ogledani_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""zadnji_opis"">" & oRS("Artikel") & "</div>"
tx = tx & "<div class=""zadnji_ogledani_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""zadnji_ogledani_btnvec""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
ZadnjiOgledani = tx
Set oRS= nothing
set oRecS = nothing
End Function
Sub InsertUpdate_Website_AkcijeVPodvrstah(oContent)
End Sub
Sub Edit_Website_AkcijeVPodvrstah(oNode)
End Sub
Function Render_Website_AkcijeVPodvrstah(oContent)
Dim oItem
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim PodvrstaID
Dim Akcija
i=1
if g_sWebShopID <>"0" and getParam("detailID")="" then
set oRS = ExecuteSQLProcedure("GetArtikelAkcija4Podvrsta ",Array("@PodvrstaID","@Group", "@Language"), Array(g_sWebShopID, g_oUser.Group, g_sMenuID))
i=1
if oRS.recordCount>0 then
tx = "<div class=""akcijski_artikli_title""></div>"
End if
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
'Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""akcijski_row"">"
tx = tx & "<div class=""akcijski_box"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""akcijski_box_odmik"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""akcijski_box_odmik"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
End if
Render_Website_AkcijeVPodvrstah = tx
Set oRS= nothing
set oRecS = nothing
End Function
Sub InsertUpdate_Website_AkcijePrvaStran(oContent)
End Sub
Sub Edit_Website_AkcijePrvaStran(oNode)
End Sub
Function Render_Website_AkcijePrvaStran(oContent)
Dim oItem
Dim oSlika
Dim rabat
Dim i,j,tx, ty
Dim oRS, oRecS
Dim LinkArtikla
Dim SlikaArtikla
Dim CenaArtikla
Dim Podvrsta
Dim PodvrstaID
Dim Akcija
i=1
if g_sWebShopID <>"0" and getParam("detailID")="" then
set oRS = ExecuteSQLProcedure("GetAkcijaPrvaStran",Array("@PodvrstaID","@Group", "@Language"), Array(g_sWebShopID, g_oUser.Group, g_sMenuID))
i=1
if oRS.recordCount>0 then
tx = "<div class=""akcijski_artikli_title""></div>"
End if
Do until oRS.Eof
'---------------------OD TU
Akcija = ""
PodvrstaID = oRS("PodvrstaID")
'Podvrsta = CleanNameString(oRS("Podvrsta"))
LinkArtikla = "default.asp?pid=modul_it&mid=" & g_sMenuID & "&wid=" & PodvrstaID & "&detailID=" & oRS("ArtikelID") & "&segid=" & oRS("SegmentID") & "&ime=" & CleanSinkName(oRS("Artikel"))
if Isnull(oRS("Slika")) or Len(oRS("Slika"))=0 then
SlikaArtikla = "/media/SlikeIT/Thumbs/Thumbs/Thumbs/ni_slike.jpg"
Else
SlikaArtikla = oRS("Path") & "Thumbs/Thumbs/Thumbs/" & oRS("Slika")
End if
if Clng(oRS("Cena")) = 0 then
Akcija ="<div class=""artikel_kmalu""></div>"
End if
if oRS("Cena") = oRS("CenaAkcija") then
'Response.write oRS("Cena")
if CDbl(oRS("Cena")) = 0 then
CenaArtikla="<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_value"">KMALU</div>"
else
CenaArtikla="<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_priceddv") & ":</div><div class=""cenaakcija_value2"">" & FFN(oRS("Cena")) & " €</div>"
End if
else
CenaArtikla= "<div class=""rednacenatxt"">" & StringSite("webshop","shop","shop_priceddv") & "</div><div class=""rednacena_precrtan"">" & FFN(oRS("Cena")) & " €</div>"
CenaArtikla = CenaArtikla & "<div class=""cenaakcija_txt"">" & StringSite("webshop","shop","shop_akcija") & "</div><div class=""cenaakcija_value"">" & FFN(oRS("CenaAkcija")) & " €</div>"
End if
'---------------------DO TU JE ZGOLJ DEFINIRANJE KAJ SO VREDNOSTI, OD TU DOL JE PA IZGLED
if i=1 then
tx = tx & "<div class=""akcijski_row"">"
tx = tx & "<div class=""akcijski_box"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
Elseif i = 4 then
tx = tx & "<div class=""akcijski_box_odmik"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
tx = tx & "</div>"
Else
tx = tx & "<div class=""akcijski_box_odmik"">"
tx = tx & "<div class=""akcijski_kategorija""><a href=""" & LinkArtikla & """>" & Podvrsta & "</a></div>"
tx = tx & Akcija
tx = tx & "<div class=""akcijski_slika""><a href=""" & LinkArtikla & """><img src=""" & SlikaArtikla & """ alt=""" & CleanSinkName(oRS("Artikel")) & """ /></a></div>"
tx = tx & "<div class=""akcijski_naziv""><a href=""" & LinkArtikla & """>" & oRS("Artikel")& "</a></div>"
tx = tx & "<div class=""akcijski_opis"">" & oRS("KratkiOpis") & "</div>"
tx = tx & "<div class=""akcijski_cena"">"
tx = tx & CenaArtikla
tx = tx & "</div>"
tx = tx & "<div class=""akcijski_addtocart""><a href=""" & LinkArtikla & """></a></div>"
tx = tx & "</div>"
End if
if i=4 then i = 0
i = i+1
oRS.MoveNext
loop
If i = 2 or i = 3 or i = 4 then tx = tx & "</div>"
End if
Render_Website_AkcijePrvaStran = tx
Set oRS= nothing
set oRecS = nothing
End Function
Function Izracunprihranka(cena, cena2)
Dim myCena
Dim myCena2
Dim sestevek
mycena = Replace(cena,".",",")
myCena2 = Replace(cena2,".",",")
myCena= Cdbl(mycena)
myCena2= Cdbl(myCena2)
sestevek = MyCena - MyCena2
Izracunprihranka = sestevek
End Function
Function ObracunDavka(cena, davek)
Dim myCena
Dim sestevek
Dim myDavek
if isnull(davek) then davek=0
if isnull(cena) then cena=0
mycena = Replace(cena,".",",")
myDavek = Replace(davek,".",",")
myDavek = Cdbl(myDavek)
myCena= Cdbl(mycena)
sestevek = MyCena + (MyCena * myDavek/100)
ObracunDavka = sestevek
End function
Function ObracunPopustCene(cena, popust)
Dim myCena
Dim sestevek
Dim myPopust
if isnull(popust) then popust=0
if isnull(cena) then cena=0
mycena = Replace(cena,".",",")
myPopust = Replace(popust,".",",")
mypopust = Cdbl(myPopust)
myCena= Cdbl(myCena)
sestevek = MyCena - (myCena * myPopust/100)
ObracunPopustCene = sestevek
End function
%>ASKER CERTIFIED SOLUTION
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.