Question : Need help in creating XML file

Hello, I'm creating an xml file that needs to look like this:

http://www.google.com/schemas/sitemap/0.84">
 
  http://www.webica.net/Solution Architecture - An Ideal design._1_316.aspx
  2007-05-05od>
  weeklyfreq>
  0.6
 



Mine looks like this:


 
    http://localhost:49317/RCS/Review.aspx?ReviewId=84D7D6A4-6F4E-4E49-834C-F78FCCD6F57D
    Jan 11 2010
    weekelyefreq>
    0.6
 


The URL portion looks fine but these lines are the ones I need help with:


http://www.google.com/schemas/sitemap/0.84">


This is a console app
 Attached is my code:
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text

Public Class Site
    Dim objConn As SqlConnection = New SqlConnection("Data Source=localhost;Initial Catalog=xxx;User ID=xxx;Password=xxx")

    Public Function GoogleSiteMap() As DataSet
        Dim dsSiteMapData As New DataSet("SiteMapData")
        Dim errorMessages As New StringBuilder()

        Try
            Dim objCmd As SqlCommand = New SqlCommand("Get_SiteMapData", objConn)
            objCmd.CommandType = CommandType.StoredProcedure

            objConn.Open()

            objCmd.ExecuteNonQuery()

            Dim objDA As New SqlDataAdapter(objCmd)

            objDA.Fill(dsSiteMapData, "url")

        Catch ex As SqlException
            Dim i As Integer
            For i = 0 To ex.Errors.Count - 1
                errorMessages.Append("Index #" & i.ToString() & ControlChars.NewLine _
                    & "Message: " & ex.Errors(i).Message & ControlChars.NewLine _
                    & "LineNumber: " & ex.Errors(i).LineNumber & ControlChars.NewLine _
                    & "Source: " & ex.Errors(i).Source & ControlChars.NewLine _
                    & "Procedure: " & ex.Errors(i).Procedure & ControlChars.NewLine)
            Next i
            Console.WriteLine(errorMessages.ToString())

        Finally
            objConn.Close()
        End Try

        Return dsSiteMapData

    End Function
End Class
End Module




Module Module1

    Sub Main()
        Dim s As New Site()
        s.GoogleSiteMap.WriteXml(System.IO.Path.GetFullPath("SiteMap.xml"), XmlWriteMode.IgnoreSchema)
    End Sub

End Module
Open in New Window
Select All

Answer : Need help in creating XML file

Try adding the user to the "remote desktop users" group locally on that box/server.  

Thanks

Mike
Random Solutions  
 
programming4us programming4us