Can anyone help me. I outline the settings and the error below. can anyone tell me what the problem is and how to correct it
Regards Andrewba

I have constructed a DataAccessCode.dll with the following class code
~~~~~~~~~~~~~~~~~~~~~~
' DataAccessCode.vb
'

Imports System
Imports System.Data
Imports System.Data.sqlClient
Imports System.Collections
Imports System.Configuration

Namespace WroxUnited

    Public Class DataAccessCode
        Public Sub New()
        End Sub

        Function Dates() As System.Data.IDataReader
            Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
            Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
            Dim queryString As String = "SELECT [Games].[GameID], [Games].[Date] FROM [Games]"
            Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
            dbCommand.CommandText = queryString
            dbCommand.Connection = dbConnection
            dbConnection.Open
            Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)
            Return dataReader
         End Function

     Function GamesByDate(ByVal [date] As Date) As System.Data.IDataReader
         Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
         Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
         Dim queryString As String = "SELECT [Teams].[TeamName], [Opponents].[OpponentName], [Games].[Location], [Oppon"& _
"ents].[OpponentLocation] FROM [Teams], [Opponents], [Games] WHERE (([Opponents]."& _
"[OpponentID] = [Games].[OpposingTeam]) AND ([Teams].[TeamID] = [Games].[WroxTeam"& _
"]) AND ([Games].[Date] = @Date))"
         Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
         dbCommand.CommandText = queryString
         dbCommand.Connection = dbConnection
         Dim dbParam_date As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
         dbParam_date.ParameterName = "@Date"
         dbParam_date.Value = [date]
         dbParam_date.DbType = System.Data.DbType.DateTime
         dbCommand.Parameters.Add(dbParam_date)
         dbConnection.Open
         Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)
         Return dataReader
     End Function

    Function CheckFanEmailAddresses(ByVal fanEmail As String) As Boolean
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

        Dim queryString As String = "SELECT COUNT([Fans].[FanEmail]) FROM [Fans] WHERE ([Fans].[FanEmail] = @FanEmail)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_fanEmail.ParameterName = "@FanEmail"
        dbParam_fanEmail.Value = fanEmail
        dbParam_fanEmail.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_fanEmail)
        Dim Result as Integer = 0
        dbConnection.Open
        Try
            Result = dbCommand.ExecuteScalar
        Finally
            dbConnection.Close
        End Try

        If Result > 0 then
            Return true
        else Return false
        End if

    End Function

    Function AddNewFanEmail(ByVal fanEmail As String) As Integer
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

        Dim queryString As String = "INSERT INTO [Fans] ([FanEmail]) VALUES (@FanEmail)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_fanEmail.ParameterName = "@FanEmail"
        dbParam_fanEmail.Value = fanEmail
        dbParam_fanEmail.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_fanEmail)

        Dim rowsAffected As Integer = 0
        dbConnection.Open
        Try
            rowsAffected = dbCommand.ExecuteNonQuery
        Finally
            dbConnection.Close
        End Try

        Return rowsAffected
    End Function

    Function GetTeams() As System.Data.IDataReader
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

        Dim queryString As String = "SELECT [Teams].[TeamID], [Teams].[TeamName], [Teams].[Notes] FROM [Teams]"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        dbConnection.Open
        Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

        Return dataReader

    End Function

    Function GetPlayersByTeam(ByVal teamID As Integer) As System.Data.IDataReader
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

        Dim queryString As String = _
        "SELECT [Players].[PlayerName], [Positions].[PositionName], [PlayerTeam].[TeamID] "& _
        "FROM [Players], [Positions], [PlayerTeam], [Teams] WHERE (([PlayerTeam].[PlayerI"& _
        "D] = [Players].[PlayerID]) AND ([PlayerTeam].[TeamID] = [Teams].[TeamID]) AND (["& _
        "PlayerTeam].[Position] = [Positions].[PositionID]) AND ([PlayerTeam].[TeamID] = "& _
        "@TeamID))"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_teamID As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_teamID.ParameterName = "@TeamID"
        dbParam_teamID.Value = teamID
        dbParam_teamID.DbType = System.Data.DbType.Int32
        dbCommand.Parameters.Add(dbParam_teamID)

        dbConnection.Open
        Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

        Return dataReader
    End Function


    End Class
End Namespace
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The connectionstring is as follows from the web.config file
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<appSettings>
            <add key="connectionString" value="server=(local)\WroxUnited; database=WroxUnited; Trusted_Connection=true"/>
        </appSettings>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This works fine is the code is with in aspx or aspx.vb pages but when compiled gives this error
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~
Error loading XML file c:\windows\microsoft.net\framework\v1.0.3705\Confi g\machine.config Request for the permission of type System.Security.Permissions.StrongNameIdentityPerm ission, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 failed. (c:\windows\microsoft.net\framework\v1.0.3705\Conf ig\machine.config)
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Configuration.ConfigurationException: Error loading XML file c:\windows\microsoft.net\framework\v1.0.3705\Confi g\machine.config Request for the permission of type System.Security.Permissions.StrongNameIdentityPerm ission, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 failed. (c:\windows\microsoft.net\framework\v1.0.3705\Conf ig\machine.config)

Source Error:


Line 45: 'active dates will still be highlighted.
Line 46: dim DateReader as System.Data.iDataReader
Line 47: DateReader = Data.Dates()
Line 48:
Line 49: While DateReader.Read()


Source File: C:\BegASPNet11\WroxUnited\Default.aspx.vb Line: 47

Stack Trace:


[ConfigurationException: Error loading XML file c:\windows\microsoft.net\framework\v1.0.3705\Confi g\machine.config Request for the permission of type System.Security.Permissions.StrongNameIdentityPerm ission, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 failed. (c:\windows\microsoft.net\framework\v1.0.3705\Conf ig\machine.config)]
   System.Configuration.ConfigurationRecord.OpenXmlTe xtReader(String configFileName) +387
   System.Configuration.ConfigurationRecord.Load(Stri ng filename) +205
   System.Configuration.DefaultConfigurationSystem.Sy stem.Configuration.IConfigurationSystem.Init() +164
   System.Configuration.ConfigurationSettings.SetConf igurationSystem(IConfigurationSystem configSystem) +96
   System.Configuration.ConfigurationSettings.GetConf ig(String sectionName) +112
   System.Configuration.ConfigurationSettings.get_App Settings() +15
   WroxUnited.DataAccessCode.Dates() +8
   Wrox.DefaultCodeBehind.Page_Load() in C:\BegASPNet11\WroxUnited\Default.aspx.vb:47
   System.Web.Util.ArglessEventHandlerDelegateProxy.C allback(Object sender, EventArgs e) +10
   System.Web.UI.Control.OnLoad(EventArgs e) +55
   System.Web.UI.Control.LoadRecursive() +21
   System.Web.UI.Page.ProcessRequestMain() +724

Try downloading and installing the latest version 1.1.

http://www.asp.net/download-1.1.aspx?tabindex=0&tabid=1

I think I have the current version. only downloaded about a month ago

I have solved my problem using the Microsoft Community for webmatrix
thanks