Min class ser sådan ud:
Imports Microsoft.VisualBasic
Public Class DB
Public Shared Function getConnectionString() As String
Dim Constr As String = String.Empty
If HttpContext.Current.Request.ServerVariables("HTTP_HOST") = "
www.nees.dk" Then
Constr = ConfigurationManager.ConnectionStrings("ProdSQLServer").ConnectionString
Else
Constr = ConfigurationManager.ConnectionStrings("LocalSQLServer").ConnectionString
End If
Return Constr
End Function
End Class
Hvis jeg erstatter DB med Default, så brokker den sig:
Keyword is not valid as an identier