- Home
- Categorie
- Coding e Sistemistica
- PHP
- Chi mi traduce la pagina:)
-
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")
%>
-
dai mettetevi una mano sulla coscienza:D