<% Response.ContentType="text/xml" Dim url_id Dim intCurrPos url_var=request.querystring("id") Response.Write "" For intCurrPos = 0 To 4 Response.Write "" Next Response.Write "" %>