<%
co = 0
cl = 0
colore1 = "ffd700"
colore2 = "ee82ee"
colore3 = "FFE4CA"
colore4 = "ffff00"
colore5 = "ff8c00"
colore6 = "00ff90"
colore7 = "ff69b4"
colore8 = "F0E68C"
colore9 = "E9967A"
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.load Server.MapPath("opodo.xml")
Dim name, longDescription, deeplink
Set name = objXmlDom.getElementsByTagName("name")
Set longDescription = objXmlDom.getElementsByTagName("longDescription")
Set deepLink = objXmlDom.getElementsByTagName("deepLink")
Dim i
i = 0
For i = 0 To name.length - 1
cl = cl+1
%>
<%
if cl = 9 then cl = 0 end if
co = co+1
Response.Write ""
Response.Write name(i).Text
Response.write ""
Response.Write " "
Response.Write longDescription(i).Text
Response.Write " "
Response.Write "Proposta N. "
Response.Write co
%>
<%
Next
Set name = Nothing
Set longDescription = Nothing
Set deepLink = Nothing
Set objXmlDom = Nothing
%>