" 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 " • "&nodeList(s).ChildNodes(1).Text&" | "
next
%>
" 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 " • "&nodeList(s).ChildNodes(1).Text&" | "
next
%>
" 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 " • "&nodeList(s).ChildNodes(1).Text&" | "
next
%>
" 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 " • "&nodeList(s).ChildNodes(1).Text&" | "
next
%>
|
|
|
<% 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 " "
%>
<%
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=" "
end if
if node.ChildNodes(6).Text<>"" and node.ChildNodes(6).Text<>"Seleziona" then
galleryyes=" "
end if
response.Write " "&left(node.ChildNodes(1).Text,60)&punti&" | "
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
Next
Response.Write " "
%>
|
<% 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 " "&node.ChildNodes(1).Text&" "&node.ChildNodes(2).Text&" | "
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
Next
Response.Write " "
%>
|
<% 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 " "&downloadyes&" "&node.ChildNodes(2).Text&" | "
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
Next
Response.Write " "
%>
|
<% 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
%>
|
<% if foto<>"Seleziona" and scatnews="Seleziona" then %>
<% end if %>
<% if foto<>"Seleziona" and scatnews<>"Seleziona" then %>
<% 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
%>
<%
' 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 " • "&AnodeList(s).ChildNodes(1).Text&" | "
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 " "&(node.ChildNodes(2).Text)&" | "
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
Next
Response.Write " "
%>
|
<% 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 " "
%>
<%
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 " "
%>
<%
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 "Messaggio di servizio Nessun risultato per la ricerca effettuata con il termine: "&sSearchkey&"
Riprovate con un altro termine. | "
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 " | | " & MyResult(3) & "
| "
iColonnecount=iColonnecount+1
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
next
if numitem=1 then
MyResult=split(myResultSearch(1),"^")
Response.write " | | " & MyResult(3) & "
| "
end if
end if
%>
|
<%
'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 " "&left(node.ChildNodes(1).Text,80)&punti&" "&replace(node.ChildNodes(2).Text,chr(10)," ")&" | "
if iColonnecount=iColonne then
Response.Write " | "
iColonnecount=0
end if
Next
Response.Write " "
%>
|
<% 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 %>
<% end if %>
|
|