האם הקוד הזה נכון ליצרת קובץ XML ושמירתו

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!– #include file="filedsn.asp" –>

<?xml version="1.0" encoding="windows-1255"?>

<%
Response.ContentType="text/xml"


set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from pagesinfo;"

rs.Open SQL
%>

<Customers>

<%do until rs.EOF%>
    <Customer ID="<% =rs("titlpge") %>">
        <Phone><% =rs("category") %></Phone>
        <CompanyName><% =rs("id") %></CompanyName>
    </Customer>

<%
rs.movenext
loop
%>

</Customers>

<%Call savexml(ditealspage.xml) %>

<%
Sub savexml(filexml)

VirtualDirectory = "filesphotos"
PhisicalDirectory = Server.MapPath(VirtualDirectory)
Dim FSO  
     Set FSO = Server.CreateObject("Scripting.FileSystemObject")  
     FSO.CreateTextFile  PhisicalDirectory & "/" & filexml
     Set FSO = Nothing  
End Sub
%>