Chi mi traduce la pagina:)

[pensieri]

Chi mi traduce la pagina:)

Vorrei adattare questa pagina (che prende in ingresso un catalogo xml)
da asp ad php ,il problema è che non conosco php:)
Chi vuole essere cosi magnanimo da farlo:)

<%
Dim newurl
Dim objXML
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = false
objXML.load(Server.MapPath("kelkooAPI.xml"))

Dim objOffertUrl, objOffertDesc, objOffertImg
Set objOffertUrl = objXML.getElementsByTagName("Offer/Url")
Set objOffertDesc = objXML.getElementsByTagName("Offer/ProductName")
Set objOffertImg = objXML.getElementsByTagName("Offer/ListImage/Url")

Dim offerteTot, offertaCorrente
offerteTot = objOffertUrl.length
Randomize
offertaCorrente = 1 + CInt(Rnd() * offerteTot)
objOffertUrl.Item(offertaCorrente)

Dim url, desc, img
url=  objOffertUrl.Item(offertaCorrente).Text
desc =  objOffertDesc.Item(offertaCorrente).Text
img =  objOffertImg.Item(offertaCorrente).Text

Set objOffertUrl = Nothing
Set objOffertDesc = Nothing
Set objOffertImg = Nothing
Set objXML = Nothing
newurl=replace( url, "g=17190700",  "g=17190700&epi=Emarap")

%>

[pensieri]

dai mettetevi una mano sulla coscienza:D