<% file_repository=percorso_download 'paginaprecedente = request.servervariables("HTTP_REFERER") idcliente=request("idcliente") set cnn = server.createobject("ADODB.connection") cnn.open "dlpaesi" set rs = server.createobject("ADODB.recordset") sql="SELECT scadenza FROM clienti WHERE IDcliente=" & idcliente & " ;" rs.open sql , cnn , adOpenStatic , adLockReadOnly rs.movefirst scadenza=rs("scadenza").value rs.close set rs=nothing if scadenza < now() then response.redirect "scaduta.html" %> Pagine aggiornabili <% '//////////////////carica le impostazioni set rs1 = server.createobject("ADODB.recordset") sql="SELECT Impostazioni.IDcliente, Impostazioni.testata, Impostazioni.larghezza1, " & _ "Impostazioni.larghezza2, Impostazioni.larghezza3, Impostazioni.larghezza4, Impostazioni.larghezza5, " & _ "Impostazioni.larghezza6, Impostazioni.intestazione1, Impostazioni.intestazione2, Impostazioni.intestazione3, " & _ "Impostazioni.intestazione4, Impostazioni.intestazione5, Impostazioni.intestazione6, Impostazioni.sfondotabella, " & _ "Impostazioni.sfondotitoli, Impostazioni.sfondopagina, Impostazioni.colorecaratterititoli, Impostazioni.colorecaratteriinserzioni, " & _ "Impostazioni.grigliaintestazioni, Impostazioni.grigliainserzioni, Impostazioni.email, Impostazioni.descrizioneemail, " & _ "Impostazioni.colonnalink, Impostazioni.file FROM Impostazioni WHERE (((Impostazioni.IDcliente)=" & idcliente & "));" rs1.open sql , cnn , adOpenStatic , adLockReadOnly rs1.movefirst dim larg(6) for f=1 to 6 larg(f)=rs1("larghezza" & f).value next sfondotabella=rs1("sfondotabella").value sfondotitoli=rs1("sfondotitoli").value sfondopagina=rs1("sfondopagina").value colorecaratterititoli=rs1("colorecaratterititoli").value colorecaratteriinserzioni =rs1("colorecaratteriinserzioni").value gint=rs1("grigliaintestazioni").value gins=rs1("grigliainserzioni").value colonnalink=rs1("colonnalink").value colonnadownload=rs1("file").value email=rs1("email").value descrizioneemail=rs1("descrizioneemail").value response.write "" response.write "
" response.write "
" response.write "
" '//////////////////TESTATA response.write "" response.write "" response.write "" response.write "" response.write "

" '//////////////////INTESTAZIONI if gint=-1 then response.write "" else response.write "
" end if response.write "" for f=1 to 6 if larg(f)>0 then response.write "" next response.write "" '//////////////////INSERZIONI '//////////////////carica le inserzioni set rs2 = server.createobject("ADODB.recordset") sql="SELECT Clienti.IDcliente, Inserzioni.Coll1, Inserzioni.Coll2, Inserzioni.Coll3, Inserzioni.Coll4, " & _ "Inserzioni.Coll5, Inserzioni.Coll6, Inserzioni.file, Inserzioni.IDinserzione " & _ "FROM (Clienti LEFT JOIN Impostazioni ON Clienti.IDcliente = Impostazioni.IDcliente) LEFT JOIN Inserzioni ON Clienti.IDcliente = Inserzioni.IDcliente " & _ "WHERE ((Clienti.IDcliente)=" & idcliente & ") ORDER BY Inserzioni.IDinserzione desc;" rs2.open sql , cnn , adOpenStatic , adLockReadOnly rs2.movefirst do while not rs2.eof response.write "" lc=0 for f=1 to 6 if larg(f)>0 then if colonnadownload=f then link="" & left(acapo(rs2("coll" & f).value),50) & "" response.write "" else if colonnalink=f then if left(acapo(rs2("coll" & f).value),50)<>"" then link=left(acapo(rs2("coll" & f).value),50) & "...leggi" else link=" " end if response.write "" else response.write "" end if lc=lc+1 end if end if next response.write "" rs2.movenext loop '////////////////////////////////////////////////////////////// inizio gestione mail if (email <> "") AND (descrizioneemail <> "") then response.write "
" & rs1("intestazione" & f).value & " 
" & link & " " & link & " " & acapo(rs2("coll" & f).value) & " 
" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
" response.write "" & descrizioneemail & "" response.write "
" end if '////////////////////////////////////////////////////////////////fine gestione mail response.write "" response.write "
" response.write "
" rs1.close set rs1=nothing rs2.close set rs2=nothing cnn.close set cnn=nothing %>