%@LANGUAGE="VBSCRIPT"%>
<%
idCat = Replace(Request.QueryString("idCategory"), "'", "''") + ""
idFam = Replace(Request.QueryString("idFamily"), "'", "''")
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://panozzosrl.com/2018/it/tappi-in-plastica-per-tubi/tappi-in-plastica-per-tubi-p.php?id_fam=" & idFam & "&id_cat=" & idCat
%>
<% CURR_LANG = "Ita" %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<%
Dim idFam
Dim idCat
idFam = "0"
idCat = "0"
If (Request.QueryString("idCategory") <> "undefined" and Request.QueryString("idCategory") <> "") Then
idCat = Replace(Request.QueryString("idCategory"), "'", "''") + ""
End If
if (Request.QueryString("idFamily") <> "undefined" and Request.QueryString("idFamily") <> "") then
idFam = Replace(Request.QueryString("idFamily"), "'", "''")
end if
Dim ret
Dim flLoginFail
Dim flLogged
flLoginFail = false
flLogged = -1
ret = fnAreaClienti_Logout(CStr(Request.ServerVariables("URL")),"&idFamily=" + idFam + "&idCategory=" + idCat)
'Validate request to log in to this site.
If (CStr(Request.Form("user")) <> "") Then
flLoginFail = fnAreaClienti_Login(CStr(Request.Form("user")))
end if
'Restrict Access To Page: Grant or deny access to this page
flLogged = fnAreaClienti_CheckLogin()
Dim rsKeywords
Dim rsArticoli
set rsKeywords = fnGetData(MM_cnn2_STRING, "SELECT PageTitle_" & CURR_LANG & " AS PageTitle, PageDescription_" & CURR_LANG & " AS PageDescription, PageKeywords_" & CURR_LANG & " AS PageKeywords, PageText_" & CURR_LANG & " AS PageText FROM tbl_keywords_categorie WHERE (IDFamiglia = " & idFam & " OR IDFamiglia2 = " & idFam & " OR IDFamiglia3 = " & idFam & ") AND IDCategoria = " & idCat)
if rsKeywords.EOF then
rsKeywords.Close
set rsKeywords = fnGetData(MM_cnn2_STRING,"SELECT PageTitle_" & CURR_LANG & " AS PageTitle, PageDescription_" & CURR_LANG & " AS PageDescription, PageKeywords_" & CURR_LANG & " AS PageKeywords FROM tbl_keywords WHERE LinkedPage = 'home'")
end if
set rsArticoli = fnGetData(MM_cnn_STRING,"SELECT IDArticolo, IDCategoria, ArticoloNome_" & CURR_LANG & " AS ArticoloNome, ArticoloCodice, ArticoloMateriale_" & CURR_LANG & " AS ArticoloMateriale, ArticoloColore_" & CURR_LANG & " AS ArticoloColore, ArticoloImmagine_" & CURR_LANG & " AS ArticoloImmagine, ArticoloNote_" & CURR_LANG & " AS ArticoloNote, ArticoloPdf_" & CURR_LANG & " AS ArticoloPdf, ArticoloPdf_Testo_" & CURR_LANG & " AS ArticoloPdfTesto FROM tbl_articoli_special WHERE tbl_articoli_special.Enable = '1' AND IDCategoria = " + idCat)
set rsCat = fnGetData(MM_cnn_STRING,"SELECT CategoriaNome_" & CURR_LANG & " AS CategoriaNome FROM tbl_categorie WHERE IDCategoria = " + idCat)
currentPage = Request.ServerVariables("SCRIPT_NAME") & "?IDFamily=" & Request.QueryString("IDFamily") & "&IDCategory=" & Request.QueryString("IDCategory")
'currentPage = Mid(currentPage, InstrRev(currentPage, "/") + 1)
%>
<% if not rsKeywords.EOF then %>
<%=rsKeywords.Fields.Item("PageTitle").Value%>
">
">
<% end if %>
<%response.Write(rsKeywords.EOF)%>
<% fnLoad_TopBar "../", 0 %>
<%=uCase(rsCat.Fields.Item("CategoriaNome").Value)%>
<% while( NOT rsArticoli.EOF ) %>
<%=UCase(rsArticoli.Fields.Item("ArticoloNome").Value)%>
<%
dim szTitle
dim szImg
dim szDis
dim flImg
dim flDis
set fso = createobject("scripting.filesystemobject")
'titolo
szTitle = UCase(rsArticoli.Fields.Item("ArticoloNome").Value) & " - " & SZ_PRODUCT_TAB_CODE & UCase(rsArticoli.Fields.Item("ArticoloCodice").Value)
'file immagine
szImg = "../images/catalogo/special/" & (rsArticoli.Fields.Item("ArticoloImmagine").Value)
'file immagine
If (fso.FileExists(server.mappath(szImg))) Then
flImg = true
else
flImg = false
end if
%>
<%=SZ_PRODUCT_TAB_CLICK%>
<% if len(rsArticoli.Fields.Item("ArticoloPdf").Value) > 0 then %>
<%=rsArticoli.Fields.Item("ArticoloPdfTesto").Value%>
<% end if %>
<% if len(rsArticoli.Fields.Item("ArticoloPdf").Value) > 0 then %>
" target="_blank"> " name="imgPdf" width="16" height="16" id="imgPdf" title="<%=rsArticoli.Fields.Item("ArticoloPdfTesto").Value%>" />
<% end if %>
<%=SZ_PRODUCT_TAB_MATERIAL%>
<%=(rsArticoli.Fields.Item("ArticoloMateriale").Value)%>
<%=SZ_PRODUCT_TAB_COLOR%>
<%=(rsArticoli.Fields.Item("ArticoloColore").Value)%>
<%=SZ_PRODUCT_TAB_NOTE%>
<%=rsArticoli.Fields.Item("ArticoloNote").Value%>
<%
rsArticoli.MoveNext()
wend
%>
<% fnBoxLat_Mex 1 %>
<% fnBoxLat_Ricerca 1 %>
<% fnBoxLat_CategoryList 1, idFam %>
<% fnBoxLat_AreaClienti 1, Request.ServerVariables("SCRIPT_NAME"), Request.ServerVariables("QUERY_STRING"), flLogged, flLoginFail %>
<% fnBoxLat_SampleCart 1 %>
<%
if( not rsKeywords.EOF ) then
fnBoxLat_KeywordsText Replace(rsKeywords.Fields.Item("PageTitle").Value,"PANOZZO SRL - ",""), rsKeywords.Fields.Item("PageText").Value
end if
%>
<%
rsArticoli.Close()
Set rsValori = Nothing
%>
<%
rsCat.Close()
Set rsCat = Nothing
%>
<%
rsKeywords.Close()
Set rsKeywords = Nothing
%>