<%@LANGUAGE="VBSCRIPT"%> <% Session("urlwebadmin")=urlwebadmin %> <% if request.querystring("setgallery")<>"" then ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true xmldoc.load urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_fotocatgallery.xml" 'xml.load (""&urlsite&"/public/to_xml/full_www4stagioniit.xml") If xmldoc.parseError.errorCode <> 0 Then response.write "Server non contattabile." response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set oNodes = xmldoc.selectNodes("//root/ricerca[idcat='"&request.querystring("setgallery")&"']/idcat") idcatgallery=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[idcat='"&request.querystring("setgallery")&"']/nomecat") nomecatgallery=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[idcat='"&request.querystring("setgallery")&"']/desc") descgallery=oNodes(0).Text end if %> <%=request.querystring("addt")%> - <%=titolo%>
CERCA:
Cerca un termine nel sito.
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_img/"&coduser&"_img_imgrndm/"&coduser&"_imgrndm.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca") intcount=nodeList.length-1 response.write("" & vbCrLf) response.write("")%>
<% if Session("codicecliente")="" then %>
 
UserID:
Password:

<%=titolomenutop(5).Text%> <%=titolomenutop(5).Text%>
<%=titolomenutop(6).Text%> <%=titolomenutop(6).Text%>
<% end if %> <% if Session("codicecliente")<>"" then %>
<%=titolomenutop(4).Text%> <%=titolomenutop(4).Text%>
Chiudi sessione Logout
<% end if %>
<%=titolomenutop(8).Text%> <%=titolomenutop(11).Text%> <%=titolomenutop(13).Text%> <%=titolomenutop(12).Text%> <%=titolomenutop(9).Text%> Homepage

<%=titolomenutop(28).text%>

Iscrizione MailingList:
<%=testomenutop(1).Text%>

');" style="cursor:hand"> ');"><%=titoloscatnews(0).text%>
" width="100%" border="0" cellpadding="1" cellspacing="1" class="titolicentralimarginsub" style="display:block"> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='"&titoloscatnews(0).text&"']") for s=0 to nodeList.length-1 response.write "" next %>
 • "&nodeList(s).ChildNodes(1).Text&"
');" style="cursor:hand"> ');"><%=titoloscatnews(1).text%>
" width="100%" border="0" cellpadding="1" cellspacing="1" class="titolicentralimarginsub" style="display:block"> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='"&titoloscatnews(1).text&"']") for s=0 to nodeList.length-1 response.write "" next %>
 • "&nodeList(s).ChildNodes(1).Text&"
');" style="cursor:hand"> ');"><%=titoloscatnews(2).text%>
" width="100%" border="0" cellpadding="1" cellspacing="1" class="titolicentralimarginsub" style="display:block"> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='"&titoloscatnews(2).text&"']") for s=0 to nodeList.length-1 response.write "" next %>
 • "&nodeList(s).ChildNodes(1).Text&"
');" style="cursor:hand"> ');"><%=titoloscatnews(3).text%>
" width="100%" border="0" cellpadding="1" cellspacing="1" class="titolicentralimarginsub" style="display:block"> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='"&titoloscatnews(3).text&"']") for s=0 to nodeList.length-1 response.write "" next %>
 • "&nodeList(s).ChildNodes(1).Text&"













<% if request.querystring("idmenutop")<>"" then %> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true xmldoc.load urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_txt_a.xml" If xmldoc.parseError.errorCode <> 0 Then response.write "Server non contattabile." response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idmenutop")&"']/id") id=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idmenutop")&"']/titolo") titolo=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idmenutop")&"']/testo") testo=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idmenutop")&"']/foto") foto=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idmenutop")&"']/download") download=oNodes(0).Text if foto<>"" and foto<>"Seleziona" and request.querystring("ctrlimg")<>"no" then fotop="

" end if response.write fotop&"

"&titolo&"

"&replace(testo,chr(10),"
")&"
" %> <% end if %> <% if id="305200711912" then Response.Write "
" %>
Nome: *
Cognome: *
Indirizzo:
Cittą:
CAP:
Telefono:
FAX:
Email: *
Note:
  *Dati obbligatori
   
 
<% Response.Write "
" end if %> <% if id="27520071253" then Response.Write "
" %>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=12 iColonne=1 iColonnecount=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s")+iPageSize end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='Seleziona']") 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=0 End If 'set your stop index If nodeList.length-1>iStartIndex Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>nodeList.length-1 Then iStopIndex=nodeList.length-1 End IF %>
Totale news in archivio: <%=nodeList.length%> 
<% Response.Write "" 'navigate list and print records For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#EFF0F0" else bgcolornewshome="#F5F5F5" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 if len(node.ChildNodes(1).Text)>60 then punti="..." else punti="" end if if node.ChildNodes(8).Text<>"Seleziona" then downloadyes=" " end if if node.ChildNodes(4).Text<>"" then linkyes=" Link" end if if node.ChildNodes(6).Text<>"" and node.ChildNodes(6).Text<>"Seleziona" then galleryyes=" " end if response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
 "&left(node.ChildNodes(1).Text,60)&punti&"
" %>
<% Response.Write "
" %>
<% 'set and display the total number of records iTotalRecs = nodeList.length 'print navigation controls If (iStartIndex + iStopIndex)>iPageSize Then Response.Write " PRIMO " End If If (iStartIndex + iStopIndex)>iPageSize Then Response.Write "| INDIETRO | " End If If iStopIndex+1AVANTI |" End If If iStopIndex+1ULTIMO |" End If %>

<% end if %> <% '+++++++++++ Elenco link ++++++++++++++ if id="305200721859" then Response.Write "
" %>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=12 iColonne=1 iColonnecount=0 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='Link']") %>
Totale Link in archivio: <%=nodeList.length%> 
<% Response.Write "" 'navigate list and print records For i=0 to nodeList.length-1 if i mod 2 then bgcolornewshome="#EFF0F0" else bgcolornewshome="#F5F5F5" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
 "&node.ChildNodes(1).Text&"
"&node.ChildNodes(2).Text&"
" %>
<% Response.Write "
" %> <% end if %> <% '+++++++++++ Elenco Download ++++++++++++++ if id="305200722454" then Response.Write "
" %>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=12 iColonne=1 iColonnecount=0 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='Download']") %>
Totale Download in archivio: <%=nodeList.length%> 
<% Response.Write "" 'navigate list and print records For i=0 to nodeList.length-1 if i mod 2 then bgcolornewshome="#EFF0F0" else bgcolornewshome="#F5F5F5" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 if node.ChildNodes(8).Text<>"Seleziona" then downloadyes=" "&node.ChildNodes(1).Text&"" end if response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
 "&downloadyes&"
"&node.ChildNodes(2).Text&"
" %>
<% Response.Write "
" %> <% end if %> <% if request.querystring("idnews")<>"" then ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true xmldoc.load urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" If xmldoc.parseError.errorCode <> 0 Then response.write "Server non contattabile." response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/titolo") titolo=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/testo") testo=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/foto") foto=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/linkk") link=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/download") download=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/fotogallery") fotogallery=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[id='"&request.querystring("idnews")&"']/scat") scatnews=oNodes(0).Text if download<>"" and download<>"Seleziona" then downloadp=urlwebadmin&"/PUBLIC/xmlasphosting/"&coduser&"/"&coduser&"_img/"&coduser&"_img_download/"&download end if %>
::<%=titolo%>
 
<% if foto<>"Seleziona" and scatnews="Seleziona" then %>
" rel="lightbox[example]"><%=""%>
<% end if %> <% if foto<>"Seleziona" and scatnews<>"Seleziona" then %>
" rel="lightbox[example]"><%=""%>
<% end if %>
<%=testo%>
<% if downloadp<>"" then %> <% end if %> <% if link<>"" and link<>"Seleziona" then %> <% end if %> <% if fotogallery<>"" and fotogallery<>"Seleziona" then %> Link a galleria fotograficaGalleria fotografica <% end if %>
<% end if %> <% if request.querystring("idnews")="3052007162651" then ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_scatnews.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca") %>
<% for i=0 to 8 Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio %>
')> <% response.write ""&node.ChildNodes(1).Text&""%>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set Axmldoc = Server.CreateObject("Microsoft.XMLDOM") Axmldoc.async = False Axmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" Axmldoc.load (""&urlsite&"") If Axmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set AnodeList = Axmldoc.documentElement.getElementsByTagName("ricerca[scat='"&node.ChildNodes(1).Text&"']") for s=0 to AnodeList.length-1 response.write "" next %> <% next %>
<% end if %> <% if request.querystring("setgallery")<>"" and request.querystring("scatgallery")<>"" then %> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_scatgallery.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[nomescat='"&request.querystring("scatgallery")&"']") %> <% response.Write "
"&(nodeList(0).ChildNodes(2).Text)&"" response.write "
"&replace((nodeList(0).ChildNodes(3).Text),chr(10),"
")&"
" %>
<% Response.Write "
" %> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_fotogallery_"&(nodeList(0).ChildNodes(1).Text)&".xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=30 iColonne=5 iColonnecount=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s")+iPageSize end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scatgallery='"&request.querystring("scatgallery")&"']") 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=0 End If 'set your stop index If nodeList.length-1>iStartIndex Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>nodeList.length-1 Then iStopIndex=nodeList.length-1 End IF %> <% 'navigate list and print records For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#F0F0F0" else bgcolornewshome="#DFDEDE" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next %>
<% Response.Write "
" %>
<% 'set and display the total number of records iTotalRecs = nodeList.length 'print navigation controls If (iStartIndex + iStopIndex)>iPageSize Then Response.Write " PRIMO " End If If (iStartIndex + iStopIndex)>iPageSize Then Response.Write "| INDIETRO | " End If If iStopIndex+1AVANTI |" End If If iStopIndex+1ULTIMO |" End If %>
<% Response.Write "
" %> <% end if %> <% if request.querystring("setgallery")<>"" and request.querystring("scatgallery")="" and request.querystring("idfoto")="" then %>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_scatgallery.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=15 iColonne=1 iColonnecount=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s")+iPageSize end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[idcat='"&request.querystring("setgallery")&"']") 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=0 End If 'set your stop index If nodeList.length-1>iStartIndex Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>nodeList.length-1 Then iStopIndex=nodeList.length-1 End IF %> <% Response.Write "" 'navigate list and print records For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#F0F0F0" else bgcolornewshome="#DFDEDE" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
 "&(node.ChildNodes(2).Text)&"
" %>
<% Response.Write "
" %>
<% 'set and display the total number of records iTotalRecs = nodeList.length 'print navigation controls If (iStartIndex + iStopIndex)>iPageSize Then Response.Write " PRIMO " End If If (iStartIndex + iStopIndex)>iPageSize Then Response.Write "| INDIETRO | " End If If iStopIndex+1AVANTI |" End If If iStopIndex+1ULTIMO |" End If %>
<% end if %> <% if id="2652007234658" then ragsoc="" indirizzo="" if request.querystring("azione")="userreg" then azione="registrazione" userokredir=""&idmenutop(15).Text&"" gg = WeekDay(date) m =month(date) aaaa =year(date) s =second(time) mi = minute(time) h = hour(time) codnum=gg&m&aaaa&h&mi&s end if if request.querystring("azione")="usermod" then azione="modifica" userokredir=""&idmenutop(14).Text&"" ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=(urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_reguser.xml") xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end End If Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/id") codnum=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/codicecliente") codicecliente=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/livello") livello=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/userid") userid=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/password") password=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/ragsoc") ragsoc=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/nome") nome=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/cognome") cognome=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/piva") piva=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/codfisc") codfisc=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/indirizzo") indirizzo=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/civico") civico=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/cap") cap=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/citta") citta=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/provincia") provincia=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/telefono") telefono=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/fax") fax=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/cellulare") cellulare=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/email") email=DeMLis(oNodes(0).Text) Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/privacy") privacy=oNodes(0).Text Set oNodes = xmldoc.selectNodes("//root/ricerca[codicecliente='"&Session("codicecliente")&"']/note") note=DeMLis(oNodes(0).Text) end if Response.Write "
" %>
<% if azione="registrazione" then %> <% else %> <% end if %>
UserID:
Password:
Ragione sociale:
Nome:
Cognome:
P.IVA:
Codice fiscale:
Indirizzo: Civico:
Cittą:
CAP: Provincia:
Telefono:
Cellulare:
Fax:
Email:
  <% if privacy<>"y" or privacy="" then %> Privacy <% else %>
Accettata. <% end if %>
Note:
   
 
<% Response.Write "
" end if %> <% if id="2652007234739" then if request.querystring("azione")="userreg" then azione="registrazione" gg = WeekDay(date) m =month(date) aaaa =year(date) s =second(time) mi = minute(time) h = hour(time) codnum=gg&m&aaaa&h&mi&s end if if request.querystring("azione")="usermod" then azione="modifica" end if Response.Write "
" %>
Email:
   
 
<% Response.Write "
" end if %> <% if request.form("parola")<>"" or request.querystring("parola")<>"" then %>
<% iPageSize=11 iColonne=1 iColonnecount=0 controlloesito=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s") end if if request.form("parola")<>"" then sSearchkey = request.form("parola") end if if request.querystring("parola")<>"" then sSearchkey = request.querystring("parola") end if response.write "

Esito ricerca per "&sSearchkey&"

" Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true xmldoc.load urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_news.xml" If xmldoc.parseError.errorCode <> 0 Then response.write "Server non contattabile." response.end end if ' RECUPERO IL NODO CHE MI INTERESSA Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca") totrecord=nodeList.length-1 for i=0 to totrecord Set node = nodeList((nodeList.length-1)-i) limes=split("^chk^"&lettera&"^"&node.ChildNodes(0).Text&"^"&node.ChildNodes(1).Text&"^"&node.ChildNodes(2).Text&"^"&node.ChildNodes(9).Text&"^"&node.ChildNodes(10).Text,"++++++") chktest=Filter(limes,sSearchkey,-1, 1) if uBound(chktest)=>0 then ResultSearch=ResultSearch&limes(0) controlloesito=controlloesito+1 limes="" end if next myResultSearch=split(ResultSearch,"chk") numitem=UBound(myResultSearch) Set xmldoc = Nothing %> <% if controlloesito=0 then Response.Write "" end if %> <% if controlloesito=>1 then 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=1 End If 'set your stop index If numitem>int(iStartIndex) Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>numitem Then iStopIndex=numitem End IF For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#FFFFFF" else bgcolornewshome="#F6FBFF" end if MyResult=split(myResultSearch(i),"^") Response.write "" iColonnecount=iColonnecount+1 if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if next if numitem=1 then MyResult=split(myResultSearch(1),"^") Response.write "" end if end if %>
Messaggio di servizio
Nessun risultato per la ricerca effettuata con il termine: "&sSearchkey&"

Riprovate con un altro termine.
" & MyResult(3) & "
" & MyResult(3) & "

<% 'print navigation controls If (iStartIndex + iStopIndex)>iPageSize Then Response.Write " PRIMO " End If If (iStartIndex + iStopIndex)>iPageSize Then Response.Write "| INDIETRO | " End If If iStopIndex+1AVANTI |" End If If iStopIndex+1ULTIMO |" End If %>


<% end if %> <% if request.querystring("sezione")="forum" then %>
<% Response.Write "
" %>
<% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_catforum.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=12 iColonne=1 iColonnecount=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s")+iPageSize end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[status=1]") 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=0 End If 'set your stop index If nodeList.length-1>iStartIndex Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>nodeList.length-1 Then iStopIndex=nodeList.length-1 End IF %> <% Response.Write "" 'navigate list and print records For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#F0F0F0" else bgcolornewshome="#DFDEDE" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 if len(node.ChildNodes(1).Text)>80 then punti="..." else punti="" end if response.Write "" if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
  "&left(node.ChildNodes(1).Text,80)&punti&"
"&replace(node.ChildNodes(2).Text,chr(10),"
")&"
" %>
<% Response.Write "
" %>
<% 'set and display the total number of records iTotalRecs = nodeList.length 'print navigation controls If (iStartIndex + iStopIndex)>iPageSize Then Response.Write " PRIMO " End If If (iStartIndex + iStopIndex)>iPageSize Then Response.Write "| INDIETRO | " End If If iStopIndex+1AVANTI |" End If If iStopIndex+1ULTIMO |" End If %>
<% end if %> <% if request.QueryString("readpostforum")<>"" then %>
<% if Session("codicecliente")<>"" then %> <% else %> <% end if %>
 Apri una nuova discussione relativa a <%=request.QueryString("addt")%>.<%=titolomenutop(31).text%>
<%=testomenutop(31).text%>
<% Response.Write "
" %> <% ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = False xmldoc.setProperty "ServerHTTPRequest", true urlsite=urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_postforum.xml" xmldoc.load (""&urlsite&"") If xmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end end if iPageSize=14 iColonne=1 iColonnecount=0 if request.querystring("s")>0 then iStartIndex=request.querystring("s") iStopIndex=request.querystring("s")+iPageSize end if 'create a list of all item Set nodeList = xmldoc.documentElement.getElementsByTagName("ricerca[scat='"&request.querystring("addt")&"']") 'make sure your start index is valid If iStartIndex<0 or iStartIndex=0 Then iStartIndex=0 End If 'set your stop index If nodeList.length-1>iStartIndex Then iStopIndex = iStartIndex+iPageSize end if 'validate your stop index If iStopIndex>nodeList.length-1 Then iStopIndex=nodeList.length-1 End IF %> <% Response.Write "" 'navigate list and print records For i=iStartIndex to iStopIndex if i mod 2 then bgcolornewshome="#F0F0F0" else bgcolornewshome="#DFDEDE" end if Set node = nodeList((nodeList.length-1)-i) ' paginazione dal pił recente al pił vecchio 'Set node = nodeList(i) ' paginazione dal pił vecchio al pił recente iColonnecount=iColonnecount+1 '------------ inizio gestione re:post ------------ ' APRO UN NUOVO OGGETTO XMLDOM E CARICO IL FILE XML DALLO STESSO SERVER Set cxmldoc = Server.CreateObject("Microsoft.XMLDOM") cxmldoc.async = False cxmldoc.setProperty "ServerHTTPRequest", true cxmldoc.load urlwebadmin&"/public/xmlasphosting/"&coduser&"/"&coduser&"_xml/"&coduser&"_reforum.xml" 'xml.load (""&urlsite&"/public/to_xml/full_www4stagioniit.xml") If cxmldoc.parseError.errorCode <> 0 Then response.write "Attenzione!!!
In questo momento il Server non contattabile.
Riprovare fra qualche minuto.
" response.end End If 'create a list of all item Set cnodeList = cxmldoc.documentElement.getElementsByTagName("ricerca[idpost='"&node.ChildNodes(0).Text&"']") '---------- Post principali ---------- if Session("codicecliente")<>"" then addrepost=" " else addrepost="" end if if cnodeList.length>0 then response.Write "" else response.write "" end if response.write "" '------------------------------------- response.write "" '------------ fine gestione re:post ------------ if iColonnecount=iColonne then Response.Write "" iColonnecount=0 end if Next Response.Write "
 Re:"&cnodeList.length&""&addrepost&""&addrepost&""&node.ChildNodes(2).Text&"
"&replace(node.ChildNodes(3).Text,chr(10),"
")&"
" %> " width="100%" border="0" cellpadding="1" cellspacing="2" class="txtprincipale" style="display:none">

  Re: <%=node.ChildNodes(2).Text%>
Testo:
Firma: " disabled> ">

<% response.write "
" %>
<% end if %>
























  UFFICIO del PIANO
Via Roma 9 - 92019 Sciacca (AG)
tel. 0925 20538 fax 0925 20661

Concept & design by www.comunicas.it - Tutti i contenuti appartengono ai leggittimi proprietari, vietata la riproduzione anche parziale.
Inviaci una email:  <%=emailuser%>