sina_xp7
دوشنبه 30 خرداد 1390, 19:25 عصر
سلام خدمت اساتید محترم
من کد زیر رو برای sitemap نوشتم،وقتی توی visual studio اجرا می کنم کار می کنه اما رو هاست ارور می ده.
مشکل از کجاست؟
لطفاً منو راهنمائی کنید،بدجوری گیرم.
Dim changefreq As String = "Daily" '"hourly"
Dim priority As String = "0.8"
Response.Clear()
Response.ContentType = "text/xml"
Dim write As XmlTextWriter = New XmlTextWriter(Server.MapPath("sitemap.xml"), Encoding.UTF8)
write.WriteStartDocument()
write.WriteStartElement("urlset")
write.WriteAttributeString("xmlns", "http://www.sitemaps.org/schemas/sitemap/0.9")
write.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
write.WriteAttributeString("xsi", "schemaLocation", Nothing, "http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd")
Dim connectString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim cnn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectString)
Dim selectstring As String
selectstring = "select * from main"
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(selectstring, cnn)
cmd.CommandType = CommandType.Text
Dim dap As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(cmd)
Dim ds As System.Data.DataSet = New Data.DataSet()
Dim dr As System.Data.DataRow
dap.Fill(ds, "ds")
For Each dr In ds.Tables(0).Rows
write.WriteStartElement("url")
write.WriteElementString("loc", Server.MapPath("news.aspx?ID=") & dr("ID"))
write.WriteElementString("changefreq", changefreq)
write.WriteElementString("priority", priority)
write.WriteEndElement()
Next
cnn.Close()
write.WriteEndDocument()
write.Flush()
write.Close()
من کد زیر رو برای sitemap نوشتم،وقتی توی visual studio اجرا می کنم کار می کنه اما رو هاست ارور می ده.
مشکل از کجاست؟
لطفاً منو راهنمائی کنید،بدجوری گیرم.
Dim changefreq As String = "Daily" '"hourly"
Dim priority As String = "0.8"
Response.Clear()
Response.ContentType = "text/xml"
Dim write As XmlTextWriter = New XmlTextWriter(Server.MapPath("sitemap.xml"), Encoding.UTF8)
write.WriteStartDocument()
write.WriteStartElement("urlset")
write.WriteAttributeString("xmlns", "http://www.sitemaps.org/schemas/sitemap/0.9")
write.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
write.WriteAttributeString("xsi", "schemaLocation", Nothing, "http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd")
Dim connectString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim cnn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectString)
Dim selectstring As String
selectstring = "select * from main"
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(selectstring, cnn)
cmd.CommandType = CommandType.Text
Dim dap As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(cmd)
Dim ds As System.Data.DataSet = New Data.DataSet()
Dim dr As System.Data.DataRow
dap.Fill(ds, "ds")
For Each dr In ds.Tables(0).Rows
write.WriteStartElement("url")
write.WriteElementString("loc", Server.MapPath("news.aspx?ID=") & dr("ID"))
write.WriteElementString("changefreq", changefreq)
write.WriteElementString("priority", priority)
write.WriteEndElement()
Next
cnn.Close()
write.WriteEndDocument()
write.Flush()
write.Close()