03. maj 2003 - 09:46
Der er
3 kommentarer og 1 løsning
Ret i xml med asp
Er det muligt at rette i en .xml eller skal man oprette en ny og så slette den gamle... hvis det er muligt hvordan gør man så... /Bjørn ps. Hvilken god bog er der om .xml med asp programering!!
Annonceindlæg tema
Cloud & AI
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Det er alt for besværligt, brug hellere en anden Content type! Den vil generere XML'en for dig! <% Session.LCID = 1030 Response.ContentType = "text/xml" Response.Write("<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbCrLf) Set objRs = Server.CreateObject("ADODB.Recordset") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DRIVER={MySql}; server=localhost; database=test; uid=test; pwd=test" lngMonday = Date() - Weekday(Date(), vbMonday) + 1 lngMonday = Year(lngMonday) & "-" & Month(lngMonday) & "-" & Day(lngMonday) lngFriday = DateAdd("d", 4, Date() - Weekday(Date(), vbMonday) + 1) 'lngFriday = DateAdd("d", 4, Date() - Weekday(Date(), vbMonday) + 1) lngFriday = Year(lngFriday) & "-" & Month(lngFriday) & "-" & Day(lngFriday) If Request.QueryString("Find") = "All" Then strSQL = "SELECT * FROM tblOrdres ORDER BY Date " & Request.QueryString("OrderBy") Else strSQL = "SELECT * FROM tblOrdres WHERE date BETWEEN '" & lngMonday & "' AND '" & lngFriday & "' ORDER BY Date DESC" End If Set objRs = objConn.Execute(strSQL) Response.Write("<ordres>" & vbCrLf) While Not objRs.EOF Response.Write(vbTab & "<ordre date=""" & objRs("date") & """>" & vbCrLf) Response.Write("<ordreinfo>") Response.Write(vbTab & vbTab & "<userid>" & objRs("userid") & "</userid>" & vbCrLf) Response.Write(vbTab & vbTab & "<customername>" & objRs("customername") & "</customername>" & vbCrLf) Response.Write(vbTab & vbTab & "<ordreno>" & objRs("ordreno") & "</ordreno>" & vbCrLf) Response.Write(vbTab & vbTab & "<types>" & objRs("types") & "</types>" & vbCrLf) Response.Write(vbTab & vbTab & "<totalprice>" & objRs("totalprice") & "</totalprice>" & vbCrLf) Response.Write(vbTab & vbTab & "<consequences>" & objRs("consequences") & "</consequences>" & vbCrLf) Response.Write(vbTab & vbTab & "<afhdate>" & objRs("AfhDate") & "</afhdate>" & vbCrLf) Response.Write(vbTab & vbTab & "<levdate>" & objRs("LevDate") & "</levdate>" & vbCrLf) Response.Write(vbTab & vbTab & "<date>" & objRs("Date") & "</date>" & vbCrLf) Response.Write("</ordreinfo>") Response.Write(vbTab & "</ordre>" & vbCrLf) objRs.MoveNext() Wend Response.Write("</ordres>" & vbCrLf) %>
hvad tænker du på med en anden Content type ? hvad kunne det være
Den laver dokumentet om til at være et XML dokument, istedet for et normalt HTML dokument! prøv fx sådan her: <% Response.ContentType = "text/xml" With Response .Write("<personer>") .Write("<navn>Rune Nielsen</navn") .Write("</personer>") End With %> //>Rune
Kurser inden for grundlæggende programmering