Home
About
Contact
Categories
Classic ASP (26 - Sub-Categories)
JavaScript (4 - Sub-Categories)
Databases (21 - Sub-Categories)
ASP.NET (21 - Sub-Categories)
Delphi (5 - Sub-Categories)
Windows Server Core (3 - Sub-Categories)
VMWare (1 - Sub-Category)
Code Editing Tools (2 - Sub-Categories)
Linux (1 - Sub-Category)
Bug Reports
(Fugs Fixed
New CFFCS Coding Source is still in Beta
Please report any errors to the [Contact] page. Thank you.
Classic ASP (26)
JavaScript (4)
Databases (21)
ASP.NET (21)
Delphi (5)
Windows Server Core (3)
VMWare (1)
Code Editing Tools (2)
Linux (1)
Resources
[View The Source Code For This Project]
Format SQL Script
ASP.NET
VB.NET
Create an XML Sitemap or data feed with ASP.NET using VB.NET
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,XML code with XMP tags
ASP.NET with Visual Basic
XML code with XMP tags
asp.net sitemap
sitemap asp.net
vb.net sitemap
sitemap vb.net