Kan du hjælpe her?
<%
Response.Expires = -1
Response.AddHeader "pragma", "no-cache"
Response.CacheControl = "no-cache"
Response.AddHeader "cache-control", "no-store"
response.Charset = "UTF-8"
Response.ContentType = "text/xml" 'fortæl at dette er et xml dokument
Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") 'opret xml dokument objekt
xmldoc.preserveWhiteSpace = true
Set rootelement = xmldoc.createElement("images") 'opret root element
'xmldoc.appendChild rootelement
%>
<?xml version="1.0" encoding="UTF-8"?>
<gallery>
<album title="slideshow" description="skole slideshow">
<%
Dim LoopCount
Dim Zerro
For LoopCount = 1 to 315
if LoopCount < 10 then Zerro= "00"
if Loopcount > 9 and Loopcount < 100 then Zerro= "0"
if Loopcount > 99 then Zerro= EMPTY
xmldoc = xmldoc & "<img src=""
http://www.domain.dk/img"&Zerro&LoopCount&".jpg"" />"
Response.Write LoopCount
Next
Response.Write xmldoc.Xml
Set xmldoc = Nothing
%>
</album>
</gallery>