Home
About
Contact
Categories
Classic ASP (32 - Entries)
CSS (1 - Entry)
JavaScript (5 - Entries)
Databases (30 - Entries)
ASP.NET (26 - Entries)
Delphi (6 - Entries)
Windows Server Core (12 - Entries)
VMWare (1 - Entry)
Code Editing Tools (2 - Entries)
Linux (4 - Entries)
Dell Servers (15 - Entries)
Blog Entries
2025 (3 - Entries)
Bug Reports
(Bugs Fixed
CFFCS Coding Source
Please report any errors to the [
Contact
] page. Thank you.
Classic ASP (32)
CSS (1)
JavaScript (5)
Databases (30)
ASP.NET (26)
Delphi (6)
Windows Server Core (12)
VMWare (1)
Code Editing Tools (2)
Linux (4)
Dell Servers (15)
Tools
Format Your SQL Script
Minify your CSS
Resources
[View The Source Code For This Project]
ASP.NET
VB.NET
Create an XML Sitemap or data feed with ASP.NET using VB.NET
Live Editing Disabled for Server-Side Example
HTML
Nothing to see here. Choose the [SQL] and [ASP.NET] tab.
SQL
XMLSitemap
-- Create a new database called [Virtual-Class-01] in SQL Server. -- Right-click and choose [New Query] -- Copy and paste the code below and hit [Execute] USE [Virtual-Class-01] GO /****** Object: Table [dbo].[XMLSitemap] Script Date: 7/8/2022 5:17:13 PM ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[XMLSitemap]( [XMLID] [int] IDENTITY(1,1) NOT NULL, [XMLTitle] [nvarchar](50) NOT NULL, [XMLTime] [datetime] NULL, CONSTRAINT [PK_XML] PRIMARY KEY CLUSTERED ( [XMLID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, OPTIMIZE_FOR_SEQUENTIAL_KEY = OFF) ON [PRIMARY] ) ON [PRIMARY] GO SET IDENTITY_INSERT [dbo].[XMLSitemap] ON GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (1, N'One', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (2, N'Two', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (3, N'Three', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (4, N'Four', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (5, N'Five', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (6, N'Six', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (7, N'Seven', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO INSERT [dbo].[XMLSitemap] ([XMLID], [XMLTitle], [XMLTime]) VALUES (8, N'Eight', CAST(N'2022-07-08T17:16:57.743' AS DateTime)) GO SET IDENTITY_INSERT [dbo].[XMLSitemap] OFF GO ALTER TABLE [dbo].[XMLSitemap] ADD CONSTRAINT [DF_XMLSitemap_XMLTime] DEFAULT (getdate()) FOR [XMLTime] GO
ASP.NET
Sitemap.aspx
web.config
database.config
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Sitemap.aspx.vb" Inherits="Sitemap" %> <%@ Import Namespace="System.Data" %> <%@ Import NameSpace="System.Data.SqlClient" %>
<% Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim myDataReader As SqlDataReader myConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("Virtual-Learning").ConnectionString) myConnection.Open() myCommand = New SqlCommand("select XMLID, XMLTitle, XMLTime from XMLSitemap", myConnection) myDataReader = myCommand.ExecuteReader() While myDataReader.Read()%>
<%=myDataReader.Item("XMLTitle")%>
<%=myDataReader.Item("XMLTime")%>
always
<% End While myDataReader.Close() myConnection.Close() %>
Preview
Tags
ASP.NET with Visual Basic
ASP.NET with VB.NET
XML Code with XMP tags
XML Code
asp.net sitemap
sitemap asp.net
vb.net sitemap
sitemap vb.net