fafa^mx
Member
کد:
<% response.ContentType="text/xml"
response.Write("<?xml version='1.0' encoding='UTF-8'?>")
dim con,rec
set con = server.CreateObject("Adodb.connection")
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.connectionString = "Data Source =" & server.MapPath("xml.mdb")
con.open
set rec = server.CreateObject("Adodb.Recordset")
rec.open "SELECT * FROM data ORDER BY ID DESC", con,1,2
do while not rec.EOF
path = rec("path")
descriptions = rec("description")
rate = rec("rate")
dates = rec("date")
target = rec("target")
response.Write("<photo ")
response.Write("path=" & path)
response.Write(" target=" & target)
response.Write(" description=" & descriptions)
response.write(" date=" & dates)
response.Write(" rate=" & rate)
response.Write(" >")
response.Write("</photo>")
rec.movenext
loop
rec.close
set rec=nothing
con.close
set con=nothing
%>
وقتی رانش میکنم به جای XML Output به من صفحه خالی میده!
