<%@LANGUAGE="VBSCRIPT"%>
<% ' Global variables and functions
'server.scripttimeout = 600
'***************************************** VARIABLES ********************************************
dim color_str(6),conn,recs
color_str(0) = "528c42"
color_str(1) = "DE4229"
color_str(2) = "4A8CC6"
color_str(3) = "427363"
color_str(4) = "E7AD21"
color_str(5) = "5ab5d5"
color_str(6) = "E77329"
maintitle = "Benvenuti in Filastrocche.it!"
d = weekday(now(),2)
select case d
case 1
wd = "Lunedì, "
case 2
wd = "Martedì, "
case 3
wd = "Mercoledì, "
case 4
wd = "Giovedì, "
case 5
wd = "Venerdì, "
case 6
wd = "Sabato, "
case 7
wd = "Domenica, "
end select
m = month(now())
select case m
case 1
mn = " Gen "
case 2
mn = " Feb "
case 3
mn = " Mar "
case 4
mn = " Apr "
case 5
mn = " Mag "
case 6
mn = " Giu "
case 7
mn = " Lug "
case 8
mn = " Ago "
case 9
mn = " Set "
case 10
mn = " Ott "
case 11
mn = " Nov "
case 12
mn = " Dic "
end select
oggi_num = cstr(year(now())) & right("00" & cstr(month(now())),2) & right("00" & cstr(day(now())),2)
oggi = wd + Cstr(day(now())) + mn + Cstr(year(now()))
trattini = "--------------------------------------------------------------"
trattini_brevi = "-----------------------------------------"
'***************************************** FUNCTIONS ********************************************
function crypt(chiave,stringa)
k = 1
f = ""
for ch1 = 1 to len(stringa)
a = cstr(hex(asc(mid(stringa,ch1,1))))
c = ""
for ch2 = 1 to len(a)
b = cstr(asc(mid(a,ch2,1)))
c = c & b
next
c = cint(strreverse(c)) + cint(asc(mid(chiave,k,1)))
c = strreverse(cstr(right("0000" & cstr(c),4)))
c = right(c,2) & left(c,2)
e = ""
for ch3 = 1 to len(c)
d = chr(100+cint(mid(c,ch3,1)))
e = e & d
next
k = k + 1
if k > len(chiave) then k = 1
f = f & e
next
crypt = f
end function
function decrypt(chiave,stringa)
k = 1
g = ""
for ch1 = 1 to len(stringa) step 4
a = mid(stringa,ch1,4)
c = ""
for ch2 = 1 to len(a)
b = cstr(asc(mid(a,ch2,1))-100)
c = c & b
next
c = right(c,2) & left(c,2)
c = strreverse(cstr(right("0000" & c,4)))
c = left(strreverse(cstr(cint(c)-cint(asc(mid(chiave,k,1))))) & "0000",4)
e = ""
for ch3 = 1 to len(c) step 2
d = chr(int(mid(c,ch3,2)))
e = e & d
next
f = chr(cint("&H" & e))
k = k + 1
if k > len(chiave) then k = 1
g = g & f
next
decrypt = g
end function
'sono state aggiungte nuove funzioni da Infoquidem%>
<%
'-----------------------------------NOMI TABELLE-------------------------------
dim contenuti, linguaContenuti, obiettivoContenuti, multimedia, tipiMultimedia,categorieMultimedia
contenuti = "testi_tb_content"
linguaContenuti = "testi_dt_language"
obiettivoContenuti = "testi_dt_purpose"
multimedia = "testi_tb_multimedia"
tipiMultimedia = "testi_dt_multimedia_type"
categorieMultimedia = "testi_dt_multimedia_category"
'aggiungere tipologie ed occasioni come "copie" di multimedia
'----------------------------------DIRECTORY---------------------------
dim contentDir, tempMultimediaDir, multimediaDir
contentDir = ""
tempMultimediaDir = Application("root")&"multimediaFile/testi/temp/"
multimediaDir = Application("root")&"multimediaFile/testi/multimedia/"
'----------------------------------CAMPI PER TRADUZIONI E VISUALIZZAZIONE---------------------------
Class Testi
Private idContent, title, author, textContent, notes, comments, answer, idPurpose, idLanguage, fgOnline, insertDate, updateDate
Private idMultimedia, idMultimediaType, idMultimediaCategory, url, description
'TODO
'tutto il multimedia
'METODI PRESENTI
'getContent
'saveContent
'getLastId
'updateContent
'deleteContent
'getContentList
'getTotalContentList
'getContentListNumber(n)
'getLanguageList()
'getPurposeList()
'getDescLanguage(pIdLanguage)
'getDescPurpose(pIdpurpose)
'getDescCategory(idCategory)
'getDescSubCategory(idSubcategory)
'getMultimedia
'saveMultimedia
'updateMultimedia
'deleteMultimedia
'getMultimediaListByType
'getMultimediaListByTypeNumber(pIdContent,pType, pN)
'getMultimediaList(pIdContent)
'getMultimediaCategoryList()
'getDescMultimediaCategory(pIdMultimediaCategory)
'getMultimediaTypeList()
'getDescMultimediaType(pIdType)
Public function searchContent(idCategory, idSubcategory, novita, iniziale, idLanguage, idOccasion, idPurpose, title, author, text_content, comments, musica)
dim sql
sql = "select a.title as title, a.id_content as id_content, a.insert_date as insert_date, a.update_Date as update_date from testi_tb_content a, testi_tb_version d "
if idCategory<>"" or idSubCategory<>"" then
sql = sql&", testi_tb_main_classification b "
end if
if idOccasion<>"" then
sql = sql&", testi_tb_main_occasion c "
end if
sql = sql&"where 1=1 and a.fg_online='0' "
if idCategory<>"" then
sql = sql&"and b.id_category='"&idCategory&"' and b.id_content=a.id_content "
end if
if idSubcategory<>"" then
'sql = sql&"and b.id_subcategory='"&idSubcategory&"' and b.id_content=a.id_content "
'----MODIFICA ZECCHINO D'ORO--------------
sql = sql&"and b.id_subcategory='"&idSubcategory&"' and id_subcategory<>'57' and b.id_content=a.id_content "
end if
if novita<>"" then
if novita="si" then
sql = sql&"and a.insert_date>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insert_date<=date_sub(now(),interval 15 day) "
end if
end if
if iniziale<>"" then
sql = sql&"and a.title like '"&iniziale&"%' "
end if
if idLanguage<>"" then
sql = sql&"and a.id_language='"&idLanguage&"' "
end if
if idPurpose<>"" then
sql = sql&"and a.id_purpose='"&idPurpose&"' "
end if
if idOccasion<>"" then
sql = sql&"and c.id_occasion='"&idOccasion&"' and c.id_content=a.id_content "
end if
'if freeText<>"" then
' sql = sql&"and match (title, author, text_content, comments, answer) against ('"&prepareSql(freeText)&"' IN BOOLEAN MODE) "
'end if
if title<>"" then
sql = sql&"and match (title) against ('+"&replace(prepareSql(title)," "," +")&"' IN BOOLEAN MODE) "
end if
if author<>"" then
sql = sql&"and match (author) against ('+"&replace(prepareSql(author)," "," +")&"' IN BOOLEAN MODE) "
end if
if text_content<>"" then
sql = sql&"and match (text_content) against ('+"&replace(prepareSql(text_content)," "," +")&"' IN BOOLEAN MODE) "
end if
if comments<>"" then
sql = sql&"and match (comments) against ('+"&replace(prepareSql(comments)," "," +")&"' IN BOOLEAN MODE) "
end if
if musica<>"" then
if musica="si" then
sql = sql&" and exists (select 1 from testi_tb_multimedia e where a.id_content=e.id_content and e.id_multimedia_type in (1,2,3,5)) "
else
sql = sql&" and not exists (select 1 from testi_tb_multimedia e where a.id_content=e.id_content and e.id_multimedia_type in (1,2,3,5)) "
end if
end if
sql = sql&"and a.id_content=d.id_content_1 group by title union "
sql = sql&"select a.title as title, a.id_content as id_content, a.insert_date as insert_date, a.update_Date as update_date from testi_tb_content a "
if idCategory<>"" or idSubCategory<>"" then
sql = sql&", testi_tb_main_classification b "
end if
if idOccasion<>"" then
sql = sql&", testi_tb_main_occasion c "
end if
sql = sql&"where 1=1 and a.fg_online='0' "
if idCategory<>"" then
sql = sql&"and b.id_category='"&idCategory&"' and b.id_content=a.id_content "
end if
if idSubcategory<>"" then
'sql = sql&"and b.id_subcategory='"&idSubcategory&"' and b.id_content=a.id_content "
'----MODIFICA ZECCHINO D'ORO--------------
sql = sql&"and b.id_subcategory='"&idSubcategory&"' and id_subcategory<>'57' and b.id_content=a.id_content "
end if
if novita<>"" then
if novita="si" then
sql = sql&"and a.insert_date>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insert_date<=date_sub(now(),interval 15 day) "
end if
end if
if iniziale<>"" then
sql = sql&"and a.title like '"&iniziale&"%' "
end if
if idLanguage<>"" then
sql = sql&"and a.id_language='"&idLanguage&"' "
end if
if idPurpose<>"" then
sql = sql&"and a.id_purpose='"&idPurpose&"' "
end if
if idOccasion<>"" then
sql = sql&"and c.id_occasion='"&idOccasion&"' and c.id_content=a.id_content "
end if
'if freeText<>"" then
' sql = sql&"and match (title, author, text_content, comments, answer) against ('"&prepareSql(freeText)&"' IN BOOLEAN MODE) "
'end if
if title<>"" then
sql = sql&"and match (title) against ('+"&replace(prepareSql(title)," "," +")&"' IN BOOLEAN MODE) "
end if
if author<>"" then
sql = sql&"and match (author) against ('+"&replace(prepareSql(author)," "," +")&"' IN BOOLEAN MODE) "
end if
if text_content<>"" then
sql = sql&"and match (text_content) against ('+"&replace(prepareSql(text_content)," "," +")&"' IN BOOLEAN MODE) "
end if
if comments<>"" then
sql = sql&"and match (comments) against ('+"&replace(prepareSql(comments)," "," +")&"' IN BOOLEAN MODE) "
end if
if musica<>"" then
if musica="si" then
sql = sql&" and exists (select 1 from testi_tb_multimedia e where a.id_content=e.id_content and e.id_multimedia_type in (1,2,3,5)) "
else
sql = sql&" and not exists (select 1 from testi_tb_multimedia e where a.id_content=e.id_content and e.id_multimedia_type in (1,2,3,5)) "
end if
end if
sql = sql&"and not exists(select 1 from testi_tb_version d where a.id_content=d.id_content_1) "
sql = sql&"order by title"
'response.write(sql)
' response.end
set searchContent = getRs(sql)
end function
Public function searchContentAdmin(idCategory, idSubcategory, novita, iniziale, idLanguage, idOccasion, idPurpose, title, author, text_content, comments, notes, online, order_by)
dim sql
sql = "select a.title as title, a.id_content as id_content, a.insert_date as insert_date, a.update_Date as update_date, a.fg_online from testi_tb_content a "
if idCategory<>"" or idSubCategory<>"" then
sql = sql&", testi_tb_main_classification b "
end if
if idOccasion<>"" then
sql = sql&", testi_tb_main_occasion c "
end if
sql = sql&"where 1=1 "
if idCategory<>"" then
sql = sql&"and b.id_category='"&idCategory&"' and b.id_content=a.id_content "
end if
if idSubcategory<>"" then
sql = sql&"and b.id_subcategory='"&idSubcategory&"' and b.id_content=a.id_content "
'----MODIFICA ZECCHINO D'ORO--------------
'sql = sql&"and b.id_subcategory='"&idSubcategory&"' and id_subcategory<>'57' and b.id_content=a.id_content "
end if
if novita<>"" then
if novita="si" then
sql = sql&"and a.insert_date>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insert_date<=date_sub(now(),interval 15 day) "
end if
end if
if iniziale<>"" then
sql = sql&"and a.title like '"&iniziale&"%' "
end if
if idLanguage<>"" then
sql = sql&"and a.id_language='"&idLanguage&"' "
end if
if idPurpose<>"" then
sql = sql&"and a.id_purpose='"&idPurpose&"' "
end if
if idOccasion<>"" then
sql = sql&"and c.id_occasion='"&idOccasion&"' and c.id_content=a.id_content "
end if
if title<>"" then
sql = sql&"and match (title) against ('+"&replace(prepareSql(title)," "," +")&"' IN BOOLEAN MODE) "
end if
if author<>"" then
sql = sql&"and match (author) against ('+"&replace(prepareSql(author)," "," +")&"' IN BOOLEAN MODE) "
end if
if text_content<>"" then
sql = sql&"and match (text_content) against ('+"&replace(prepareSql(text_content)," "," +")&"' IN BOOLEAN MODE) "
end if
if comments<>"" then
sql = sql&"and match (comments) against ('+"&replace(prepareSql(comments)," "," +")&"' IN BOOLEAN MODE) "
end if
if notes<>"" then
sql = sql&"and match (notes) against ('+"&replace(prepareSql(notes)," "," +")&"' IN BOOLEAN MODE) "
end if
if online<>"" then
sql = sql&"and a.fg_online='"&cInt(online)&"' "
end if
if order_by="1" then
sql = sql&"order by insert_date desc"
else
sql = sql&"order by a.title"
end if
' response.write(sql)
' response.end
set searchContentAdmin = getRs(sql)
end function
Public function searchContentVersion(idContent, idCategory, idSubcategory, novita, iniziale, idLanguage, idOccasion, idPurpose, freeText)
dim sql
sql = "select a.title as title, a.id_content as id_content, a.insert_date as insert_date, a.update_Date as update_date from testi_tb_content a "
if idCategory<>"" or idSubCategory<>"" then
sql = sql&", testi_tb_main_classification b "
end if
if idOccasion<>"" then
sql = sql&", testi_tb_main_occasion c "
end if
sql = sql&"where 1=1 and a.fg_online='0' and a.id_content<>'"&idContent&"' "
if idCategory<>"" then
sql = sql&"and b.id_category='"&idCategory&"' and b.id_content=a.id_content "
end if
if idSubcategory<>"" then
'sql = sql&"and b.id_subcategory='"&idSubcategory&"' and b.id_content=a.id_content "
'----MODIFICA ZECCHINO D'ORO--------------
sql = sql&"and b.id_subcategory='"&idSubcategory&"' and id_subcategory<>'57' and b.id_content=a.id_content "
end if
if novita<>"" then
if novita="si" then
sql = sql&"and a.insert_date>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insert_date<=date_sub(now(),interval 15 day) "
end if
end if
if iniziale<>"" then
sql = sql&"and a.title like '"&iniziale&"%' "
end if
if idLanguage<>"" then
sql = sql&"and a.id_language='"&idLanguage&"' "
end if
if idPurpose<>"" then
sql = sql&"and a.id_purpose='"&idPurpose&"' "
end if
if idOccasion<>"" then
sql = sql&"and c.id_occasion='"&idOccasion&"' and c.id_content=a.id_content "
end if
if freeText<>"" then
sql = sql&"and match (title, author, text_content, comments, answer) against ('"&prepareSql(freeText)&"' IN BOOLEAN MODE) "
end if
sql = sql&"and not exists (select 1 from testi_tb_version v where v.id_content_1=a.id_content and v.id_content_2='"&idContent&"') "
sql = sql&"order by a.title"
'response.write(sql)
'response.end
set searchContentVersion = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from "&contenuti&" where id_content="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdContent(clsRs("id_content"))
Call setTitle(clsRs("title"))
Call setAnswer(clsRs("answer"))
Call setNotes(clsRs("notes"))
Call setComments(clsRs("comments"))
Call setTextContent(clsRs("text_content"))
Call setAuthor(clsRs("author"))
Call setIdLanguage(clsRs("id_language"))
Call setFgOnline(clsRs("fg_online"))
Call setIdPurpose(clsRs("id_purpose"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
clsRS.close()
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from testi_tb_multimedia where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdContent(clsRs("id_content"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrl(clsRs("url"))
Call setDescription(clsRs("description"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
clsRS.close()
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into "&contenuti&" (insert_date, update_date, title, author, answer, "
sql = sql & "text_content, notes, comments, "
sql = sql & "id_language, fg_online, id_purpose) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getTitle&"',"
sql = sql & "'"&getAuthor&"',"
sql = sql & "'"&getAnswer&"',"
sql = sql & "'"&getTextContent&"',"
sql = sql & "'"&getNotes&"',"
sql = sql & "'"&getComments&"',"
sql = sql & "'"&getIdLanguage&"', "
sql = sql & "'"&getFgOnline&"', "
sql = sql & "'"&getIdPurpose&"' "
sql = sql & ")"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
rs.close
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
rs.close
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into testi_tb_multimedia (insert_date, update_date, id_content, id_multimedia_type,"
sql = sql & "id_multimedia_category, url, description) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdContent&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrl&"',"
sql = sql & "'"&getDescription&"')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
rs.close
conn.close
set rs = nothing
set conn = nothing
End Function
Public Sub updateContent()
dim sql
sql = "update "&contenuti&" set "
sql = sql & "update_date = now(),"
sql = sql & "title = '"&getTitle()&"',"
sql = sql & "author = '"&getAuthor()&"',"
sql = sql & "answer = '"&getAnswer()&"',"
sql = sql & "text_content = '"&getTextContent()&"',"
sql = sql & "notes = '"&getNotes()&"',"
sql = sql & "comments = '"&getComments()&"',"
sql = sql & "id_language = '"&getIdLanguage()&"',"
sql = sql & "fg_online = '"&getFgOnline()&"',"
sql = sql & "id_purpose = '"&getIdPurpose()&"' "
sql = sql & " where id_content = '"&cStr(getIdContent())&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update testi_tb_multimedia set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url = '"&getUrl()&"',"
sql = sql & "description = '"&getDescription()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContent)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContent)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
sql = "delete from testi_tb_main_occasion where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from testi_tb_main_classification where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from testi_tb_voti where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from testi_tb_version where id_content_1='"&pIdContent&"' or id_content_2='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from "&contenuti&" where id_content='"&cstr(pIdContent)&"'"
executeQuery(sql)
clsRs.close
set clsRs = nothing
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from "&multimedia&" where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDir)&"\"&cInt(pIdMultimedia)&"_"&getUrl)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenuti&" order by update_date desc"
set getContentList = getRs(sql)
End Function
' Public Function getTotalContentList()
' Dim sql, clsRs
' sql = "select count(1) as total "
' sql = sql&"from "&contenuti&" order by update_date desc"
' set clsRs = getRs(sql)
' getTotalContentList = clsRs("total")
' set clsRs = nothing
' End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenuti&" where fg_online='0' order by insert_date desc limit "&n
set getContentListNumber = getRs(sql)
End Function
Public Function getContentListNataleNumber(n)
Dim sql, clsRs
sql = "select a.* "
sql = sql&"from testi_tb_content a where fg_online='0' and exists (select 1 from testi_tb_main_occasion b where a.id_content=b.id_content and b.id_occasion='4') order by a.update_date desc limit "&n
set getContentListNataleNumber = getRs(sql)
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from "&multimedia&" where id_content='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set getMultimediaListByType = getRs(sql)
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from "&multimedia&" where id_content='"&cLng(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set getMultimediaListByTypeNumber = getRs(sql)
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimedia&" where id_content='"&pIdContent&"' order by update_date desc"
set getMultimediaList = getRs(sql)
End Function
Public Function getMultimediaAudioList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimedia&" where id_content='"&pIdContent&"' and id_multimedia_type<>'4' order by update_date desc"
set getMultimediaAudioList = getRs(sql)
End Function
Public function getLanguageList()
dim sql, clsRs
sql = "select * from "&linguaContenuti&" order by id_language"
set getLanguageList = getRs(sql)
End function
Public function getQueryLanguageList()
dim sql, clsRs
sql = "select * from "&linguaContenuti&" order by id_language"
getQueryLanguageList = sql
End function
Public function getPurposeList()
dim sql, clsRs
sql = "select * from "&obiettivoContenuti&" order by id_purpose"
set getPurposeList = getRs(sql)
End function
Public function getQueryPurposeList()
dim sql, clsRs
sql = "select * from "&obiettivoContenuti&" order by id_purpose"
getQueryPurposeList = sql
End function
Public function getDescLanguage(pIdLanguage)
dim sql, clsRs
sql = "select desc_language from "&linguaContenuti&" where id_language='"&cstr(pIdLanguage)&"'"
set clsRs = getRs(sql)
getDescLanguage = clsRs("desc_language")
clsRs.close()
set clsRs = nothing
end function
Public function getFlagFile(pIdLanguage)
dim sql, clsRS
sql = "select flag_file from testi_dt_language where id_language='"&pIdLanguage&"'"
set clsRs = getRs(Sql)
if not clsRs.eof then
getFlagFile = clsRs("flag_file")
else
getFlagFile = ""
end if
clsRs.close()
set clsRs = nothing
end function
Public function getDescPurpose(pIdpurpose)
dim sql, clsRs
sql = "select desc_purpose from "&obiettivoContenuti&" where id_purpose='"&cstr(pIdPurpose)&"'"
set clsRs = getRs(sql)
getDescPurpose = clsRs("desc_purpose")
clsRs.close()
set clsRs = nothing
end function
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from "&categorieMultimedia&" order by id_multimedia_category"
set getMultimediaCategoryList = getRs(sql)
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from "&categorieMultimedia&" where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
clsRS.close()
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from "&tipiMultimedia&" order by id_multimedia_type"
set getMultimediaTypeList = getRs(sql)
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from "&tipiMultimedia&" where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
clsRS.close()
set clsRs = nothing
end function
Public function getDescCategory(idCategory)
dim sql
sql = "select desc_category_single, desc_category_plural from testi_dt_category where id_category='"&cInt(idCategory)&"'"
set getDescCategory = getRs(sql)
end function
Public function getQueryDescCategory(idCategory)
getQueryDescCategory = "select desc_category_single, desc_category_plural from testi_dt_category where id_category='"&cInt(idCategory)&"'"
end function
Public function getDescSubCategory(idSubcategory)
dim sql, clsRS
sql = "select desc_subcategory from testi_dt_subcategory where id_subcategory='"&idSubcategory&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSubcategory = clsRs("desc_subcategory")
else
getDescSubcategory = ""
end if
clsRs.close
set clsRs=nothing
end function
Public function getQueryDescSubCategory(idSubcategory)
getQueryDescSubCategory = "select desc_subcategory from testi_dt_subcategory where id_subcategory='"&idSubcategory&"'"
end function
Public function getSubcategoryByCategory(idCategory)
dim sql
sql = "select a.id_subcategory as id_subcategory, b.desc_subcategory as desc_subcategory, count(distinct(id_main_classification)) as total "
sql = sql&"from testi_tb_main_classification a, testi_dt_subcategory b where "
sql = sql&"a.id_category='"&idCategory&"' and a.id_category=b.id_category and a.id_subcategory=b.id_subcategory and exists (select 1 from testi_tb_content c where c.id_content=a.id_content and c.fg_online=0) group by a.id_subcategory, b.desc_subcategory order by b.desc_subcategory"
set getSubcategoryByCategory = getRs(sql)
end function
Public function getSubcategoryByCategoryNoZecchino(idCategory)
dim sql
sql = "select a.id_subcategory as id_subcategory, b.desc_subcategory as desc_subcategory, count(distinct(id_main_classification)) as total "
sql = sql&"from testi_tb_main_classification a, testi_dt_subcategory b where "
sql = sql&"a.id_category='"&idCategory&"' and a.id_subcategory<>'57' and a.id_category=b.id_category and a.id_subcategory=b.id_subcategory and exists (select 1 from testi_tb_content c where c.id_content=a.id_content and c.fg_online=0) group by a.id_subcategory, b.desc_subcategory order by b.desc_subcategory"
set getSubcategoryByCategoryNoZecchino = getRs(sql)
end function
Public function getQuerySubcategoryByCategoryNoZecchino(idCategory)
dim sql
sql = "select a.id_subcategory as id_subcategory, b.desc_subcategory as desc_subcategory, count(distinct(id_main_classification)) as total "
sql = sql&"from testi_tb_main_classification a, testi_dt_subcategory b where "
sql = sql&"a.id_category='"&idCategory&"' and a.id_subcategory<>'57' and a.id_category=b.id_category and a.id_subcategory=b.id_subcategory and exists (select 1 from testi_tb_content c where c.id_content=a.id_content and c.fg_online=0) group by a.id_subcategory, b.desc_subcategory order by b.desc_subcategory"
getQuerySubcategoryByCategoryNoZecchino = sql
end function
Public Function getCategoryList()
dim sql
sql = "select * from testi_dt_category order by desc_category_plural"
set getCategoryList = getRs(sql)
end function
Public Function getQueryCategoryList()
dim sql
sql = "select * from testi_dt_category order by desc_category_plural"
getQueryCategoryList = sql
end function
Public Function getSubCategoryList()
dim sql
'sql = "select * from testi_dt_subcategory order by desc_subcategory"
'----------MODIFCA ZECCHINO D'ORO-----------------------
sql = "select * from testi_dt_subcategory where id_subcategory<>'57' order by desc_subcategory"
set getSubCategoryList = getRs(sql)
end function
Public Function getQuerySubCategoryList()
dim sql
'sql = "select * from testi_dt_subcategory order by desc_subcategory"
'----------MODIFCA ZECCHINO D'ORO-----------------------
sql = "select * from testi_dt_subcategory where id_subcategory<>'57' order by desc_subcategory"
getQuerySubCategoryList = sql
end function
Public Function getSubCategoryListAdmin()
dim sql
sql = "select * from testi_dt_subcategory order by desc_subcategory"
set getSubCategoryListAdmin = getRs(sql)
end function
Public Function getOccasionList()
dim sql
sql = "select * from testi_dt_occasion order by desc_occasion"
set getOccasionList = getRs(sql)
end function
Public Function getQueryOccasionList()
dim sql
sql = "select * from testi_dt_occasion order by desc_occasion"
getQueryOccasionList = sql
end function
Public Function hasMusic(idContent)
dim sql, clsRs
sql = "select 1 from testi_tb_multimedia where id_content='"&idContent&"' and id_multimedia_type in (1,2,3,5)"
set clsRs = getRs(sql)
if not clsRs.eof then
hasMusic="true"
else
hasMusic="false"
end if
clsRs.close()
set clsRs = nothing
end function
Public Function queryHasMusic(idContent)
dim sql
sql = "select 1 from testi_tb_multimedia where id_content='"&idContent&"' and id_multimedia_type in (1,2,3,5)"
queryHasMusic=sql
end function
Public function getContentImage(idContent)
dim sql
sql = "select * from testi_tb_multimedia where id_content='"&idContent&"' and id_multimedia_type=4 order by update_date desc"
set getContentImage = getRS(sql)
end function
Public function getVersions(idContent)
dim sql
sql = "select a.id_version, a.id_content_2 as id_content_2, b.id_language as id_language from testi_tb_content b, testi_tb_version a where "
sql = sql&"a.id_content_1='"&idContent&"' and a.id_content_2=b.id_content union "
sql = sql&"select a.id_version, a.id_content_2 as id_content_2, b.id_language as id_language "
sql = sql&"from testi_tb_content b, testi_tb_version a where "
sql = sql&"a.id_content_2='"&idContent&"' and a.id_content_2=b.id_content having min(id_version) order by id_content_2"
set getVersions = getRs(sql)
end function
Public function getContentMainClassificationList(idContent)
dim sql
sql = "select a.id_main_classification as id_main_classification, a.id_category as id_category, a.id_subcategory as id_subcategory, "
sql = sql&"b.desc_category_single as desc_category_single, c.desc_subcategory as desc_subcategory "
sql=sql&"from testi_tb_main_classification a, testi_dt_category b, testi_dt_subcategory c "
sql=sql&"where a.id_content='"&idContent&"' "
sql=sql&"and a.id_category=b.id_category "
sql=sql&"and a.id_subcategory=c.id_subcategory"
set getContentMainClassificationList=getRs(sql)
end function
Public sub addContentMainClassification(idContent, idCategory, idSubcategory)
dim sql
sql = "insert into testi_tb_main_classification (id_content, id_category, id_subcategory) values ('"&cLng(idContent)&"','"&cInt(idCategory)&"','"&cInt(idSubcategory)&"')"
executeQuery(sql)
end sub
Public sub addContentMainOccasion(idContent, idOccasion)
dim sql
sql = "insert into testi_tb_main_occasion (id_content, id_occasion) values ('"&cLng(idContent)&"','"&cInt(idOccasion)&"')"
executeQuery(sql)
end sub
Public sub deleteContentMainClassification(idMainClassification)
dim sql
sql = "delete from testi_tb_main_classification where id_main_classification='"&cInt(idMainClassification)&"'"
executeQuery(sql)
end sub
Public sub deleteContentMainOccasion(idMainOccasion)
dim sql
sql = "delete from testi_tb_main_occasion where id_main_occasion='"&cInt(idMainOccasion)&"'"
executeQuery(sql)
end sub
Public function getContentMainOccasionList(idContent)
dim sql
sql = "select a.id_main_occasion as id_main_occasion, a.id_occasion as id_occasion, "
sql = sql&"b.desc_occasion as desc_occasion "
sql=sql&"from testi_tb_main_occasion a, testi_dt_occasion b "
sql=sql&"where a.id_content='"&idContent&"' "
sql=sql&"and a.id_occasion=b.id_occasion "
set getContentMainOccasionList=getRs(sql)
end function
Public function getContentVersionList(idContent)
dim sql
sql = "SELECT distinct a.id_content_2 as id_content_2, a.id_version as id_version, b.title as title,c.flag_file as flag_file "
sql = sql& "FROM testi_tb_version a, testi_tb_content b, testi_dt_language c "
sql = sql& "where b.fg_online='0' and a.id_content_1='"&idContent&"' and a.id_content_2=b.id_content and b.id_language=c.id_language"
set getContentVersionList = getRs(sql)
end function
Public sub addVersion(id_content_1, id_content_2)
dim sql
sql = "insert into testi_tb_version(id_content_1,id_content_2) values ('"&id_content_1&"','"&id_content_2&"')"
executeQuery(sql)
end sub
Public sub deleteVersion(idContenToDelete)
dim sql
sql = "delete from testi_tb_version where id_content_1='"&idContentToDelete&"' or id_content_2='"&idContentToDelete&"'"
executeQuery(sql)
end sub
public function existsSameTitle(idContent)
dim sql, clsRs
sql = "select 1 from testi_tb_content a where a.id_content='"&cLng(idContent)&"' and exists(select 1 from testi_tb_content b where a.id_content<>b.id_content and a.title=b.title)"
set clsRs=getRs(sql)
if clsRs.eof then
existsSameTitle="false"
else
existsSameTitle="true"
end if
clsRs.close()
set clsRs=nothing
end function
Public function getPiuVotati(idCategory, idSubcategory, posizioni)
dim sql
sql = "select a.id_content, a.vote, a.vote_number, b.title, (a.vote/a.vote_number) as mediaVoto from testi_tb_voti a, testi_tb_content b "
if idCategory<>"" then
sql = sql&",testi_tb_main_classification c "
end if
sql = sql&" where b.fg_online='0' and a.id_content=b.id_content and vote_number>100 "
if idCategory<>"" then
sql = sql&" and c.id_category='"&cInt(idCategory)&"' and c.id_content=a.id_content "
end if
if idSubCategory<>"" then
sql = sql&" and c.id_subcategory='"&cInt(idSubcategory)&"' "
end if
sql = sql& " order by (vote/vote_number) desc, vote_number desc, vote desc limit "&cInt(posizioni)
'response.write(sql)
'response.end
set getPiuVotati=getRs(sql)
end function
Public function getPiuLetti(idCategory, idSubcategory, posizioni)
dim sql
sql = "select a.id_content, a.visits, b.title from testi_tb_voti a, testi_tb_content b "
if idCategory<>"" then
sql = sql&",testi_tb_main_classification c "
end if
sql = sql&" where b.fg_online='0' and a.id_content=b.id_content "
if idCategory<>"" then
sql = sql&" and c.id_category='"&cInt(idCategory)&"' and c.id_content=a.id_content "
end if
if idSubCategory<>"" then
sql = sql&" and c.id_subcategory='"&cInt(idSubcategory)&"' "
end if
sql = sql& " order by a.visits desc limit "&cInt(posizioni)
'response.write(sql)
'response.end
set getPiuLetti=getRs(sql)
end function
'getter e setter methods
Public Function getIdContent()
getIdContent = idContent
End Function
Public Sub setIdContent(n)
idContent = n
End Sub
Public Function getTitle()
getTitle = title
End Function
Public Sub setTitle(n)
title = n
End Sub
Public Function getAuthor()
getAuthor = author
End Function
Public Sub setAuthor(n)
author = n
End Sub
Public Function getAnswer()
getAnswer = answer
End Function
Public Sub setAnswer(n)
answer = n
End Sub
Public Function getTextContent()
getTextContent = textContent
End Function
Public Sub setTextContent(n)
textContent = n
End Sub
Public Function getNotes()
getNotes = notes
End Function
Public Sub setNotes(n)
notes = n
End Sub
Public Function getComments()
getComments = comments
End Function
Public Sub setComments(n)
comments = n
End Sub
Public Function getIdLanguage()
getIdLanguage = idLanguage
End Function
Public Sub setIdLanguage(n)
idLanguage = n
End Sub
Public Function getFgOnline()
getFgOnline = fgOnline
End Function
Public Sub setFgOnline(n)
fgOnline = n
End Sub
Public Function getIdPurpose()
getIdPurpose = idPurpose
End Function
Public Sub setIdPurpose(n)
idPurpose = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrl()
getUrl = url
End Function
Public Sub setUrl(n)
url = n
End Sub
Public Function getDescription()
getDescription = description
End Function
Public Sub setDescription(n)
description = n
End Sub
End class
%>
<%
'-----------------------------------NOMI TABELLE-------------------------------
dim contenutiFoto, categorieContenutiFoto, multimediaFoto, tipiMultimediaFoto, categorieMultimediaFoto
contenutiFoto = "foto_tb_foto"
categorieContenutiFoto = "foto_tb_categorie"
multimediaFoto = "foto_tb_multimedia"
tipiMultimediaFoto = "foto_dt_multimedia_type"
categorieMultimediaFoto = "foto_dt_multimedia_category"
'----------------------------------DIRECTORY---------------------------
dim contentDirFoto, tempMultimediaDirFoto, multimediaDirFoto
contentDirFoto = "foto"
tempMultimediaDirFoto = Application("root")&"multimediaFile/foto/temp/"
multimediaDirFoto = Application("root")&"multimediaFile/foto/multimedia/"
Class Foto
Private idFoto, nome, dataPubblicazione, didascalia, idCategoria, idSottocategoria, idOccasione, note
Private idMultimedia, idMultimediaType, idMultimediaCategory, urlBig, urlSmall, insertDate, updateDate
Public function searchFoto(srcOccasione, srcAnno, srcMese, categoria, sottocategoria, srcNome, srcNote, imgHp )
dim sql
sql = "select * from foto_tb_foto a where 1=1 "
if srcOccasione<>"" then
sql = sql & "and idOccasione='"&srcOccasione&"' "
end if
if srcAnno<>"" then
sql = sql & "and year(dataPubblicazione)='"&srcAnno&"' "
end if
if srcMese<>"" then
sql = sql & "and month(dataPubblicazione)='"&srcMese&"' "
end if
if categoria<>"" and categoria<>"0" then
sql = sql & "and idCategoria='"&categoria&"' "
end if
' response.write(sottocategoria)
' response.end
if sottocategoria<>"" then
sql = sql & "and idSottocategoria='"&sottocategoria&"' "
end if
if srcNome<>"" then
sql= sql& "and match (nome) against ('"&prepareSql(srcNome)&"' IN BOOLEAN MODE) "
end if
if srcNote<>"" then
sql= sql& "and match (note) against ('"&prepareSql(srcNote)&"' IN BOOLEAN MODE) "
end if
if (imgHP="si" or imgHP="no") then
if (imgHP="si") then
sql = sql& " and exists (select 1 from foto_tb_multimedia b where a.idFoto=b.id_foto and id_multimedia_category='3') "
end if
if (imgHP="no") then
sql = sql& " and not exists (select 1 from foto_tb_multimedia b where a.idFoto=b.id_foto and id_multimedia_category='3') "
end if
end if
sql = sql & " order by dataPubblicazione desc"
'response.write(sql)
'response.end
set searchFoto = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from "&contenutiFoto&" where idFoto="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdFoto(clsRs("idFoto"))
Call setNome(clsRS("nome"))
Call setDataPubblicazione(clsRS("dataPubblicazione"))
Call setDidascalia(clsRS("didascalia"))
Call setIdCategoria(clsRS("idCategoria"))
Call setIdSottocategoria(clsRS("idSottocategoria"))
Call setIdOccasione(clsRS("idOccasione"))
Call setNote(clsRS("note"))
end if
clsRs.close()
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from "&multimediaFoto&" where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdFoto(clsRs("id_foto"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrlBig(clsRs("url_big"))
Call setUrlSmall(clsRs("url_small"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
clsRs.close()
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into "&contenutiFoto&" (nome, dataPubblicazione, didascalia, idCategoria, idSottocategoria, idOccasione, note) values ("
sql = sql & "'"&getNome&"', now(),"
sql = sql & "'"&getDidascalia&"',"
sql = sql & "'"&getIdCategoria&"',"
sql = sql & "'"&getIdSottocategoria&"',"
sql = sql & "'"&getIdOccasione&"',"
sql = sql & "'"&getNote&"')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
rs.close()
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
rs.close()
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into "&multimediaFoto&" (insert_date, update_date, id_foto, id_multimedia_type,"
sql = sql & "id_multimedia_category, url_big, url_small, description_ita "
sql = sql & " ) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdFoto&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrlBig&"',"
sql = sql & "'"&getUrlSmall&"','')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
rs.close()
conn.close
set rs = nothing
set conn = nothing
'executeQuery(sql)
End Function
Public Sub updateContent()
dim sql
sql = "update "&contenutiFoto&" set "
sql = sql & "nome = '"&getNome()&"',"
sql = sql & "didascalia = '"&getDidascalia()&"',"
sql = sql & "idCategoria = '"&getIdCategoria()&"',"
sql = sql & "idSottocategoria = '"&getIdSottocategoria()&"',"
sql = sql & "idOccasione = '"&getIdOccasione()&"',"
sql = sql & "note = '"&getNote()&"' "
sql = sql & " where idFoto = '"&cStr(getIdFoto())&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update "&multimediaFoto&" set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url_big = '"&getUrlBig()&"',"
sql = sql & "url_small = '"&getUrlSmall()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContenuti)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContenuti)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
clsRs.close()
set clsRs=nothing
sql = "delete from "&contenutiFoto&" where idFoto='"&cstr(pIdContenuti)&"'"
executeQuery(sql)
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from "&multimediaFoto&" where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDirFoto)&"\"&cInt(pIdMultimedia)&"_"&getUrlBig)
deleteFile(server.mappath(multimediaDirFoto)&"\"&cInt(pIdMultimedia)&"_"&getUrlSmall)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiFoto&" order by dataPubblicazione desc"
set getContentList = getRs(sql)
End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiFoto&" order by dataPubblicazione desc limit "&n
set getContentListNumber = getRs(sql)
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from "&multimediaFoto&" where id_foto='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set getMultimediaListByType = getRs(sql)
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from "&multimediaFoto&" where id_foto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set getMultimediaListByTypeNumber = getRs(sql)
End Function
Public Function getMultimediaListByTypeCategoryNumber(pIdContent, pType, pCategory, pN)
Dim sql, clsRs
sql = "select * from "&multimediaFoto&" where id_foto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' and id_multimedia_category='"&pCategory&"' order by update_date desc limit "&pN
set getMultimediaListByTypeCategoryNumber = getRs(sql)
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimediaFoto&" where id_foto='"&pIdContent&"' order by update_date desc"
set getMultimediaList = getRs(sql)
End Function
Public function getCategorieList()
dim sql
sql = "select idCategoria,descCategoria from foto_tb_categorie order by descCategoria"
set getCategorieList = getRs(sql)
end function
Public function getSottocategorieList()
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from foto_tb_sottocategorie order by idSottocategoria"
set getSottocategorieList = getRs(sql)
end function
Public function getOccasioniList()
dim sql
sql = "select idOccasione, descOccasione from foto_tb_occasione order by descOccasione"
set getOccasioniList = getRs(sql)
end function
Public Function getDescCategoria(idCategoria)
dim sql, clsRs
sql = "select descCategoria from foto_tb_categorie where idCategoria='"&cInt(idCategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescCategoria = clsRs("descCategoria")
else
getDescCategoria = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescSottocategoria(idSottocategoria)
dim sql, clsRs
sql = "select descSottocategoria from foto_tb_sottocategorie where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSottocategoria = clsRs("descSottocategoria")
else
getDescSottocategoria = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescOccasione(idOccasione)
dim sql, clsRs
sql = "select descOccasione from foto_tb_occasione where idOccasione='"&cInt(idOccasione)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescOccasione = clsRs("descOccasione")
else
getDescOccasione = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Private Function getIdFotoByType(tipo)
dim sql, clsRs
spostamento = 0
if (tipo="penultimo") then spostamento = 1
if (tipo="terzultimo") then spostamento = 2
if (tipo="quartultimo") then spostamento = 3
if (tipo="quintultimo") then spostamento = 4
if (tipo="sestultimo") then spostamento = 5
sql = "select * from foto_tb_foto order by dataPubblicazione desc"
set clsRs = getRs(sql)
if clsRs.recordcount > spostamento then
for i=1 to spostamento
clsRs.movenext
next
if not(clsRs.eof or clsRs.bof) then
getIdFotoByType = clsRs("idFoto")
else
getIdFotoByType = 0
end if
else
getIdFotoByType = 0
end if
clsRs.close()
set clsRs = nothing
End Function
Public Sub getFoto(tipo)
if ((tipo<>"ultimo")and(tipo<>"penultimo")and(tipo<>"terzultimo")and(tipo<>"quartultimo")and(tipo<>"quintultimo")and(tipo<>"sestultimo")and(tipo<>"")) then
idFoto = cInt(tipo)
getContent idFoto
else
getContent getIdFotoByType(tipo)
end if
End Sub
Public Function getFotoHP()
dim sql
sql = "select c.* from foto_tb_foto a, foto_tb_multimedia c where a.idFoto=c.id_foto and exists (select 1 from foto_tb_multimedia b where a.idFoto=b.id_foto and id_multimedia_category='3' ) order by dataPubblicazione desc"
set getFotoHP=getRs(sql)
End Function
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from "&categorieMultimediaFoto&" order by id_multimedia_category"
set getMultimediaCategoryList = getRs(sql)
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from "&categorieMultimediaFoto&" where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
clsRs.close()
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from "&tipiMultimediaFoto&" order by id_multimedia_type"
set getMultimediaTypeList = getRs(sql)
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from "&tipiMultimediaFoto&" where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
clsRs.close()
set clsRs = nothing
end function
Public function getThumbnailByIdFoto(idFoto)
dim sql
sql = "select * from foto_tb_multimedia where id_foto='"&cInt(idFoto)&"' and id_multimedia_category='2' "
set getThumbnailByIdFoto=getRs(sql)
end function
Public function hasHpPhoto(idFoto)
dim sql, clsRs
sql = "select * from foto_tb_foto a where a.idFoto='"&cInt(idFoto)&"' and exists (select 1 from foto_tb_multimedia b where a.idFoto=b.id_foto and b.id_multimedia_category='3' )"
set clsRs = getRs(sql)
if not clsRs.eof then
hasHpPhoto="true"
else
hasHpPhoto="false"
end if
clsRs.close()
set clsRs = nothing
end function
Public function getBigPhotoList(idFoto)
dim sql
sql = "select b.* from foto_tb_foto a, foto_tb_multimedia b where a.idFoto='"&cInt(idFoto)&"' and a.idFoto=b.id_foto and b.id_multimedia_category='1'"
set getBigPhotoList = getRs(sql)
end function
'getter e setter methods
Public Function getIdFoto()
getIdFoto = idFoto
End Function
Public Sub setIdFoto(n)
idFoto = n
End Sub
Public Function getNome()
getNome = nome
End Function
Public Sub setNome(n)
nome = n
End Sub
Public Function getDataPubblicazione()
getDataPubblicazione = dataPubblicazione
End Function
Public Sub setDataPubblicazione(n)
dataPubblicazione = n
End Sub
Public Function getDidascalia()
getDidascalia = didascalia
End Function
Public Sub setDidascalia(n)
didascalia = n
End Sub
Public Function getIdCategoria()
getIdCategoria = idCategoria
End Function
Public Sub setIdCategoria(n)
idCategoria = n
End Sub
Public Function getIdSottocategoria()
getIdSottocategoria = idSottocategoria
End Function
Public Sub setIdSottocategoria(n)
idSottocategoria = n
End Sub
Public Function getIdOccasione()
getIdOccasione = idOccasione
End Function
Public Sub setIdOccasione(n)
idOccasione = n
End Sub
Public Function getNote()
getNote = note
End Function
Public Sub setNote(n)
note = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrlBig()
getUrlBig = urlBig
End Function
Public Sub setUrlBig(n)
urlBig = n
End Sub
Public Function getUrlSmall()
getUrlSmall = urlSmall
End Function
Public Sub setUrlSmall(n)
urlSmall = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
End class
%>
<%
'-----------------------------------NOMI TABELLE-------------------------------
dim contenutiProd, categorieContenutiProd, multimediaProd, tipiMultimediaProd, categorieMultimediaProd
contenutiprod = "prod_tb_prodotti"
categorieContenutiprod = "prod_tb_categorie"
multimediaprod = "prod_tb_multimedia"
tipiMultimediaprod = "prod_dt_multimedia_type"
categorieMultimediaprod = "prod_dt_multimedia_category"
'----------------------------------DIRECTORY---------------------------
dim contentDirprod, tempMultimediaDirprod, multimediaDirprod
contentDirprod = "prodotti"
tempMultimediaDirprod = Application("root")&"multimediaFile/prodotti/temp/"
multimediaDirprod = Application("root")&"multimediaFile/prodotti/multimedia/"
Class Prodotti
Private idProdotto, titolo, autore, linkAutore, illustratore, collana, editore, annoPubblicazione, codice, prezzo
Private idCategoria, idSottocategoria, idFasciaEta, idOccasione, abstract, recensione, aggettivo, valutazioneGlobale
Private idAutoreRecensione, linkProfiloAutoreRecensione, linkAcquisto, note, insertDate, updateDate, noteAcquisto
Private linkIllustratore, linkCasaEditrice
Private idMultimedia, idMultimediaType, idMultimediaCategory, urlBig, urlSmall
Public function searchProdotti(srcCategoria, srcSottocategoria, srcFasciaEta, srcOccasione, srcAutoreRecensione, srcNovita, srcTitolo, srcAutore, srcIllustratore, srcCollana, srcEditore, srcAnnoPubblicazione, iniziale, srcAbstract, srcRecensione, srcAggettivo, srcValutazione)
dim sql
sql = "select * from prod_tb_prodotti a where 1=1 "
if srcCategoria<>"" and srcCategoria<>"0" then
sql = sql & "and idCategoria='"&srcCategoria&"' "
end if
if srcSottocategoria<>"" and srcSottocategoria<>"0" then
sql = sql & "and idSottocategoria='"&srcSottocategoria&"' "
end if
if srcFasciaEta<>"" then
sql = sql & "and idFasciaEta='"&srcFasciaEta&"' "
end if
if srcOccasione<>"" then
sql = sql & "and idOccasione='"&srcOccasione&"' "
end if
if srcAutoreRecensione<>"" then
sql = sql & "and idAutoreRecensione='"&srcAutoreRecensione&"' "
end if
if srcValutazione<>"" then
sql = sql & "and valutazioneGlobale='"&srcValutazione&"' "
end if
if srcNovita<>"" then
if srcNovita="si" then
sql = sql&"and a.insertDate>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insertDate<=date_sub(now(),interval 15 day) "
end if
end if
if srcAnnoPubblicazione<>"" then
sql = sql & "and annoPubblicazione='"&prepareSql(srcAnnoPubblicazione)&"' "
end if
if srcTitolo<>"" then
sql= sql& "and match (titolo) against ('"&prepareSql(srcTitolo)&"' IN BOOLEAN MODE) "
end if
if srcAutore<>"" then
sql= sql& "and match (autore) against ('"&prepareSql(srcAutore)&"' IN BOOLEAN MODE) "
end if
if srcIllustratore<>"" then
sql= sql& "and match (illustratore) against ('"&prepareSql(srcIllustratore)&"' IN BOOLEAN MODE) "
end if
if srcCollana<>"" then
sql= sql& "and match (collana) against ('"&prepareSql(srcCollana)&"' IN BOOLEAN MODE) "
end if
if srcEditore<>"" then
sql= sql& "and match (editore) against ('"&prepareSql(srcEditore)&"' IN BOOLEAN MODE) "
end if
if iniziale<>"" then
sql = sql&"and titolo like '"&iniziale&"%' "
end if
if srcAbstract<>"" then
sql= sql& "and match (abstract) against ('"&prepareSql(srcAbstract)&"' IN BOOLEAN MODE) "
end if
if srcRecensione<>"" then
sql= sql& "and match (recensione) against ('"&prepareSql(srcRecensione)&"' IN BOOLEAN MODE) "
end if
if srcAggettivo<>"" then
sql= sql& "and match (aggettivo) against ('"&prepareSql(srcAggettivo)&"' IN BOOLEAN MODE) "
end if
sql = sql & " order by titolo"
'response.write(sql)
'response.end
set searchProdotti = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from "&contenutiprod&" where idProdotto="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdProdotto(clsRs("idProdotto"))
Call setTitolo(clsRS("titolo"))
Call setAutore(clsRS("autore"))
Call setLinkAutore(clsRS("linkAutore"))
Call setIllustratore(clsRS("illustratore"))
Call setCollana(clsRS("collana"))
Call setEditore(clsRS("editore"))
Call setAnnoPubblicazione(clsRS("annoPubblicazione"))
Call setCodice(clsRS("codice"))
Call setPrezzo(clsRS("prezzo"))
Call setIdCategoria(clsRS("idCategoria"))
Call setIdSottocategoria(clsRS("idSottocategoria"))
Call setIdFasciaEta(clsRS("idFasciaEta"))
Call setIdOccasione(clsRS("idOccasione"))
Call setAbstract(clsRS("abstract"))
Call setRecensione(clsRS("recensione"))
Call setAggettivo(clsRS("aggettivo"))
Call setValutazioneGlobale(clsRS("valutazioneGlobale"))
Call setIdAutoreRecensione(clsRS("idAutoreRecensione"))
Call setLinkProfiloAutoreRecensione(clsRS("linkProfiloAutoreRecensione"))
Call setLinkAcquisto(clsRS("linkAcquisto"))
Call setNote(clsRS("note"))
Call setInsertDate(clsRS("insertDate"))
Call setUpdateDate(clsRS("updateDate"))
Call setNoteAcquisto(clsRS("noteAcquisto"))
Call setLinkIllustratore(clsRS("linkIllustratore"))
Call setLinkCasaEditrice(clsRS("linkCasaEditrice"))
end if
clsRs.close()
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from "&multimediaprod&" where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdProdotto(clsRs("id_prodotto"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrlBig(clsRs("url_big"))
Call setUrlSmall(clsRs("url_small"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
clsRs.close()
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into "&contenutiprod&" (titolo, autore, linkAutore, illustratore, collana, editore, annoPubblicazione, codice, prezzo, "
sql = sql&"idCategoria, idSottoCategoria, idFasciaEta, idOccasione, abstract, recensione, aggettivo, valutazioneGlobale, idAutoreRecensione, "
sql = sql&"linkProfiloAutoreRecensione, linkAcquisto, note, insertDate, updateDate, noteAcquisto, linkIllustratore, linkCasaEditrice) values ("
sql = sql & "'"&getTitolo&"', "
sql = sql & "'"&getAutore&"', "
sql = sql & "'"&getLinkAutore&"', "
sql = sql & "'"&getIllustratore&"', "
sql = sql & "'"&getCollana&"', "
sql = sql & "'"&getEditore&"', "
sql = sql & "'"&getAnnoPubblicazione&"', "
sql = sql & "'"&getCodice&"', "
sql = sql & "'"&getPrezzo&"', "
sql = sql & "'"&getIdCategoria&"', "
sql = sql & "'"&getIdSottocategoria&"', "
sql = sql & "'"&getIdFasciaEta&"', "
sql = sql & "'"&getIdOccasione&"', "
sql = sql & "'"&getAbstract&"', "
sql = sql & "'"&getRecensione&"', "
sql = sql & "'"&getAggettivo&"', "
sql = sql & "'"&getValutazioneGlobale&"', "
sql = sql & "'"&getIdAutoreRecensione&"', "
sql = sql & "'"&getLinkProfiloAutoreRecensione&"', "
sql = sql & "'"&getLinkAcquisto&"', "
sql = sql & "'"&getNote&"', "
sql = sql & "now(), now(), "
sql = sql & "'"&getNoteAcquisto&"', "
sql = sql & "'"&getLinkIllustratore&"', "
sql = sql & "'"&getLinkCasaEditrice&"')"
' response.write(sql)
' response.end
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
rs.close()
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
rs.close()
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into "&multimediaprod&" (insert_date, update_date, id_prodotto, id_multimedia_type,"
sql = sql & "id_multimedia_category, url_big, url_small, description_ita "
sql = sql & " ) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdProdotto&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrlBig&"',"
sql = sql & "'"&getUrlSmall&"','')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
rs.close()
conn.close
set rs = nothing
set conn = nothing
End Function
Public Sub updateContent()
dim sql
sql = "update "&contenutiprod&" set "
sql = sql & "titolo = '"&getTitolo()&"',"
sql = sql & "autore = '"&getAutore()&"',"
sql = sql & "linkAutore = '"&getLinkAutore()&"',"
sql = sql & "illustratore = '"&getIllustratore()&"',"
sql = sql & "collana = '"&getCollana()&"',"
sql = sql & "editore = '"&getEditore()&"',"
sql = sql & "annoPubblicazione = '"&getAnnoPubblicazione()&"',"
sql = sql & "codice = '"&getCodice()&"',"
sql = sql & "prezzo = '"&getPrezzo()&"',"
sql = sql & "idCategoria = '"&getIdCategoria()&"',"
sql = sql & "idSottocategoria = '"&getIdSottocategoria()&"',"
sql = sql & "idFasciaEta = '"&getIdFasciaEta()&"',"
sql = sql & "idOccasione = '"&getIdOccasione()&"',"
sql = sql & "abstract = '"&getAbstract()&"',"
sql = sql & "recensione = '"&getRecensione()&"',"
sql = sql & "aggettivo = '"&getAggettivo()&"',"
sql = sql & "valutazioneGlobale = '"&getValutazioneGlobale()&"',"
sql = sql & "idAutoreRecensione = '"&getIdAutoreRecensione()&"',"
sql = sql & "linkProfiloAutoreRecensione = '"&getLinkProfiloAutoreRecensione()&"',"
sql = sql & "linkAcquisto = '"&getLinkAcquisto()&"',"
sql = sql & "note = '"&getNote()&"',"
sql = sql & "updateDate = now(),"
sql = sql & "noteAcquisto = '"&getNoteAcquisto()&"',"
sql = sql & "linkIllustratore = '"&getLinkIllustratore()&"', "
sql = sql & "linkCasaEditrice = '"&getLinkCasaEditrice()&"' "
sql = sql & " where idProdotto = '"&cStr(getIdProdotto())&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update "&multimediaprod&" set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url_big = '"&getUrlBig()&"',"
sql = sql & "url_small = '"&getUrlSmall()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContenuti)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContenuti)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
clsRs.close()
set clsRs = nothing
sql = "delete from "&contenutiprod&" where idProdotto='"&cstr(pIdContenuti)&"'"
executeQuery(sql)
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from "&multimediaprod&" where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDirprod)&"\"&cInt(pIdMultimedia)&"_"&getUrlBig)
deleteFile(server.mappath(multimediaDirprod)&"\"&cInt(pIdMultimedia)&"_"&getUrlSmall)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiprod&" order by insertDate desc"
set getContentList = getRs(sql)
End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiprod&" order by insertDate desc limit "&n
set getContentListNumber = getRs(sql)
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from "&multimediaprod&" where id_prodotto='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set getMultimediaListByType = getRs(sql)
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from "&multimediaprod&" where id_prodotto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set getMultimediaListByTypeNumber = getRs(sql)
End Function
Public Function getMultimediaListByTypeCategoryNumber(pIdContent,pType, pCategory, pN)
Dim sql, clsRs
sql = "select * from "&multimediaprod&" where id_prodotto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' and id_multimedia_category='"&pCategory&"' order by update_date desc limit "&pN
set getMultimediaListByTypeCategoryNumber = getRs(sql)
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimediaprod&" where id_prodotto='"&pIdContent&"' order by update_date desc"
set getMultimediaList = getRs(sql)
End Function
Public function getCategorieList()
dim sql
sql = "select idCategoria,descCategoria from prod_tb_categorie order by descCategoria"
set getCategorieList = getRs(sql)
end function
Public function getSottocategorieList()
dim sql
'sql = "select idSottocategoria,descSottocategoria,idCategoria from prod_tb_sottocategorie order by idSottocategoria"
sql = "select idSottocategoria,descSottocategoria,idCategoria from prod_tb_sottocategorie order by descSottocategoria"
set getSottocategorieList = getRs(sql)
end function
Public function getSottocategorieListByCategoria(categoria)
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from prod_tb_sottocategorie where idCategoria='"&cInt(categoria)&"' order by descSottocategoria"
set getSottocategorieListByCategoria = getRs(sql)
end function
public function getProdottiNumberBySottocategoria(idSottocategoria)
dim sql,clsRs
sql = "select count(1) as tot from prod_tb_prodotti where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
getProdottiNumberBySottocategoria = clsRs("tot")
clsRs.close()
set clsRs = nothing
end function
Public function getOccasioniList()
dim sql
sql = "select idOccasione, descOccasione from prod_tb_occasione order by descOccasione"
set getOccasioniList = getRs(sql)
end function
Public function getAutoriRecensioniList()
dim sql
sql = "select idAutoreRecensione,descAutoreRecensione from prod_tb_autori_recensioni order by descAutoreRecensione"
set getAutoriRecensioniList = getRs(sql)
end function
Public function getFasceEtaList()
dim sql
sql = "select idFasciaEta,descFasciaEta from prod_tb_fasce_eta order by idFasciaEta"
set getFasceEtaList = getRs(sql)
end function
Public Function getDescCategoria(idCategoria)
dim sql, clsRs
sql = "select descCategoria from prod_tb_categorie where idCategoria='"&cInt(idCategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescCategoria = clsRs("descCategoria")
else
getDescCategoria = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescSottocategoria(idSottocategoria)
dim sql, clsRs
sql = "select descSottocategoria from prod_tb_sottocategorie where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSottocategoria = clsRs("descSottocategoria")
else
getDescSottocategoria = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescOccasione(idOccasione)
dim sql, clsRs
sql = "select descOccasione from prod_tb_occasione where idOccasione='"&cInt(idOccasione)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescOccasione = clsRs("descOccasione")
else
getDescOccasione = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescAutoreRecensione(idAutoreRecensione)
dim sql, clsRs
sql = "select descAutoreRecensione from prod_tb_autori_recensioni where idAutoreRecensione='"&cInt(idAutoreRecensione)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescAutoreRecensione = clsRs("descAutoreRecensione")
else
getDescAutoreRecensione = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Public Function getDescFasciaEta(idFasciaEta)
dim sql, clsRs
sql = "select descFasciaEta from prod_tb_fasce_eta where idFasciaEta='"&cInt(idFasciaEta)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescFasciaEta = clsRs("descFasciaEta")
else
getDescFasciaEta = ""
end if
clsRs.close()
set clsRs = nothing
End Function
Private Function getIdProdottoByType(tipo)
dim sql, clsRs
spostamento = 0
if (tipo="ultimo") then spostamento = 0
if (tipo="penultimo") then spostamento = 1
if (tipo="terzultimo") then spostamento = 2
if (tipo="quartultimo") then spostamento = 3
if (tipo="quintultimo") then spostamento = 4
if (tipo="sestultimo") then spostamento = 5
sql = "select * from prod_tb_prodotti order by insertDate desc"
set clsRs = getRs(sql)
if clsRs.recordcount > spostamento then
for i=1 to spostamento
clsRs.movenext
next
if not(clsRs.eof or clsRs.bof) then
getIdProdottoByType = clsRs("idProdotto")
else
getIdProdottoByType = 0
end if
else
getIdProdottoByType = 0
end if
clsRs.close()
set clsRs = nothing
End Function
Public Sub getProdotto(tipo)
if ((tipo<>"ultimo")and(tipo<>"penultimo")and(tipo<>"terzultimo")and(tipo<>"quartultimo")and(tipo<>"quintultimo")and(tipo<>"sestultimo")and(tipo<>"")) then
idProdotto = cInt(tipo)
getContent idProdotto
else
getContent getIdProdottoByType(tipo)
end if
End Sub
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from "&categorieMultimediaProd&" order by id_multimedia_category"
set getMultimediaCategoryList = getRs(sql)
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from "&categorieMultimediaProd&" where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
clsRs.close()
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from "&tipiMultimediaProd&" order by id_multimedia_type"
set getMultimediaTypeList = getRs(sql)
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from "&tipiMultimediaProd&" where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
clsRs.close()
set clsRs = nothing
end function
Public function getThumbnailByIdProdotto(idProdotto)
dim sql
sql = "select * from prod_tb_multimedia where id_prodotto='"&cInt(idProdotto)&"' and id_multimedia_category='2' "
set getThumbnailByIdProdotto=getRs(sql)
end function
'getter e setter methods
Public Function getIdProdotto()
getIdProdotto = idProdotto
End Function
Public Sub setIdProdotto(n)
idProdotto = n
End Sub
Public Function getTitolo()
getTitolo = titolo
End Function
Public Sub setTitolo(n)
titolo = n
End Sub
Public Function getAutore()
getAutore = autore
End Function
Public Sub setAutore(n)
autore = n
End Sub
Public Function getLinkAutore()
getLinkAutore = linkAutore
End Function
Public Sub setLinkAutore(n)
linkAutore = n
End Sub
Public Function getIllustratore()
getIllustratore = illustratore
End Function
Public Sub setIllustratore(n)
illustratore = n
End Sub
Public Function getCollana()
getCollana = collana
End Function
Public Sub setCollana(n)
collana = n
End Sub
Public Function getEditore()
getEditore = editore
End Function
Public Sub setEditore(n)
editore = n
End Sub
Public Function getAnnoPubblicazione()
getAnnoPubblicazione = annoPubblicazione
End Function
Public Sub setAnnoPubblicazione(n)
annoPubblicazione = n
End Sub
Public Function getCodice()
getCodice = codice
End Function
Public Sub setCodice(n)
codice = n
End Sub
Public Function getPrezzo()
getPrezzo = prezzo
End Function
Public Sub setPrezzo(n)
prezzo = n
End Sub
Public Function getIdCategoria()
getIdCategoria = idCategoria
End Function
Public Sub setIdCategoria(n)
idCategoria = n
End Sub
Public Function getIdSottocategoria()
getIdSottocategoria = idSottocategoria
End Function
Public Sub setIdSottocategoria(n)
idSottocategoria = n
End Sub
Public Function getIdFasciaEta()
getIdFasciaEta = idFasciaEta
End Function
Public Sub setIdFasciaEta(n)
idFasciaEta = n
End Sub
Public Function getIdOccasione()
getIdOccasione = idOccasione
End Function
Public Sub setIdOccasione(n)
idOccasione = n
End Sub
Public Function getAbstract()
getAbstract = abstract
End Function
Public Sub setAbstract(n)
abstract = n
End Sub
Public Function getRecensione()
getRecensione = recensione
End Function
Public Sub setRecensione(n)
recensione = n
End Sub
Public Function getAggettivo()
getAggettivo = aggettivo
End Function
Public Sub setAggettivo(n)
aggettivo = n
End Sub
Public Function getValutazioneGlobale()
getValutazioneGlobale = valutazioneGlobale
End Function
Public Sub setValutazioneGlobale(n)
valutazioneGlobale = n
End Sub
Public Function getIdAutoreRecensione()
getIdAutoreRecensione = idAutoreRecensione
End Function
Public Sub setIdAutoreRecensione(n)
idAutoreRecensione = n
End Sub
Public Function getLinkProfiloAutoreRecensione()
getLinkProfiloAutoreRecensione = linkProfiloAutoreRecensione
End Function
Public Sub setLinkProfiloAutoreRecensione(n)
linkProfiloAutoreRecensione = n
End Sub
Public Function getLinkAcquisto()
getLinkAcquisto = linkAcquisto
End Function
Public Sub setLinkAcquisto(n)
linkAcquisto = n
End Sub
Public Function getNote()
getNote = note
End Function
Public Sub setNote(n)
note = n
End Sub
Public Function getNoteAcquisto()
getNoteAcquisto = noteAcquisto
End Function
Public Sub setNoteAcquisto(n)
noteAcquisto = n
End Sub
Public Function getLinkIllustratore()
getLinkIllustratore = linkIllustratore
End Function
Public Sub setLinkIllustratore(n)
linkIllustratore = n
End Sub
Public Function getLinkCasaEditrice()
getLinkCasaEditrice = linkCasaEditrice
End Function
Public Sub setLinkCasaEditrice(n)
linkCasaEditrice = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrlBig()
getUrlBig = urlBig
End Function
Public Sub setUrlBig(n)
urlBig = n
End Sub
Public Function getUrlSmall()
getUrlSmall = urlSmall
End Function
Public Sub setUrlSmall(n)
urlSmall = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
End class
%>
<%
'-----------------------------------NOMI TABELLE-------------------------------
dim contenutiAut, categoriecontenutiAut, multimediaaut, tipiMultimediaaut, categorieMultimediaaut
contenutiAut = "aut_tb_autori"
categoriecontenutiAut = "aut_tb_categorie"
multimediaaut = "aut_tb_multimedia"
tipiMultimediaaut = "aut_dt_multimedia_type"
categorieMultimediaaut = "aut_dt_multimedia_category"
'----------------------------------DIRECTORY---------------------------
dim contentDiraut, tempMultimediaDiraut, multimediaDiraut
contentDiraut = "autori"
tempMultimediaDiraut = Application("root")&"multimediaFile/autori/temp/"
multimediaDiraut = Application("root")&"multimediaFile/autori/multimedia/"
Class Autori
Private idAutore, nome, cognome, idNazionalita, idCategoria, idSottocategoria, strillo, biografia, pubblicazioni, contenuti1
Private contenuti2, sitoPersonale, note, insertDate, updateDate, linkImgGrande, emailAutore, contenuti3, contenuti4, contenuti5
Private descContenuti1,descContenuti2,descContenuti3,descContenuti4,descContenuti5
Private idMultimedia, idMultimediaType, idMultimediaCategory, urlBig, urlSmall
Public function searchAutori(srcCategoria, srcSottocategoria, srcNazionalita, srcNovita, srcCognome, iniziale)
dim sql
sql = "select * from aut_tb_autori a where 1=1 "
if srcCategoria<>"" and srcCategoria<>"0" then
sql = sql & "and idCategoria='"&srcCategoria&"' "
end if
if srcSottocategoria<>"" and srcSottocategoria<>"0" then
sql = sql & "and idSottocategoria='"&srcSottocategoria&"' "
end if
if srcNazionalita<>"" then
sql = sql & "and idNazionalita='"&srcNazionalita&"' "
end if
if iniziale<>"" then
sql = sql&"and cognome like '"&iniziale&"%' "
end if
if srcNovita<>"" then
if srcNovita="si" then
sql = sql&"and a.insertDate>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insertDate<=date_sub(now(),interval 15 day) "
end if
end if
if srcCognome<>"" then
sql= sql& "and match (cognome) against ('"&prepareSql(srcCognome)&"' IN BOOLEAN MODE) "
end if
sql = sql & " order by cognome"
'response.write(sql)
'response.end
set searchAutori = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from "&contenutiAut&" where idAutore="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdAutore(clsRs("idAutore"))
Call setNome(clsRS("nome"))
Call setCognome(clsRS("cognome"))
Call setIdNazionalita(clsRS("idNazionalita"))
Call setStrillo(clsRS("strillo"))
Call setBiografia(clsRS("biografia"))
Call setPubblicazioni(clsRS("pubblicazioni"))
Call setContenuti1(clsRS("contenuti1"))
Call setContenuti2(clsRS("contenuti2"))
Call setSitoPersonale(clsRS("sitoPersonale"))
Call setNote(clsRS("note"))
Call setLinkImgGrande(clsRS("linkImgGrande"))
Call setEmailAutore(clsRS("emailAutore"))
Call setContenuti3(clsRS("contenuti3"))
Call setContenuti4(clsRS("contenuti4"))
Call setContenuti5(clsRS("contenuti5"))
Call setDescContenuti1(clsRS("descContenuti1"))
Call setDescContenuti2(clsRS("descContenuti2"))
Call setDescContenuti3(clsRS("descContenuti3"))
Call setDescContenuti4(clsRS("descContenuti4"))
Call setDescContenuti5(clsRS("descContenuti5"))
Call setIdCategoria(clsRS("idCategoria"))
Call setIdSottocategoria(clsRS("idSottocategoria"))
Call setInsertDate(clsRS("insertDate"))
Call setUpdateDate(clsRS("updateDate"))
end if
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from "&multimediaaut&" where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdAutore(clsRs("id_autore"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrlBig(clsRs("url_big"))
Call setUrlSmall(clsRs("url_small"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into "&contenutiAut&" (nome, cognome, idNazionalita, idCategoria, idSottocategoria, strillo, biografia, pubblicazioni, "
sql = sql&"contenuti1, contenuti2, sitoPersonale, note, insertDate, updateDate, linkImgGrande, emailAutore, contenuti3, contenuti4, "
sql = sql&"contenuti5, descContenuti1, descContenuti2, descContenuti3, descContenuti4, descContenuti5) values ("
sql = sql & "'"&getNome&"', "
sql = sql & "'"&getCognome&"', "
sql = sql & "'"&getIdNazionalita&"', "
sql = sql & "'"&getIdCategoria&"', "
sql = sql & "'"&getIdSottocategoria&"', "
sql = sql & "'"&getStrillo&"', "
sql = sql & "'"&getBiografia&"', "
sql = sql & "'"&getPubblicazioni&"', "
sql = sql & "'"&getContenuti1&"', "
sql = sql & "'"&getContenuti2&"', "
sql = sql & "'"&getSitoPersonale&"', "
sql = sql & "'"&getNote&"', "
sql = sql & "now(),now(), "
sql = sql & "'"&getLinkImgGrande&"', "
sql = sql & "'"&getEmailAutore&"', "
sql = sql & "'"&getContenuti3&"', "
sql = sql & "'"&getContenuti4&"', "
sql = sql & "'"&getContenuti5&"', "
sql = sql & "'"&getDescContenuti1&"', "
sql = sql & "'"&getDescContenuti2&"', "
sql = sql & "'"&getDescContenuti3&"', "
sql = sql & "'"&getDescContenuti4&"', "
sql = sql & "'"&getDescContenuti5&"') "
' response.write(sql)
' response.end
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into "&multimediaaut&" (insert_date, update_date, id_autore, id_multimedia_type,"
sql = sql & "id_multimedia_category, url_big, url_small, description_ita "
sql = sql & " ) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdAutore&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrlBig&"',"
sql = sql & "'"&getUrlSmall&"','')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
conn.close
set rs = nothing
set conn = nothing
End Function
Public Sub updateContent()
dim sql
sql = "update "&contenutiAut&" set "
sql = sql & "nome = '"&getNome()&"',"
sql = sql & "cognome = '"&getCognome()&"',"
sql = sql & "idNazionalita = '"&getIdNazionalita()&"',"
sql = sql & "idCategoria = '"&getIdCategoria()&"',"
sql = sql & "idSottocategoria = '"&getIdSottocategoria()&"',"
sql = sql & "strillo = '"&getStrillo()&"',"
sql = sql & "biografia = '"&getBiografia()&"',"
sql = sql & "pubblicazioni = '"&getPubblicazioni()&"',"
sql = sql & "contenuti1 = '"&getContenuti1()&"',"
sql = sql & "contenuti2 = '"&getContenuti2()&"',"
sql = sql & "sitoPersonale = '"&getSitoPersonale()&"',"
sql = sql & "note = '"&getNote()&"',"
sql = sql & "updateDate = now(),"
sql = sql & "linkImgGrande = '"&getLinkImgGrande()&"',"
sql = sql & "emailAutore = '"&getEmailAutore()&"',"
sql = sql & "contenuti3 = '"&getContenuti3()&"',"
sql = sql & "contenuti4 = '"&getContenuti4()&"',"
sql = sql & "contenuti5 = '"&getContenuti5()&"',"
sql = sql & "descContenuti1 = '"&getDescContenuti1()&"',"
sql = sql & "descContenuti2= '"&getDescContenuti2()&"',"
sql = sql & "descContenuti3 = '"&getDescContenuti3()&"',"
sql = sql & "descContenuti4 = '"&getDescContenuti4()&"',"
sql = sql & "descContenuti5 = '"&getDescContenuti5()&"' "
sql = sql & " where idAutore = '"&cStr(getIdAutore())&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update "&multimediaaut&" set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url_big = '"&getUrlBig()&"',"
sql = sql & "url_small = '"&getUrlSmall()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContenuti)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContenuti)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
sql = "delete from "&contenutiAut&" where idAutore='"&cstr(pIdContenuti)&"'"
executeQuery(sql)
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from "&multimediaaut&" where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDiraut)&"\"&cInt(pIdMultimedia)&"_"&getUrlBig)
deleteFile(server.mappath(multimediaDiraut)&"\"&cInt(pIdMultimedia)&"_"&getUrlSmall)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiAut&" order by cognome"
set clsRs = getRs(sql)
set getContentList = clsRs
set clsRs = nothing
End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutiAut&" order by insertDate desc limit "&n
set clsRs = getRs(sql)
set getContentListNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from "&multimediaaut&" where id_autore='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaListByType = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from "&multimediaaut&" where id_autore='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set clsRs = getRs(sql)
set getMultimediaListByTypeNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByTypeCategoryNumber(pIdContent,pType, pCategory, pN)
Dim sql, clsRs
sql = "select * from "&multimediaaut&" where id_autore='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' and id_multimedia_category='"&pCategory&"' order by update_date desc limit "&pN
set clsRs = getRs(sql)
set getMultimediaListByTypeCategoryNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimediaaut&" where id_autore='"&pIdContent&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaList = clsRs
set clsRs = nothing
End Function
Public function getCategorieList()
dim sql
sql = "select idCategoria,descCategoria from aut_tb_categorie order by descCategoria"
set getCategorieList = getRs(sql)
end function
Public function getSottocategorieList()
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from aut_tb_sottocategorie order by idSottocategoria"
set getSottocategorieList = getRs(sql)
end function
Public function getSottocategorieListByCategoria(categoria)
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from aut_tb_sottocategorie where idCategoria='"&cInt(categoria)&"' order by idSottocategoria"
set getSottocategorieListByCategoria = getRs(sql)
end function
public function getAutoriNumberBySottocategoria(idSottocategoria)
dim sql,clsRs
sql = "select count(1) as tot from aut_tb_autori where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
getAutoriNumberBySottocategoria = clsRs("tot")
set clsRs = nothing
end function
Public function getNazionalitaList()
dim sql
sql = "select idNazionalita, descNazionalita from aut_tb_nazionalita order by descNazionalita"
set getNazionalitaList = getRs(sql)
end function
Public Function getDescCategoria(idCategoria)
dim sql, clsRs
sql = "select descCategoria from aut_tb_categorie where idCategoria='"&cInt(idCategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescCategoria = clsRs("descCategoria")
else
getDescCategoria = ""
end if
set clsRs = nothing
End Function
Public Function getDescSottocategoria(idSottocategoria)
dim sql, clsRs
sql = "select descSottocategoria from aut_tb_sottocategorie where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSottocategoria = clsRs("descSottocategoria")
else
getDescSottocategoria = ""
end if
set clsRs = nothing
End Function
Public Function getDescNazionalita(idNazionalita)
dim sql, clsRs
sql = "select descNazionalita from aut_tb_nazionalita where idNazionalita='"&cInt(idNazionalita)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescNazionalita = clsRs("descNazionalita")
else
getDescNazionalita = ""
end if
set clsRs = nothing
End Function
Private Function getIdAutoreByType(tipo)
dim sql, clsRs
spostamento = 0
if (tipo="ultimo") then spostamento = 0
if (tipo="penultimo") then spostamento = 1
if (tipo="terzultimo") then spostamento = 2
if (tipo="quartultimo") then spostamento = 3
if (tipo="quintultimo") then spostamento = 4
if (tipo="sestultimo") then spostamento = 5
sql = "select * from aut_tb_autori order by insertDate desc"
set clsRs = getRs(sql)
if clsRs.recordcount > spostamento then
for i=1 to spostamento
clsRs.movenext
next
if not(clsRs.eof or clsRs.bof) then
getIdAutoreByType = clsRs("idAutore")
else
getIdAutoreByType = 0
end if
else
getIdAutoreByType = 0
end if
set clsRs=nothing
End Function
Public Sub getAutore(tipo)
if ((tipo<>"ultimo")and(tipo<>"penultimo")and(tipo<>"terzultimo")and(tipo<>"quartultimo")and(tipo<>"quintultimo")and(tipo<>"sestultimo")and(tipo<>"")) then
idAutore = cInt(tipo)
getContent idAutore
else
getContent getIdAutoreByType(tipo)
end if
End Sub
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from "&categorieMultimediaAut&" order by id_multimedia_category"
set clsRS = getRs(sql)
set getMultimediaCategoryList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from "&categorieMultimediaAut&" where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from "&tipiMultimediaAut&" order by id_multimedia_type"
set clsRS = getRs(sql)
set getMultimediaTypeList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from "&tipiMultimediaAut&" where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
set clsRs = nothing
end function
Public function getThumbnailByIdAutore(idAutore)
dim sql
sql = "select * from aut_tb_multimedia where id_autore='"&cInt(idAutore)&"' and id_multimedia_category='2' "
set getThumbnailByIdAutore=getRs(sql)
end function
'getter e setter methods
Public Function getIdAutore()
getIdAutore = idAutore
End Function
Public Sub setIdAutore(n)
idAutore = n
End Sub
Public Function getNome()
getNome = nome
End Function
Public Sub setNome(n)
nome = n
End Sub
Public Function getCognome()
getCognome = cognome
End Function
Public Sub setCognome(n)
cognome = n
End Sub
Public Function getIdNazionalita()
getIdNazionalita = idNazionalita
End Function
Public Sub setIdNazionalita(n)
idNazionalita = n
End Sub
Public Function getIdCategoria()
getIdCategoria = idCategoria
End Function
Public Sub setIdCategoria(n)
idCategoria = n
End Sub
Public Function getIdSottocategoria()
getIdSottocategoria = idSottocategoria
End Function
Public Sub setIdSottocategoria(n)
idSottocategoria = n
End Sub
Public Function getStrillo()
getStrillo = strillo
End Function
Public Sub setStrillo(n)
strillo = n
End Sub
Public Function getBiografia()
getBiografia = biografia
End Function
Public Sub setBiografia(n)
biografia = n
End Sub
Public Function getPubblicazioni()
getPubblicazioni = pubblicazioni
End Function
Public Sub setPubblicazioni(n)
pubblicazioni = n
End Sub
Public Function getContenuti1()
getContenuti1 = contenuti1
End Function
Public Sub setContenuti1(n)
contenuti1 = n
End Sub
Public Function getContenuti2()
getContenuti2 = contenuti2
End Function
Public Sub setContenuti2(n)
contenuti2 = n
End Sub
Public Function getContenuti3()
getContenuti3 = contenuti3
End Function
Public Sub setContenuti3(n)
contenuti3 = n
End Sub
Public Function getContenuti4()
getContenuti4 = contenuti4
End Function
Public Sub setContenuti4(n)
contenuti4 = n
End Sub
Public Function getContenuti5()
getContenuti5 = contenuti5
End Function
Public Sub setContenuti5(n)
contenuti5 = n
End Sub
Public Function getSitoPersonale()
getSitoPersonale = sitoPersonale
End Function
Public Sub setSitoPersonale(n)
sitoPersonale = n
End Sub
Public Function getNote()
getNote = note
End Function
Public Sub setNote(n)
note = n
End Sub
Public Function getLinkImgGrande()
getLinkImgGrande = linkImgGrande
End Function
Public Sub setLinkImgGrande(n)
linkImgGrande = n
End Sub
Public Function getEmailAutore()
getEmailAutore = emailAutore
End Function
Public Sub setEmailAutore(n)
emailAutore = n
End Sub
Public Function getDescContenuti1()
getDescContenuti1 = descContenuti1
End Function
Public Sub setDescContenuti1(n)
descContenuti1 = n
End Sub
Public Function getDescContenuti2()
getDescContenuti2 = descContenuti2
End Function
Public Sub setDescContenuti2(n)
descContenuti2 = n
End Sub
Public Function getDescContenuti3()
getDescContenuti3 = descContenuti3
End Function
Public Sub setDescContenuti3(n)
descContenuti3 = n
End Sub
Public Function getDescContenuti4()
getDescContenuti4 = descContenuti4
End Function
Public Sub setDescContenuti4(n)
descContenuti4 = n
End Sub
Public Function getDescContenuti5()
getDescContenuti5 = descContenuti5
End Function
Public Sub setDescContenuti5(n)
descContenuti5 = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrlBig()
getUrlBig = urlBig
End Function
Public Sub setUrlBig(n)
urlBig = n
End Sub
Public Function getUrlSmall()
getUrlSmall = urlSmall
End Function
Public Sub setUrlSmall(n)
urlSmall = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
End class
%>
<%
'-----------------------------------NOMI TABELLE-------------------------------
dim contenutiShop, categorieContenutiShop, multimediaShop, tipiMultimediaShop, categorieMultimediaShop
contenutiShop = "shop_tb_prodotti"
categorieContenutiShop = "shop_tb_categorie"
multimediaShop = "shop_tb_multimedia"
tipiMultimediaShop = "shop_dt_multimedia_type"
categorieMultimediaShop = "shop_dt_multimedia_category"
'----------------------------------DIRECTORY---------------------------
dim contentDirShop, tempMultimediaDirShop, multimediaDirShop
contentDirShop = "shop"
tempMultimediaDirShop = Application("root")&"multimediaFile/shop/temp/"
multimediaDirShop = Application("root")&"multimediaFile/shop/multimedia/"
Class Shop
Private idProdotto, titolo, produttore, linkProduttore, idCategoria, idSottocategoria, idFasciaEta, idOccasione
Private idSesso, idFasciaPrezzo, abstract, descrizione, valutazioneGlobale, idAutoreRecensione, linkProfiloAutoreRecensione
Private linkAcquisto, note, insertDate, updateDate, noteAcquisto
Private idMultimedia, idMultimediaType, idMultimediaCategory, urlBig, urlSmall
Public function searchProdotti(srcCategoria, srcSottocategoria, srcFasciaEta, srcOccasione, srcSesso, srcFasciaPrezzo, srcAutoreRecensione, srcNovita, srcTitolo, srcProduttore, iniziale, srcAbstract, srcDescrizione, srcValutazione)
dim sql
sql = "select * from shop_tb_prodotti a where 1=1 "
if srcCategoria<>"" and srcCategoria<>"0" then
sql = sql & "and idCategoria='"&srcCategoria&"' "
end if
if srcSottocategoria<>"" and srcSottocategoria<>"0" then
sql = sql & "and idSottocategoria='"&srcSottocategoria&"' "
end if
if srcFasciaEta<>"" then
sql = sql & "and idFasciaEta='"&srcFasciaEta&"' "
end if
if srcOccasione<>"" then
sql = sql & "and idOccasione='"&srcOccasione&"' "
end if
if srcSesso<>"" then
sql = sql & "and idSesso='"&srcSesso&"' "
end if
if srcFasciaPrezzo<>"" then
sql = sql & "and idFasciaPrezzo='"&srcFasciaPrezzo&"' "
end if
if srcAutoreRecensione<>"" then
sql = sql & "and idAutoreRecensione='"&srcAutoreRecensione&"' "
end if
if srcValutazione<>"" then
sql = sql & "and idValutazione='"&srcValutazione&"' "
end if
if srcNovita<>"" then
if srcNovita="si" then
sql = sql&"and a.insertDate>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insertDate<=date_sub(now(),interval 15 day) "
end if
end if
if srcTitolo<>"" then
sql= sql& "and match (titolo) against ('"&prepareSql(srcTitolo)&"' IN BOOLEAN MODE) "
end if
if srcProduttore<>"" then
sql= sql& "and match (produttore) against ('"&prepareSql(srcProduttore)&"' IN BOOLEAN MODE) "
end if
if iniziale<>"" then
sql = sql&"and titolo like '"&iniziale&"%' "
end if
if srcAbstract<>"" then
sql= sql& "and match (abstract) against ('"&prepareSql(srcAbstract)&"' IN BOOLEAN MODE) "
end if
if srcDescrizione<>"" then
sql= sql& "and match (descrizione) against ('"&prepareSql(srcDescrizione)&"' IN BOOLEAN MODE) "
end if
sql = sql & " order by titolo"
'response.write(sql)
'response.end
set searchProdotti = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from "&contenutiShop&" where idProdotto="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdProdotto(clsRs("idProdotto"))
Call setTitolo(clsRS("titolo"))
Call setProduttore(clsRS("produttore"))
Call setLinkProduttore(clsRS("linkProduttore"))
Call setIdCategoria(clsRS("idCategoria"))
Call setIdSottocategoria(clsRS("idSottocategoria"))
Call setIdFasciaEta(clsRS("idFasciaEta"))
Call setIdOccasione(clsRS("idOccasione"))
Call setIdSesso(clsRS("idSesso"))
Call setIdFasciaPrezzo(clsRS("idFasciaPrezzo"))
Call setAbstract(clsRS("abstract"))
Call setDescrizione(clsRS("descrizione"))
Call setValutazioneGlobale(clsRS("valutazioneGlobale"))
Call setIdAutoreRecensione(clsRS("idAutoreRecensione"))
Call setLinkProfiloAutoreRecensione(clsRS("linkProfiloAutoreRecensione"))
Call setLinkAcquisto(clsRS("linkAcquisto"))
Call setNote(clsRS("note"))
Call setInsertDate(clsRS("insertDate"))
Call setUpdateDate(clsRS("updateDate"))
Call setNoteAcquisto(clsRS("noteAcquisto"))
end if
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from "&multimediashop&" where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdProdotto(clsRs("id_prodotto"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrlBig(clsRs("url_big"))
Call setUrlSmall(clsRs("url_small"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into "&contenutishop&" (titolo, produttore, linkProduttore, "
sql = sql&"idCategoria, idSottoCategoria, idFasciaEta, idOccasione, idSesso, idFasciaPrezzo, abstract, descrizione, valutazioneGlobale, idAutoreRecensione, "
sql = sql&"linkProfiloAutoreRecensione, linkAcquisto, note, insertDate, updateDate, noteAcquisto) values ("
sql = sql & "'"&getTitolo&"', "
sql = sql & "'"&getProduttore&"', "
sql = sql & "'"&getLinkProduttore&"', "
sql = sql & "'"&getIdCategoria&"', "
sql = sql & "'"&getIdSottocategoria&"', "
sql = sql & "'"&getIdFasciaEta&"', "
sql = sql & "'"&getIdOccasione&"', "
sql = sql & "'"&getIdSesso&"', "
sql = sql & "'"&getIdFasciaPrezzo&"', "
sql = sql & "'"&getAbstract&"', "
sql = sql & "'"&getDescrizione&"', "
sql = sql & "'"&getValutazioneGlobale&"', "
sql = sql & "'"&getIdAutoreRecensione&"', "
sql = sql & "'"&getLinkProfiloAutoreRecensione&"', "
sql = sql & "'"&getLinkAcquisto&"', "
sql = sql & "'"&getNote&"', "
sql = sql & "now(), now(), "
sql = sql & "'"&getNoteAcquisto&"') "
' response.write(sql)
' response.end
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into "&multimediashop&" (insert_date, update_date, id_prodotto, id_multimedia_type,"
sql = sql & "id_multimedia_category, url_big, url_small, description_ita "
sql = sql & " ) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdProdotto&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrlBig&"',"
sql = sql & "'"&getUrlSmall&"','')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
conn.close
set rs = nothing
set conn = nothing
End Function
Public Sub updateContent()
dim sql
sql = "update "&contenutishop&" set "
sql = sql & "titolo = '"&getTitolo()&"',"
sql = sql & "produttore = '"&getProduttore()&"',"
sql = sql & "linkProduttore = '"&getLinkProduttore()&"',"
sql = sql & "idCategoria = '"&getIdCategoria()&"',"
sql = sql & "idSottocategoria = '"&getIdSottocategoria()&"',"
sql = sql & "idFasciaEta = '"&getIdFasciaEta()&"',"
sql = sql & "idOccasione = '"&getIdOccasione()&"',"
sql = sql & "idSesso = '"&getIdSesso()&"',"
sql = sql & "idFasciaPrezzo = '"&getIdFasciaPrezzo()&"',"
sql = sql & "abstract = '"&getAbstract()&"',"
sql = sql & "descrizione = '"&getDescrizione()&"',"
sql = sql & "valutazioneGlobale = '"&getValutazioneGlobale()&"',"
sql = sql & "idAutoreRecensione = '"&getIdAutoreRecensione()&"',"
sql = sql & "linkProfiloAutoreRecensione = '"&getLinkProfiloAutoreRecensione()&"',"
sql = sql & "linkAcquisto = '"&getLinkAcquisto()&"',"
sql = sql & "note = '"&getNote()&"',"
sql = sql & "updateDate = now(),"
sql = sql & "noteAcquisto = '"&getNoteAcquisto()&"'"
sql = sql & " where idProdotto = '"&cStr(getIdProdotto())&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update "&multimediashop&" set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url_big = '"&getUrlBig()&"',"
sql = sql & "url_small = '"&getUrlSmall()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContenuti)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContenuti)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
set clsRs = nothing
sql = "delete from "&contenutishop&" where idProdotto='"&cstr(pIdContenuti)&"'"
executeQuery(sql)
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from "&multimediashop&" where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDirshop)&"\"&cInt(pIdMultimedia)&"_"&getUrlBig)
deleteFile(server.mappath(multimediaDirshop)&"\"&cInt(pIdMultimedia)&"_"&getUrlSmall)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutishop&" order by insertDate desc"
set clsRs = getRs(sql)
set getContentList = clsRs
set clsRs = nothing
End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from "&contenutishop&" order by insertDate desc limit "&n
set clsRs = getRs(sql)
set getContentListNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from "&multimediashop&" where id_prodotto='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaListByType = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from "&multimediashop&" where id_prodotto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set clsRs = getRs(sql)
set getMultimediaListByTypeNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByTypeCategoryNumber(pIdContent,pType, pCategory, pN)
Dim sql, clsRs
sql = "select * from "&multimediashop&" where id_prodotto='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' and id_multimedia_category='"&pCategory&"' order by update_date desc limit "&pN
set clsRs = getRs(sql)
set getMultimediaListByTypeCategoryNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from "&multimediashop&" where id_prodotto='"&pIdContent&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaList = clsRs
set clsRs = nothing
End Function
Public function getCategorieList()
dim sql
sql = "select idCategoria,descCategoria from shop_tb_categorie order by descCategoria"
set getCategorieList = getRs(sql)
end function
Public function getSottocategorieList()
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from shop_tb_sottocategorie order by idSottocategoria"
set getSottocategorieList = getRs(sql)
end function
Public function getSottocategorieListByCategoria(categoria)
dim sql
sql = "select idSottocategoria,descSottocategoria,idCategoria from shop_tb_sottocategorie where idCategoria='"&cInt(categoria)&"' order by idSottocategoria"
set getSottocategorieListByCategoria = getRs(sql)
end function
public function getProdottiNumberBySottocategoria(idSottocategoria)
dim sql,clsRs
sql = "select count(1) as tot from shop_tb_prodotti where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
getProdottiNumberBySottocategoria = clsRs("tot")
set clsRs = nothing
end function
Public function getOccasioniList()
dim sql
sql = "select idOccasione, descOccasione from shop_tb_occasione order by descOccasione"
set getOccasioniList = getRs(sql)
end function
Public function getAutoriRecensioniList()
dim sql
sql = "select idAutoreRecensione,descAutoreRecensione from shop_tb_autori_recensioni order by descAutoreRecensione"
set getAutoriRecensioniList = getRs(sql)
end function
Public function getFasceEtaList()
dim sql
sql = "select idFasciaEta,descFasciaEta from shop_tb_fasce_eta order by descFasciaEta"
set getFasceEtaList = getRs(sql)
end function
Public function getSessoList()
dim sql
sql = "select idSesso,descSesso from shop_tb_sesso order by descSesso"
set getSessoList = getRs(sql)
end function
Public function getFascePrezzoList()
dim sql
sql = "select idFasciaPrezzo,descFasciaPrezzo from shop_tb_fasce_prezzo order by descFasciaPrezzo"
set getFascePrezzoList = getRs(sql)
end function
Public Function getDescCategoria(idCategoria)
dim sql, clsRs
sql = "select descCategoria from shop_tb_categorie where idCategoria='"&cInt(idCategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescCategoria = clsRs("descCategoria")
else
getDescCategoria = ""
end if
set clsRs = nothing
End Function
Public Function getDescSottocategoria(idSottocategoria)
dim sql, clsRs
sql = "select descSottocategoria from shop_tb_sottocategorie where idSottocategoria='"&cInt(idSottocategoria)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSottocategoria = clsRs("descSottocategoria")
else
getDescSottocategoria = ""
end if
set clsRs = nothing
End Function
Public Function getDescOccasione(idOccasione)
dim sql, clsRs
sql = "select descOccasione from shop_tb_occasione where idOccasione='"&cInt(idOccasione)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescOccasione = clsRs("descOccasione")
else
getDescOccasione = ""
end if
set clsRs = nothing
End Function
Public Function getDescAutoreRecensione(idAutoreRecensione)
dim sql, clsRs
sql = "select descAutoreRecensione from shop_tb_autori_recensioni where idAutoreRecensione='"&cInt(idAutoreRecensione)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescAutoreRecensione = clsRs("descAutoreRecensione")
else
getDescAutoreRecensione = ""
end if
set clsRs = nothing
End Function
Public Function getDescFasciaEta(idFasciaEta)
dim sql, clsRs
sql = "select descFasciaEta from shop_tb_fasce_eta where idFasciaEta='"&cInt(idFasciaEta)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescFasciaEta = clsRs("descFasciaEta")
else
getDescFasciaEta = ""
end if
set clsRs = nothing
End Function
Public Function getDescSesso(idSesso)
dim sql, clsRs
sql = "select descSesso from shop_tb_sesso where idSesso='"&cInt(idSesso)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSesso = clsRs("descSesso")
else
getDescSesso = ""
end if
set clsRs = nothing
End Function
Public Function getDescFasciaPrezzo(idFasciaPrezzo)
dim sql, clsRs
sql = "select descFasciaPrezzo from shop_tb_fasce_prezzo where idFasciaPrezzo='"&cInt(idFasciaPrezzo)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescFasciaPrezzo = clsRs("descFasciaPrezzo")
else
getDescFasciaPrezzo = ""
end if
set clsRs = nothing
End Function
Private Function getIdProdottoByType(tipo)
dim sql, clsRs
spostamento = 0
if (tipo="ultimo") then spostamento = 0
if (tipo="penultimo") then spostamento = 1
if (tipo="terzultimo") then spostamento = 2
if (tipo="quartultimo") then spostamento = 3
if (tipo="quintultimo") then spostamento = 4
if (tipo="sestultimo") then spostamento = 5
sql = "select * from shop_tb_prodotti order by insertDate desc"
set clsRs = getRs(sql)
if clsRs.recordcount > spostamento then
for i=1 to spostamento
clsRs.movenext
next
if not(clsRs.eof or clsRs.bof) then
getIdProdottoByType = clsRs("idProdotto")
else
getIdProdottoByType = 0
end if
else
getIdProdottoByType = 0
end if
set clsRs = nothing
End Function
Public Sub getProdotto(tipo)
if ((tipo<>"ultimo")and(tipo<>"penultimo")and(tipo<>"terzultimo")and(tipo<>"quartultimo")and(tipo<>"quintultimo")and(tipo<>"sestultimo")and(tipo<>"")) then
idProdotto = cInt(tipo)
getContent idProdotto
else
getContent getIdProdottoByType(tipo)
end if
End Sub
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from "&categorieMultimediaShop&" order by id_multimedia_category"
set clsRS = getRs(sql)
set getMultimediaCategoryList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from "&categorieMultimediaShop&" where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from "&tipiMultimediaShop&" order by id_multimedia_type"
set clsRS = getRs(sql)
set getMultimediaTypeList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from "&tipiMultimediaShop&" where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
set clsRs = nothing
end function
Public function getThumbnailByIdProdotto(idProdotto)
dim sql
sql = "select * from shop_tb_multimedia where id_prodotto='"&cInt(idProdotto)&"' and id_multimedia_category='2' "
set getThumbnailByIdProdotto=getRs(sql)
end function
'getter e setter methods
Public Function getIdProdotto()
getIdProdotto = idProdotto
End Function
Public Sub setIdProdotto(n)
idProdotto = n
End Sub
Public Function getTitolo()
getTitolo = titolo
End Function
Public Sub setTitolo(n)
titolo = n
End Sub
Public Function getProduttore()
getProduttore = produttore
End Function
Public Sub setProduttore(n)
produttore = n
End Sub
Public Function getLinkProduttore()
getLinkProduttore = linkProduttore
End Function
Public Sub setLinkProduttore(n)
linkProduttore = n
End Sub
Public Function getIdCategoria()
getIdCategoria = idCategoria
End Function
Public Sub setIdCategoria(n)
idCategoria = n
End Sub
Public Function getIdSottocategoria()
getIdSottocategoria = idSottocategoria
End Function
Public Sub setIdSottocategoria(n)
idSottocategoria = n
End Sub
Public Function getIdFasciaEta()
getIdFasciaEta = idFasciaEta
End Function
Public Sub setIdFasciaEta(n)
idFasciaEta = n
End Sub
Public Function getIdOccasione()
getIdOccasione = idOccasione
End Function
Public Sub setIdOccasione(n)
idOccasione = n
End Sub
Public Function getIdSesso()
getIdSesso = idSesso
End Function
Public Sub setIdSesso(n)
idSesso = n
End Sub
Public Function getIdFasciaPrezzo()
getIdFasciaPrezzo = idFasciaPrezzo
End Function
Public Sub setIdFasciaPrezzo(n)
idFasciaPrezzo = n
End Sub
Public Function getAbstract()
getAbstract = abstract
End Function
Public Sub setAbstract(n)
abstract = n
End Sub
Public Function getDescrizione()
getDescrizione = descrizione
End Function
Public Sub setDescrizione(n)
descrizione = n
End Sub
Public Function getValutazioneGlobale()
getValutazioneGlobale = valutazioneGlobale
End Function
Public Sub setValutazioneGlobale(n)
valutazioneGlobale = n
End Sub
Public Function getIdAutoreRecensione()
getIdAutoreRecensione = idAutoreRecensione
End Function
Public Sub setIdAutoreRecensione(n)
idAutoreRecensione = n
End Sub
Public Function getLinkProfiloAutoreRecensione()
getLinkProfiloAutoreRecensione = linkProfiloAutoreRecensione
End Function
Public Sub setLinkProfiloAutoreRecensione(n)
linkProfiloAutoreRecensione = n
End Sub
Public Function getLinkAcquisto()
getLinkAcquisto = linkAcquisto
End Function
Public Sub setLinkAcquisto(n)
linkAcquisto = n
End Sub
Public Function getNote()
getNote = note
End Function
Public Sub setNote(n)
note = n
End Sub
Public Function getNoteAcquisto()
getNoteAcquisto = noteAcquisto
End Function
Public Sub setNoteAcquisto(n)
noteAcquisto = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrlBig()
getUrlBig = urlBig
End Function
Public Sub setUrlBig(n)
urlBig = n
End Sub
Public Function getUrlSmall()
getUrlSmall = urlSmall
End Function
Public Sub setUrlSmall(n)
urlSmall = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
End class
%>
<%
'----------------------------------DIRECTORY---------------------------
dim contentDirCrea, tempMultimediaDirCrea, multimediaDirCrea
contentDirCrea = "creazioni"
tempMultimediaDirCrea = Application("root")&"multimediaFile/creazioni/temp/"
multimediaDirCrea = Application("root")&"multimediaFile/creazioni/multimedia/"
'----------------------------------CAMPI PER TRADUZIONI E VISUALIZZAZIONE---------------------------
Class Creazioni
Private idContent, title, descrizione, istruzioni, aiuto, insertDate, updateDate, idOccasion, descOccasion
Private idMultimedia, idMultimediaType, idMultimediaCategory, url, description, autoreIllustrazioni, linkAutoreIllustrazioni
Public function searchContent(idCategory, idSubcategory, idOccasion, idPurpose, freeText, srcNovita)
dim sql
sql = "select a.title as title, a.id_content as id_content, a.insert_date as insert_date, a.update_date as update_date from crea_tb_content a "
if idCategory<>"" or idSubCategory<>"" then
if cInt(idCategory)<>0 then
sql = sql&", crea_tb_main_classification b "
end if
end if
if idOccasion<>"" then
sql = sql&", crea_tb_main_occasion c "
end if
if idPurpose<>"" then
if cInt(idPurpose)<>0 then
sql = sql&", crea_tb_main_purpose d "
end if
end if
sql = sql&"where 1=1 "
if idCategory<>"" then
if cInt(idCategory)<>0 then
sql = sql&"and b.id_category='"&idCategory&"' and b.id_content=a.id_content "
end if
end if
if idSubcategory<>"" then
sql = sql&"and b.id_subcategory='"&idSubcategory&"' and b.id_content=a.id_content "
end if
if idOccasion<>"" then
sql = sql&"and c.id_occasion='"&idOccasion&"' and c.id_content=a.id_content "
end if
if idPurpose<>"" then
if cInt(idPurpose)<>0 then
sql = sql&"and d.id_purpose='"&idPurpose&"' and d.id_content=a.id_content "
end if
end if
if srcNovita<>"" then
if srcNovita="si" then
sql = sql&"and a.insert_date>date_sub(now(),interval 15 day) "
else
sql = sql&"and a.insert_date<=date_sub(now(),interval 15 day) "
end if
end if
if freeText<>"" then
sql = sql&"and match (title, descrizione, istruzioni, aiuto) against ('"&prepareSql(freeText)&"' IN BOOLEAN MODE) "
end if
sql = sql&"order by title"
'response.write(sql)
'response.end
set searchContent = getRs(sql)
end function
Public Sub getContent(pIdContent)
Dim sql, clsRs
sql = "select * from crea_tb_content where id_content="&pIdContent
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdContent(clsRs("id_content"))
Call setTitle(clsRs("title"))
Call setDescrizione(clsRs("descrizione"))
Call setIstruzioni(clsRs("istruzioni"))
Call setAiuto(clsRs("aiuto"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
end if
set clsRs = nothing
End Sub
Public Sub getMultimedia(pIdMultimedia)
Dim sql, clsRs
sql = "select * from crea_tb_multimedia where id_multimedia="&cInt(pIdMultimedia)
set clsRs = getRs(sql)
if not (clsRs.eof or clsRs.bof) then
Call setIdMultimedia(clsRs("id_multimedia"))
Call setIdContent(clsRs("id_content"))
Call setIdMultimediaType(clsRs("id_multimedia_type"))
Call setIdMultimediaCategory(clsRs("id_multimedia_category"))
Call setUrl(clsRs("url"))
Call setDescription(clsRs("description"))
Call setInsertDate(clsRs("insert_date"))
Call setUpdateDate(clsRs("update_date"))
Call setAutoreIllustrazioni(clsRs("autore_illustrazioni"))
Call setLinkAutoreIllustrazioni(clsRs("link_autore_illustrazioni"))
end if
set clsRs = nothing
End Sub
Public Function SaveContent()
Dim sql
sql = "insert into crea_tb_content (insert_date, update_date, title, descrizione, istruzioni, aiuto) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getTitle&"',"
sql = sql & "'"&getDescrizione&"',"
sql = sql & "'"&getIstruzioni&"',"
sql = sql & "'"&getAiuto&"' "
sql = sql & ")"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
saveContent = rs(0)
conn.close
set rs = nothing
set conn = nothing
errorHandling(Request.ServerVariables("HTTP_REFERER"))
End Function
Public function getLastId
dim sql, rs
sql = "SELECT @@IDENTITY"
set rs = getRS(sql)
getLastId = rs(0)
set rs = nothing
End function
Public Function SaveMultimedia()
Dim sql
sql = "insert into crea_tb_multimedia (insert_date, update_date, id_content, id_multimedia_type,"
sql = sql & "id_multimedia_category, url, description, autore_illustrazioni, link_autore_illustrazioni) values ("
sql = sql & "now(), now(), "
sql = sql & "'"&getIdContent&"',"
sql = sql & "'"&getIdMultimediaType&"',"
sql = sql & "'"&getIdMultimediaCategory&"',"
sql = sql & "'"&getUrl&"',"
sql = sql & "'"&getDescription&"',"
sql = sql & "'"&getAutoreIllustrazioni&"',"
sql = sql & "'"&getLinkAutoreIllustrazioni&"')"
dim conn, rs
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
sql = "SELECT @@IDENTITY"
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conn,3,4,1
SaveMultimedia = rs(0)
conn.close
set rs = nothing
set conn = nothing
End Function
Public Sub updateContent()
dim sql
sql = "update crea_tb_content set "
sql = sql & "update_date = now(),"
sql = sql & "title = '"&getTitle()&"',"
sql = sql & "descrizione = '"&getDescrizione()&"',"
sql = sql & "istruzioni = '"&getIstruzioni()&"',"
sql = sql & "aiuto = '"&getAiuto()&"' "
sql = sql & " where id_content = '"&cStr(getIdContent())&"'"
executeQuery(sql)
End Sub
Public Sub updateOccasion(descOccasion, idOccasion)
dim sql
sql = "update crea_dt_occasion set "
sql = sql & "desc_occasion = '"&descOccasion&"'"
sql = sql & " where id_occasion = '"&IdOccasion&"'"
executeQuery(sql)
End Sub
Public Sub updatePurpose(descPurpose, idPurpose)
dim sql
sql = "update crea_dt_purpose set "
sql = sql & "desc_purpose = '"&descPurpose&"'"
sql = sql & " where id_purpose = '"&IdPurpose&"'"
executeQuery(sql)
End Sub
Public Sub updateCategory(descCategory, idCategory)
dim sql
sql = "update crea_dt_category set "
sql = sql & "desc_category = '"&descCategory&"'"
sql = sql & " where id_category = '"&IdCategory&"'"
executeQuery(sql)
End Sub
Public Sub updateSubCategory(descSubcategory, idSubcategory)
dim sql
sql = "update crea_dt_subcategory set "
sql = sql & "desc_subcategory = '"&descSubcategory&"'"
sql = sql & " where id_subcategory = '"&IdSubcategory&"'"
executeQuery(sql)
End Sub
Public Sub updateMultimedia()
dim sql
sql = "update crea_tb_multimedia set "
sql = sql & "update_date = now(),"
sql = sql & "id_multimedia_type = '"&getIdMultimediaType()&"',"
sql = sql & "id_multimedia_category = '"&getIdMultimediaCategory()&"',"
sql = sql & "url = '"&getUrl()&"',"
sql = sql & "description = '"&getDescription()&"' "
sql = sql & "autore_illustrazioni = '"&getAutoreIllustrazioni()&"' "
sql = sql & "link_autore_illustrazioni = '"&getLinkAutoreIllustrazioni()&"' "
sql = sql & " where id_multimedia = '"&cStr(getIdMultimedia())&"'"
executeQuery(sql)
End Sub
'-----elimina anche i multimedia allegati--------------------
Public Sub deleteContent(pIdContent)
dim sql, clsRs
set clsRs = getMultimediaList(pIdContent)
while not (clsRs.eof or clsRs.bof)
deleteMultimedia(clsRs("id_multimedia"))
clsRs.movenext
wend
sql = "delete from crea_tb_main_occasion where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from crea_tb_main_classification where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from crea_tb_main_purpose where id_content='"&pIdContent&"'"
executeQuery(sql)
sql = "delete from crea_tb_content where id_content='"&cstr(pIdContent)&"'"
executeQuery(sql)
set clsRs = nothing
End Sub
'----elimina il singolo file multimediale
Public Sub deleteMultimedia(pIdMultimedia)
getMultimedia(pIdMultimedia)
dim sql
sql = "delete from crea_tb_multimedia where id_multimedia='"&cstr(pIdMultimedia)&"'"
executeQuery(sql)
deleteFile(server.mappath(multimediaDirCrea)&"\"&cInt(pIdMultimedia)&"_"&getUrl)
End Sub
Public Function getContentList()
Dim sql, clsRs
sql = "select * "
sql = sql&"from crea_tb_content order by update_date desc"
set clsRs = getRs(sql)
set getContentList = clsRs
set clsRs = nothing
End Function
Public Function getContentListNumber(n)
Dim sql, clsRs
sql = "select * "
sql = sql&"from crea_tb_content order by update_date desc limit "&n
set clsRs = getRs(sql)
set getContentListNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByType(pIdContent,pType)
Dim sql, clsRs
sql = "select * from crea_tb_multimedia where id_content='"&pIdContent&"' and id_multimedia_type='"&pType&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaListByType = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaListByTypeNumber(pIdContent,pType, pN)
Dim sql, clsRs
sql = "select * from crea_tb_multimedia where id_content='"&cInt(pIdContent)&"' and id_multimedia_type='"&pType&"' order by update_date desc limit "&pN
set clsRs = getRs(sql)
set getMultimediaListByTypeNumber = clsRs
set clsRs = nothing
End Function
Public Function getMultimediaList(pIdContent)
Dim sql, clsRs
sql = "select * from crea_tb_multimedia where id_content='"&pIdContent&"' order by update_date desc"
set clsRs = getRs(sql)
set getMultimediaList = clsRs
set clsRs = nothing
End Function
Public function getMultimediaCategoryList()
dim sql, clsRs
sql = "select * from crea_dt_multimedia_category order by id_multimedia_category"
set clsRS = getRs(sql)
set getMultimediaCategoryList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaCategory(pIdMultimediaCategory)
dim sql, clsRs
sql = "select desc_multimedia_category from crea_dt_multimedia_category where id_multimedia_category='"&cstr(pIdMultimediaCategory)&"'"
set clsRs = getRs(sql)
getDescMultimediaCategory = clsRs("desc_multimedia_category")
set clsRs = nothing
end function
Public function getMultimediaTypeList()
dim sql, clsRs
sql = "select * from crea_dt_multimedia_type order by id_multimedia_type"
set clsRS = getRs(sql)
set getMultimediaTypeList = clsRs
set clsRS = nothing
End function
Public function getDescMultimediaType(pIdType)
dim sql, clsRs
sql = "select desc_multimedia_type from crea_dt_multimedia_type where id_multimedia_type='"&cstr(pIdType)&"'"
set clsRs = getRs(sql)
getDescMultimediaType = clsRs("desc_multimedia_type")
set clsRs = nothing
end function
Public function getDescCategory(idCategory)
dim sql, clsRs
sql = "select desc_category from crea_dt_category where id_category='"&cInt(idCategory)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescCategory=clsRs("desc_category")
else
getDescCategory=""
end if
set clsRs = nothing
end function
Public function getDescPurpose(idPurpose)
dim sql, clsRs
sql = "select desc_purpose from crea_dt_purpose where id_purpose='"&cInt(idPurpose)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescPurpose = clsRs("desc_purpose")
else
getDescPurpose = ""
end if
set clsRs=nothing
end function
Public function getDescOccasion(idOccasion)
dim sql, clsRs
sql = "select desc_occasion from crea_dt_occasion where id_occasion='"&cStr(idOccasion)&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescOccasion = clsRs("desc_occasion")
else
getDescOccasion = ""
end if
set clsRs=nothing
end function
Public function getDescSubCategory(idSubcategory)
dim sql, clsRS
sql = "select desc_subcategory from crea_dt_subcategory where id_subcategory='"&idSubcategory&"'"
set clsRs = getRs(sql)
if not clsRs.eof then
getDescSubcategory = clsRs("desc_subcategory")
else
getDescSubcategory = ""
end if
set clsRs = nothing
end function
Public function getSubcategoryByCategory(idCategory)
dim sql
sql = "select a.id_subcategory as id_subcategory, b.desc_subcategory as desc_subcategory, count(distinct(id_main_classification)) as total "
sql = sql&"from crea_tb_main_classification a, crea_dt_subcategory b where "
sql = sql&"a.id_category='"&idCategory&"' and a.id_category=b.id_category and a.id_subcategory=b.id_subcategory group by a.id_subcategory, b.desc_subcategory order by b.desc_subcategory"
set getSubcategoryByCategory = getRs(sql)
end function
Public Function getCategoryList()
dim sql
sql = "select * from crea_dt_category order by desc_category"
set getCategoryList = getRs(sql)
end function
Public Function getSubCategoryList()
dim sql
sql = "select * from crea_dt_subcategory order by desc_subcategory"
set getSubCategoryList = getRs(sql)
end function
Public Function getSubCategoryListCategory(idCategory)
dim sql
sql = "select * from crea_dt_subcategory where id_category='"&IdCategory&"'"
set getSubCategoryListCategory = getRs(sql)
end function
Public Function getOccasionList()
dim sql
sql = "select * from crea_dt_occasion order by desc_occasion"
set getOccasionList = getRs(sql)
end function
Public Function getOccasionList2(descOccasion)
dim sql
sql = "select * from crea_dt_occasion where desc_occasion='"&descOccasion&"'"
set getOccasionList2= getRs(sql)
end function
Public Function getPurposeList()
dim sql
sql = "select * from crea_dt_purpose order by desc_purpose"
set getPurposeList = getRs(sql)
end function
Public function getContentPdf(idContent)
dim sql
sql = "select * from crea_tb_multimedia where id_content='"&idContent&"' and id_multimedia_type=1 order by update_date desc"
set getContentImage = getRS(sql)
end function
Public function getContentMainClassificationList(idContent)
dim sql
sql = "select a.id_main_classification as id_main_classification, a.id_category as id_category, a.id_subcategory as id_subcategory, "
sql = sql&"b.desc_category as desc_category, c.desc_subcategory as desc_subcategory "
sql=sql&"from crea_tb_main_classification a, crea_dt_category b, crea_dt_subcategory c "
sql=sql&"where a.id_content='"&idContent&"' "
sql=sql&"and a.id_category=b.id_category "
sql=sql&"and a.id_subcategory=c.id_subcategory"
set getContentMainClassificationList=getRs(sql)
end function
Public sub addContentMainClassification(idContent, idCategory, idSubcategory)
dim sql
sql = "insert into crea_tb_main_classification (id_content, id_category, id_subcategory) values ('"&cLng(idContent)&"','"&cInt(idCategory)&"','"&cInt(idSubcategory)&"')"
executeQuery(sql)
end sub
Public sub addContentMainOccasion(idContent, idOccasion)
dim sql
sql = "insert into crea_tb_main_occasion (id_content, id_occasion) values ('"&cLng(idContent)&"','"&cInt(idOccasion)&"')"
executeQuery(sql)
end sub
Public sub addContentOccasion(idOccasion, descOccasion)
dim sql
sql = "insert into crea_dt_occasion (id_occasion, desc_occasion) values ('"&cLng(idOccasion)&"','"&cStr(descOccasion)&"')"
executeQuery(sql)
end sub
Public sub addOccasion(descOccasion)
dim sql
sql = "insert into crea_dt_occasion (desc_occasion) values ('"&cStr(descOccasion)&"')"
executeQuery(sql)
end sub
Public sub addPurpose(descPurpose)
dim sql
sql = "insert into crea_dt_purpose (desc_purpose) values ('"&cStr(descPurpose)&"')"
executeQuery(sql)
end sub
Public sub addCategory(descCategory)
dim sql
sql = "insert into crea_dt_category (desc_category) values ('"&cStr(descCategory)&"')"
executeQuery(sql)
end sub
Public sub addSubCategory(descSubcategory, idCategory)
dim sql
sql = "insert into crea_dt_subcategory (desc_subcategory, id_category) values ('"&cStr(descSubcategory)&"','"&cInt(idCategory)&"')"
executeQuery(sql)
end sub
Public sub addContentMainPurpose(idContent, idPurpose)
dim sql
sql = "insert into crea_tb_main_purpose (id_content, id_purpose) values ('"&cLng(idContent)&"','"&cInt(idPurpose)&"')"
executeQuery(sql)
end sub
Public sub deleteContentMainClassification(idMainClassification)
dim sql
sql = "delete from crea_tb_main_classification where id_main_classification='"&cInt(idMainClassification)&"'"
executeQuery(sql)
end sub
Public sub deleteContentMainOccasion(idMainOccasion)
dim sql
sql = "delete from crea_tb_main_occasion where id_main_occasion='"&cInt(idMainOccasion)&"'"
executeQuery(sql)
end sub
Public sub deleteContentOccasion(idContent)
dim sql
sql = "delete from crea_dt_occasion where id_occasion='"&cInt(idContent)&"'"
executeQuery(sql)
end sub
Public sub deleteContentPurpose(idContent)
dim sql
sql = "delete from crea_dt_purpose where id_purpose='"&cInt(idContent)&"'"
executeQuery(sql)
end sub
Public sub deleteContentCategory(idContent)
dim sql
sql = "delete from crea_dt_category where id_category='"&cInt(idContent)&"'"
executeQuery(sql)
end sub
Public sub deleteContentSubCategory(idContent, idCategory)
dim sql
sql = "delete from crea_dt_subcategory where id_subcategory='"&cInt(idContent)&"' and id_category='"&cInt(idCategory)&"' "
executeQuery(sql)
end sub
Public sub deleteContentMainPurpose(idMainPurpose)
dim sql
sql = "delete from crea_tb_main_purpose where id_main_purpose='"&cInt(idMainPurpose)&"'"
executeQuery(sql)
end sub
Public sub deleteContentAssociatePurpose(idContent)
dim sql
sql = "delete from crea_tb_main_purpose where id_purpose='"&cInt(idContent)&"'"
executeQuery(sql)
end sub
Public sub deleteContentAssociateOccasion(idContent)
dim sql
sql = "delete from crea_tb_main_occasion where id_occasion='"&cInt(idContent)&"'"
executeQuery(sql)
end sub
Public function getContentMainOccasionList(idContent)
dim sql
sql = "select a.id_main_occasion as id_main_occasion, a.id_occasion as id_occasion, "
sql = sql&"b.desc_occasion as desc_occasion "
sql=sql&"from crea_tb_main_occasion a, crea_dt_occasion b "
sql=sql&"where a.id_content='"&idContent&"' "
sql=sql&"and a.id_occasion=b.id_occasion "
set getContentMainOccasionList=getRs(sql)
end function
Public function getContentOccasionList(idContent)
dim sql
sql = "select id_occasion, "
sql = sql&"b.desc_occasion as desc_occasion "
sql=sql&"from crea_dt_occasion "
sql=sql&"where id_occasion='"&idContent&"'"
set getContentOccasionList=getRs(sql)
end function
Public function getContentMainPurposeList(idContent)
dim sql
sql = "select a.id_main_purpose as id_main_purpose, a.id_purpose as id_purpose, "
sql = sql&"b.desc_purpose as desc_purpose "
sql=sql&"from crea_tb_main_purpose a, crea_dt_purpose b "
sql=sql&"where a.id_content='"&idContent&"' "
sql=sql&"and a.id_purpose=b.id_purpose "
set getContentMainPurposeList=getRs(sql)
end function
Private Function getIdProdottoByType(tipo)
dim sql, clsRs
spostamento = 0
if (tipo="ultimo") then spostamento = 0
if (tipo="penultimo") then spostamento = 1
if (tipo="terzultimo") then spostamento = 2
if (tipo="quartultimo") then spostamento = 3
if (tipo="quintultimo") then spostamento = 4
if (tipo="sestultimo") then spostamento = 5
sql = "select * from crea_tb_content order by insert_date desc"
set clsRs = getRs(sql)
if clsRs.recordcount > spostamento then
for i=1 to spostamento
clsRs.movenext
next
if not(clsRs.eof or clsRs.bof) then
getIdProdottoByType = clsRs("id_content")
else
getIdProdottoByType = 0
end if
else
getIdProdottoByType = 0
end if
set clsRs = nothing
End Function
Public Sub getProdotto(tipo)
if ((tipo<>"ultimo")and(tipo<>"penultimo")and(tipo<>"terzultimo")and(tipo<>"quartultimo")and(tipo<>"quintultimo")and(tipo<>"sestultimo")and(tipo<>"")) then
idProdotto = cInt(tipo)
getContent idProdotto
else
getContent getIdProdottoByType(tipo)
end if
End Sub
Public function getThumbnailByIdProdotto(idProdotto)
dim sql
sql = "select * from crea_tb_multimedia where id_content='"&cInt(idProdotto)&"' and id_multimedia_category='2' "
set getThumbnailByIdProdotto=getRs(sql)
end function
Public function getCategoryListByPurpose(idPurpose)
dim sql
sql = "SELECT b.id_category, b.desc_category, count(a.id_content) as total FROM crea_tb_main_purpose a, crea_dt_category b, crea_tb_main_classification c "
sql = sql&" where a.id_purpose='"&cInt(idPurpose)&"' and a.id_content=c.id_content and c.id_category=b.id_category group by b.desc_category, b.id_category"
set getCategoryListByPurpose=getRs(sql)
end function
public function getIdPurposeByIdContent(idContent)
dim sql
sql = "select id_purpose from crea_tb_main_purpose where id_content='"&cInt(idContent)&"'"
set getIdPurposeByIdContent=getRs(sql)
end function
public function getIdCategoryByIdContent(idContent)
dim sql
sql = "select id_category from crea_tb_main_classification where id_content='"&cInt(idContent)&"'"
set getIdCategoryByIdContent=getRs(sql)
end function
public function getIdSubcategoryByIdContent(idContent)
dim sql
sql = "select id_subcategory from crea_tb_main_classification where id_content='"&cInt(idContent)&"'"
set getIdSubcategoryByIdContent=getRs(sql)
end function
public function getIdOccasionByIdContent(idContent)
dim sql
sql = "select id_occasion from crea_tb_main_occasion where id_content='"&cInt(idContent)&"'"
set getIdOccasionByIdContent=getRs(sql)
end function
public function getExistPurpose()
dim sql
sql = "select * from crea_tb_main_purpose"
set getExistPurpose=getRs(sql)
end function
public function getExistOccasion()
dim sql
sql = "select * from crea_tb_main_occasion"
set getExistOccasion=getRs(sql)
end function
public function getExistCategory()
dim sql
sql = "select * from crea_tb_main_classification"
set getExistCategory=getRs(sql)
end function
public function getExistSubCategory()
dim sql
sql = "select * from crea_dt_subcategory"
set getExistSubCategory=getRs(sql)
end function
public function getExistSubCategoryCreazioni()
dim sql
sql = "select * from crea_tb_main_classification"
set getExistSubCategoryCreazioni=getRs(sql)
end function
'getter e setter methods
Public Function getIdContent()
getIdContent = idContent
End Function
Public Function getIdOccasion()
getIdOccasion = idOccasion
End Function
Public Sub setIdContent(n)
idContent = n
End Sub
Public Function getTitle()
getTitle = title
End Function
Public Sub setTitle(n)
title = n
End Sub
Public Function getDescrizione()
getDescrizione = descrizione
End Function
Public Sub setDescrizione(n)
descrizione = n
End Sub
Public Function getIstruzioni()
getIstruzioni = istruzioni
End Function
Public Sub setIstruzioni(n)
istruzioni = n
End Sub
Public Function getAiuto()
getAiuto = aiuto
End Function
Public Sub setAiuto(n)
aiuto = n
End Sub
Public Function getInsertDate()
getInsertDate = insertDate
End Function
Public Sub setInsertDate(n)
insertDate = n
End Sub
Public Function getUpdateDate()
getUpdateDate = updateDate
End Function
Public Sub setUpdateDate(n)
updateDate = n
End Sub
Public Function getIdMultimedia()
getIdMultimedia = idMultimedia
End Function
Public Sub setIdMultimedia(n)
idMultimedia = n
End Sub
Public Function getIdMultimediaType()
getIdMultimediaType = idMultimediaType
End Function
Public Sub setIdMultimediaType(n)
idMultimediaType = n
End Sub
Public Function getIdMultimediaCategory()
getIdMultimediaCategory = idMultimediaCategory
End Function
Public Sub setIdMultimediaCategory(n)
idMultimediaCategory = n
End Sub
Public Function getUrl()
getUrl = url
End Function
Public Sub setUrl(n)
url = n
End Sub
Public Function getDescription()
getDescription = description
End Function
Public Sub setDescription(n)
description = n
End Sub
Public Function getAutoreIllustrazioni()
getAutoreIllustrazioni = autoreIllustrazioni
End Function
Public Sub setAutoreIllustrazioni(n)
autoreIllustrazioni = n
End Sub
Public Function getLinkAutoreIllustrazioni()
getLinkAutoreIllustrazioni = linkAutoreIllustrazioni
End Function
Public Sub setLinkAutoreIllustrazioni(n)
linkAutoreIllustrazioni = n
End Sub
Public Sub setDescOccasion(n)
DescOccasion = n
End Sub
End class
%>
<%
'--------------------CONFIGURAZIONI GENERALI-----------------------------------
session.LCID = 1040
Application("flagUrl")="\immagini\bandiere\"
Application("multimediaUrl")="\multimediaFile\testi\multimedia\"
Application("root")="/"
Application("siteUrl")="www.filastrocche.it"
dim adminPage, i, objTesti, objFoto, objCreazioni
'--- CONFIGURAZIONE GIF TIPOLOGIE -----
Function getGifCategory(idCategory)
dim gifFile
select case(idCategory)
case 14
gifFile="musicista.gif"
case 11
gifFile="aereo.gif"
case 21
gifFile="angelone.gif"
case 23
gifFile="matitona.gif"
case 22
gifFile="tacco.gif"
case 2
gifFile="gattone.gif"
case 8
gifFile="gallina.gif"
case 24
gifFile="cavallo.gif"
case 25
gifFile="torta.gif"
case 26
gifFile="orologio.gif"
case 27
gifFile="castello.gif"
case 29
gifFile="maialino.gif"
case 28
gifFile="elefante1.gif"
case 30
gifFile="oca1.gif"
case 31
gifFile="penna.gif"
case else
gifFile=""
end select
getGifCategory = gifFile
End function
Sub checkSession()
if Session("username")="" then
response.redirect(Application("root")&"administration/login/loginForm.asp")
end if
End Sub
Function twoDigitNumber (number)
if len(number)=0 then
twoDigitNumber ="00"
else
if len(number)=1 then
twoDigitNumber = "0" & number
else
twoDigitNumber = number
end if
end if
End Function
Function prepareSql(s)
prepareSql = replace(s, "'","''")
End function
Function existsFile(url)
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(url) then
existsFile="true"
else
existsFile="false"
end if
set fs = nothing
end function
Function getFileExtension(url)
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(url) then
getFileExtension = fs.GetExtensionName(url)
else
getFIleExtension = ""
end if
set fs = nothing
end function
Sub copyFile(sorgente, destinazione)
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(sorgente) then
fs.copyFile sorgente, destinazione
end if
set fs = nothing
end sub
Sub deleteFile(url)
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(url) then
fs.deleteFile(url)
end if
set fs = nothing
end sub
%>
<%' *********************** Funzioni di connessione al DB ***********************
'le vecchie funzioni del db sono state sostituite con le nuove%>
<%
dim DBserver, DBname, DBuser, DBpassword
'---------------------------------------
'LOCALE
'DBserver = "localhost"
'DBname = "filastrocche"
'DBuser = "root"
'DBpassword = "root"
'TEST
'DBserver = "10.0.0.37"
'DBname = "filastrocche"
'DBuser = "filastrocche"
'DBpassword = "filastrocche"
'PRODUZIONE
DBserver = "localhost"
DBname = "filastrocche"
DBuser = "filaweb"
DBpassword = "08F1l4&IQ"
'---------------------------------------
Dim connectionString
'MySql
connectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&DBserver&";DATABASE="&DBname&";USER="&DBuser&";PASSWORD="&DBpassword&";OPTION=3;"
function openConnection()
'on error resume next
dim conn
set conn = server.createobject("adodb.connection")
conn.open connectionString
set openConnection = conn
end function
sub closeConnection(conn)
'on error resume next
conn.close
set conn = nothing
end sub
function getRS(sql)
'on error resume next
dim conn,rs
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open connectionString
rs.cursorlocation = 3 'uso un record client side
rs.open sql,conn,3,4,1
set rs.activeconnection = nothing
set getRS = rs
conn.close
set conn = nothing
set rs = nothing
end function
sub executeQuery(sql)
'on error resume next
dim conn
set conn = server.createobject("adodb.connection")
if conn.connectionString = "" then conn.open connectionString
conn.execute sql
conn.close
set conn = nothing
end sub
function getField(fieldName, tableName, keyName, keyValue)
dim sql, rs
sql = "select "&fieldName&" as result from "&tableName&" where "&keyName&"="&keyValue
set rs = getRs(sql)
getField = rs("result")
set rs = nothing
end function
Sub errorHandling(url)
'Exit Sub
if err.number <> 0 then
Dim msg
msg = "Errore del database: "& err.description
if url="" then url=Application("root")&"index.asp"
response.redirect(Application("root")&"messagePage.asp?msg="&server.urlEncode(msg)&"&url="&server.urlEncode(url))
end if
end sub
Function MakeSql(sql_value)
dim strValue
strValue = sql_value
'restituisce la stringa sql per il null senza apostrofi
If strValue = "" OR IsNull(strValue) Then
MakeSql = "NULL"
Else
strValue = Replace(strValue, "'", "’")
MakeSql = "'" & strValue & "'"
End If
End Function
'esempi di utilizzo
'----
'set rs = getRS("select * from DT_GROUP")
'response.write(rs("DESC_GROUP"))
'----
'executeQuery("update DT_GROUP set DESC_GROUP='admin' where ID_GROUP='5'")
%>
<%'
'VECCHIE FUNZIONI DA CANCELLARE
'PRODUZIONE
'stringaConnessione = "provider=sqloledb;data source=62.173.167.174;network library=dbmssocn;"
'stringaConnessione = stringaConnessione & "database=filastrocche;uid=FilastAdmn;pwd=hor@128tyz$$2007;"
'function dbopen()
' set conn = server.createobject("adodb.connection")
' s = "provider=sqloledb;data source=62.173.167.174;"
' s = s & "network library=dbmssocn;database=filastrocche;"
' s = s & "uid=FilastAdmn;pwd=hor@128tyz$$2007;"
' conn.open s
'end function
'LOCALE
'stringaConnessione = "provider=sqloledb;data source=INFOQUIDEM2;network library=dbmssocn;"
'stringaConnessione = stringaConnessione & "database=filastrocche;uid=FilastAdmn;pwd=hor@128tyz$$2007;"
'function dbopen()
' set conn = server.createobject("adodb.connection")
's = "provider=sqloledb;data source=INFOQUIDEM2;"
's = s & "network library=dbmssocn;database=filastrocche;"
's = s & "uid=FilastAdmn;pwd=hor@128tyz$$2007;"
's = "Provider=sqloledb;Data Source=INFOQUIDEM2;Initial Catalog=filastrocche;User Id=FilastAdmn;Password=hor@128tyz$$2007;"
' conn.open s
'end function
'function rsopen(sql)
' set recs = server.createobject("adodb.recordset")
' recs.open sql,conn,3,1
'end function
'function rsclose()
' recs.close
' set recs = nothing
'end function
'function dbclose()
' conn.close
' set conn = nothing
'end function
'function dbexec(sql)
' conn.execute sql
'end function
'function apriRecordset(sql,stringaConnessione)
' dim connessione,recordset
' set connessione = server.createobject("adodb.connection")
' set recordset = server.createobject("adodb.recordset")
' connessione.open stringaConnessione
' recordset.cursorlocation = 3
' recordset.open sql,connessione,3,4,1
' set recordset.activeconnection = nothing
' set aprirecordset = recordset
' connessione.close
' set recordset = nothing
' set connessione = nothing
'end function
'sub eseguiQuery(sql,stringaConnessione)
' dim connessione
' set connessione = server.createobject("adodb.connection")
' if connessione.connectionstring = "" then connessione.open stringaConnessione
' connessione.execute sql
' connessione.close
' set connessione = nothing
'end sub
' end global variables %>
<%
tipologia = request("tipologia")
categoria = request("categoria")
%>
L'albero magico
