I get no error right now, so my code is lige this:
..::default.aspx::..
<%@ Page Language="
VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" AutoEventWireup="false" CodeFile="Default.aspx.
vb" Inherits="_Default" %>
<asp:Content ID="Menu" ContentPlaceHolderID="ContentPlaceHolderMenu" Runat="Server">
<%
Response.Write("Menu")
%>
</asp:Content>
<asp:Content ID="Div" ContentPlaceHolderID="ContentPlaceHolderDiv" Runat="Server">
<form id="Form1" runat="server">
<asp:calendar
id="calDate"
cssclass="calendar"
Font-Names="tahoma"
Font-Size="9px"
selectionmode="Day"
runat="server"
visible="True"
nextprevformat="ShortMonth"
dayheaderstyle-cssclass="DayHeader"
daystyle-cssclass="Day"
nextprevstyle-cssclass="NextPrev"
othermonthdaystyle-cssclass="OtherMonthDay"
selecteddaystyle-cssclass="SelectedDay"
selectorstyle-cssclass="Selector"
titlestyle-cssclass="Title"
todaydaystyle-cssclass="TodayDay"
weekenddaystyle-cssclass="WeekendDay">
</asp:calendar>
</form>
</asp:Content>
<asp:Content ID="Hotkeys" ContentPlaceHolderID="ContentPlaceHolderHotkeys" Runat="Server">
<%
Response.Write("Hotkeys")
%>
</asp:Content>
<asp:Content ID="Main" ContentPlaceHolderID="ContentPlaceHolderMain" Runat="Server">
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionStringMain %>"
SelectCommand="SELECT [SiteMainID], [SiteMainText] FROM [MainSiteText] WHERE ([SiteMainID] = @SiteMainID)">
<SelectParameters>
<asp:Parameter Name="SiteMainID" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
</asp:Content>
..::default.aspx.
vb::..
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub SqlDataSource1_Selecting(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEv entArgs) _
Handles SqlDataSource1.Selecting
Select Case Request.QueryString("Page").ToString()
Case "Def"
e.Command.Parameters(0).Value = 1
Case "Page1"
e.Command.Parameters(0).Value = 2
Case "Page2"
e.Command.Parameters(0).Value = 3
End Select
End Sub
End Class
..::web.config::..
<connectionStrings>
<add name="ConnectionStringMain" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\database.mdf;Integrated Security=True;User Instance=True"
providerName="System.Data.SqlClient" />
</connectionStrings>