<%
'Dim StrConn
' SQL SERVER LOCAL CONNECTION
'StrConn = "Provider=sqloledb; Data Source=PRO-HP\SQLEXPRESS; Initial Catalog=perfumeonline2008; User ID=sa; Password=Iftah786;"
' SQL SERVER REMOTE CONNECTION Serverplan
StrConn = "Provider=sqloledb; Data Source=46.28.0.41,21433; Initial Catalog=perfumeonline2008; User ID=babafarid; Password=Iftah786;"
'cleanup routines
Sub chiudiRs(RS)
RS.Close
Set RS = Nothing
End Sub
Sub chiudiConn()
Conn.Close
Set Conn = Nothing
End Sub
function killChars(strWords)
dim badChars
dim newChars
Dim i
badChars = array("select", "drop", ";", "--", "insert", "delete", "xp_", ".js", ".php", "script", "nchar", "varchar", "nvarchar", "sysobjects", "syscolumns", "sysusers", "Prodotti_en", "Prodotti_jp", "Prodotti_SC", "Prodotti_SH", "Categorie_en", "Categorie_jp", "Categorie_SC", "Categorie_SH", "sysobjects", "syscolumns", "tblCarrello", "tblCategorie", "tblCategorie_en", "tblOrdini", "tblProdotti", "tblProdotti_en", "tblUsers", "Varianti_JP", "Varianti_SC", "Varianti_SH", "ID_prodotto", "ID_categoria", "descr_lunga", "foto_pic")
newChars = strWords
for i = 0 to uBound(badChars)
newChars = replace(newChars, badChars(i), "")
next
killChars = newChars
end function
function stripQuotes(strWords)
stripQuotes = replace(strWords, "'", "''")
end function
%>
<%
Dim RsCategorieProdotti, sottoCategorieTerapia, prodNome, prodCat, prodLink, ID_Menu
IF NOT isArray( Application( "sottoCategorieTerapia" ) ) THEN
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
Set RsCategorieProdotti = Server.CreateObject("ADODB.Recordset")
RsCategorieProdotti.ActiveConnection = conn
Set RsCategorieProdotti=conn.Execute("SELECT SottoCategorie.ID_SottoCategoria, SottoCategorie.SottoCategoria, SottoCategorie.Link, SottoCategorie.FotoCategoria, SottoCategorie.Empty FROM SottoCategorie WHERE (Id_Categoria = 31) AND (Empty = 0)")
if not RsCategorieProdotti.eof then
sottoCategorieTerapia = RsCategorieProdotti.GetRows()
end if
chiudiRs(RsCategorieProdotti)
Application.Lock
Application( "sottoCategorieTerapia" ) = sottoCategorieTerapia
Application.Lock
END IF
%>
<%
IF isArray( Application( "sottoCategorieTerapia" ) ) THEN
FOR i = 0 TO UBOUND( Application( "sottoCategorieTerapia" ), 2 )
prodCat = Application( "sottoCategorieTerapia" )( 0, i )
prodNome = Application( "sottoCategorieTerapia" )( 1, i )
prodLink = Application( "sottoCategorieTerapia" )( 2, i )
if trim(Request("cat")) <> trim(prodCat) AND trim(ID_Menu) <> trim(prodCat) then %>
|
<%= prodNome %>
|
<% else %>
<%= prodNome %>
|
<% end if %>
<% NEXT
end if
%>
|
Kit di ProfumoTerapia
|
|
Offerte del mese
|
|
TUTTI I PRODOTTI
|
|
|
