<% Response.Buffer=True %>
Debatt
<%
Dim conn
Dim h_rec
Dim s_rec
Set conn=Server.CreateObject("ADODB.Connection")
Set rec=Server.CreateObject("ADODB.RecordSet")
set xmldoc=CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
'xmldoc.preserveWhiteApace=true
'xmldoc.loadxml("")
set root_debatt=xmldoc.CreateElement("Root_Debatt")
conn.Open "DSN=Debatt"
h_sql="SELECT * FROM HuvudAmne Order By DebID Desc"
set h_rec=Conn.Execute(h_sql)
while Not h_rec.EOF
set debatt=xmldoc.CreateElement("Debatt")
set h_amne=xmldoc.CreateElement("Ämne")
set titel=xmldoc.CreateElement("Titel")
set signatur=xmldoc.CreateElement("Signatur")
set e_post=xmldoc.CreateElement("E-post")
set ikon=xmldoc.CreateElement("Ikon")
set innehall=xmldoc.CreateElement("Innehåll")
set debid=xmldoc.CreateAttribute("DebID")
set datum=xmldoc.CreateElement("Datum")
debid.Text= h_rec("DebID")
h_amne.Text=h_rec("DebAmne")
titel.Text=h_rec("DebTitel")
signatur.Text=h_rec("DebSignatur")
e_post.Text=h_rec("DebEpost")
ikon.Text=h_rec("DebIkon")
innehall.Text=h_rec("DebInnehall")
datum.Text=h_rec("DebDatum")
debatt.attributes.setNamedItem(debid)
debatt.appendChild(h_amne)
debatt.appendChild(titel)
debatt.appendChild(signatur)
debatt.appendChild(e_post)
debatt.appendChild(ikon)
debatt.appendChild(innehall)
debatt.appendChild(datum)
s_sql="SELECT * FROM Svar where DebID="&debid.Text
set s_rec=Conn.Execute(s_sql)
while not s_rec.EOF
set svar=xmldoc.CreateElement("Svar")
set amne=xmldoc.CreateElement("Ämne")
set titel=xmldoc.CreateElement("Titel")
set signatur=xmldoc.CreateElement("Signatur")
set e_post=xmldoc.CreateElement("E-post")
set ikon=xmldoc.CreateElement("Ikon")
set innehall=xmldoc.CreateElement("Innehåll")
set svarid=xmldoc.CreateAttribute("SvarID")
set svardebid=xmldoc.CreateAttribute("SvarDebID")
set datum=xmldoc.CreateElement("Datum")
svarid.Text= s_rec("SvarID")
svardebid.Text= s_rec("DebID")
amne.Text=h_amne.Text
titel.Text=s_rec("Titel")
signatur.Text=s_rec("Signatur")
e_post.Text=s_rec("Epost")
ikon.Text=s_rec("Ikon")
innehall.Text=s_rec("Innehall")
datum.Text=s_rec("Datum")
svar.attributes.setNamedItem(svarid)
svar.attributes.setNamedItem(svardebid)
svar.appendChild(amne)
svar.appendChild(titel)
svar.appendChild(signatur)
svar.appendChild(e_post)
svar.appendChild(ikon)
svar.appendChild(innehall)
svar.appendChild(datum)
debatt.appendChild(svar)
root_debatt.appendChild(debatt)
s_rec.MoveNext
wend
root_debatt.appendChild(debatt)
set xmldoc.documentElement=root_debatt
h_rec.MoveNext
wend
'pi = xmldoc.createProcessingInstruction("xml", "version='1.0'")
'xmldoc.insertBefore( pi, xmldoc.firstChild)
xmldoc.save("C:\WINDOWS\Desktop\FBIS\webbsajt\Root_Debatt.xml")
'xmldoc.save(Server.MapPath("Root_Debatt.xml"))
'xmldoc.save("http://b2r7r4/debatt/Root_Debatt.xml")
'res=""&"
"
'res=res&""&"
"
'res=res&""&"
"
'res=res&xmldoc.documentElement.xml&"
"
Response.Clear
Response.redirect "debatt.html"
h_rec.Close
s_rec.close
conn.Close
Set h_rec=Nothing
Set s_rec=Nothing
Set conn=Nothing
%>