<%
dim szTitle
dim szImg
dim szDis
dim flImg
dim flDis
set fso = createobject("scripting.filesystemobject")
'titolo
szTitle = UCase(rsCatProd.Fields.Item("CategoriaNome").Value) & " - " & SZ_PRODUCT_TAB_CODE & UCase(rsCatProd.Fields.Item("CategoriaCodice").Value)
'file immagine e disegno
szImg = "../images/catalog/images/" & (rsCatProd.Fields.Item("CategoriaImmagine").Value)
szDis = "../images/catalog/design/" & (rsCatProd.Fields.Item("CategoriaDisegno").Value)
'file immagine
If (fso.FileExists(server.mappath(szImg))) Then
flImg = true
else
flImg = false
end if
'file disegno
If (fso.FileExists(server.mappath(szDis))) Then
flDis = true
else
flDis = false
end if
%>
<%
dim idx
dim flColor
dim szColor
flColor = false
while (NOT rsValori.EOF)
if( flColor = false ) then
flColor = true
szColor = " class=""odd"""
else
flColor = false
szColor = ""
end if
idx = 1
%>
>
<%
dim idArt
'carica IDArticolo
idArt = rsValori.Fields.Item(arValori(0)).Value
'cerca se articolo selezionato per samples cart
dim flSel
dim i
flSel = false
if isarray(Session("samplescart")) then
arrTmp = Session("samplescart")
for i = 0 To Ubound(arrTmp,2)
if int(arrTmp(CART_ART_ID,i)) = idArt then
flSel = true
end if
next
end if
if flSel then
%>
<% else %>
<% if flLogged > -1 then %>
<% else %>
<% end if
end if
while (idx < (rsValori__numCols))
if( idx = 1 ) then
%>
<% fnBoxLat_AreaClienti 1, Request.ServerVariables("SCRIPT_NAME"), Request.ServerVariables("QUERY_STRING"), flLogged, flLoginFail %>
<% fnBoxLat_SampleCart 1 %>
<%
if( not isnull(rsKeywords.Fields.Item("PageTitle").Value) and not isnull(rsKeywords.Fields.Item("PageText").Value) ) then
fnBoxLat_KeywordsText Replace(rsKeywords.Fields.Item("PageTitle").Value,"PANOZZO SRL - ",""), rsKeywords.Fields.Item("PageText").Value
end if
%>
<%
rsCatProd.Close()
Set rsCatProd = Nothing
%>
<%
rsColonne.Close()
Set rsColonne = Nothing
%>
<%
rsValori.Close()
Set rsValori = Nothing
%>
<%
rsKeywords.Close()
Set rsKeywords = Nothing
%>