<%@ Page Language="vb" %>
<%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %>
<%@ Register TagPrefix="MyTag" TagName="FeaturedBooks" Src="FeaturedBooks.ascx" %>
User Control Examples
<%--header.ascx
<%@ Control Language="vb" %>
Welcome to the shop!
Select your Language:
Private Languages As New Hashtable()
Public Sub Page_Load()
Languages.Add("English", "Hello, and welcome to the shop")
Languages.Add("French", "Bonjour, et bienvenue au magasin")
Languages.Add("Spanish", "Buenas Dias, e bienvenido a la tienda")
Languages.Add("German", "Guten Tag, und wilkommen ins geschaeft")
If Not Page.IsPostback
LanguageList.Datasource = Languages.Keys
Page.DataBind()
End If
End Sub
Public Sub DropList_Changed(Sender As Object, E As EventArgs)
WelcomeMessage.text = Languages(Languagelist.SelectedItem.Text)
End Sub
--%>
<%--
<%@ import Namespace="System.Data" %>
<%
Dim ResultString as String
ResultString = "Today's Featured Books:
ResultString += ""
ResultString += "fake book data"
ResultString += "
"
Response.Write (ResultString)
%>
--%>