sends the wrong message error.
"BC30451: Name 'Ctest' is not declared."
1- Create the Class
Imports Microsoft.VisualBasic
Namespace SoftWorks.Utilitidades
Public Class Ctest
Public Sub New()
End Sub
Public Shared Function StringConexion() As String
Dim strConexion As String
strConexion = "Helloo Mundo"
Return strConexion
End Function
End Class
End Namespace
2- Imports de Namespace
2.1 Imports SoftWorks.Utilitidades
2.2 <% @Import Namespace="SoftWorks.Utilitidades" %>
3. Call the Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Response.Write(Ctest.StringConexion.ToString)
End Sub
Thank You.
Don Quijote de Nicaragua.
Elder Soto.
Note:
Complete error:
Line 1: #ExternalChecksum("I:\FerozoWebHosting\softworks-global.com
\public_html\pruebas\Default.aspx","{406ea660-64cf-4c82-
b6f0-42d48172a799}","71C1622C3BD560FEA5767FF703959BB3")
Line 2:
'------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.1433
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and
will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10:
'------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports SoftWorks.Utilitidades
Line 17: Imports System
Line 18: Imports System.Collections
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.Configuration
Line 21: Imports System.Text
Line 22: Imports System.Text.RegularExpressions
Line 23: Imports System.Web
Line 24: Imports System.Web.Caching
Line 25: Imports System.Web.Profile
Line 26: Imports System.Web.Security
Line 27: Imports System.Web.SessionState
Line 28: Imports System.Web.UI
Line 29: Imports System.Web.UI.HtmlControls
Line 30: Imports System.Web.UI.WebControls
Line 31: Imports System.Web.UI.WebControls.WebParts
Line 32:
Line 33:
Line 34: Partial Public Class _Default
Line 35: Implements
System.Web.SessionState.IRequiresSessionState
Line 36:
Line 37:
Line 38: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",10)
Line 39: Protected WithEvents form1 As
Global.System.Web.UI.HtmlControls.HtmlForm
Line 40:
Line 41: #End ExternalSource
Line 42:
Line 43: Protected ReadOnly Property Profile() As
System.Web.Profile.DefaultProfile
Line 44: Get
Line 45: Return
CType(Me.Context.Profile,System.Web.Profile.Defaul tProfile)
Line 46: End Get
Line 47: End Property
Line 48:
Line 49: Protected ReadOnly Property ApplicationInstance() As
System.Web.HttpApplication
Line 50: Get
Line 51: Return
CType(Me.Context.ApplicationInstance,System.Web.Ht tpApplication)
Line 52: End Get
Line 53: End Property
Line 54: End Class
Line 55:
Line 56: Namespace ASP
Line 57:
Line 58:
<System.Runtime.CompilerServices.CompilerGlobalSco peAttribute() _
Line 59: Public Class pruebas_default_aspx
Line 60: Inherits Global._Default
Line 61: Implements System.Web.IHttpHandler
Line 62:
Line 63: Private Shared __initialized As Boolean
Line 64:
Line 65: Private Shared __fileDependencies As Object
Line 66:
Line 67:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 68: Public Sub New()
Line 69: MyBase.New
Line 70: Dim dependencies() As String
Line 71:
Line 72: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx.vb",91 2304)
Line 73:
CType(Me,Global.System.Web.UI.Page).AppRelativeVir tualPath = "~/
pruebas/Default.aspx"
Line 74:
Line 75: #End ExternalSource
Line 76: If
(Global.ASP.pruebas_default_aspx.__initialized = false) Then
Line 77: dependencies = New String(1) {}
Line 78: dependencies(0) = "~/pruebas/Default.aspx"
Line 79: dependencies(1) = "~/pruebas/
Default.aspx.vb"
Line 80:
Global.ASP.pruebas_default_aspx.__fileDependencies =
Me.GetWrappedFileDependencies(dependencies)
Line 81:
Global.ASP.pruebas_default_aspx.__initialized = true
Line 82: End If
Line 83: Me.Server.ScriptTimeout = 30000000
Line 84: End Sub
Line 85:
Line 86: Protected Overrides ReadOnly Property
SupportAutoEvents() As Boolean
Line 87: Get
Line 88: Return false
Line 89: End Get
Line 90: End Property
Line 91:
Line 92:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 93: Private Function __BuildControl__control3() As
Global.System.Web.UI.HtmlControls.HtmlTitle
Line 94: Dim __ctrl As
Global.System.Web.UI.HtmlControls.HtmlTitle
Line 95:
Line 96: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",7)
Line 97: __ctrl = New
Global.System.Web.UI.HtmlControls.HtmlTitle
Line 98:
Line 99: #End ExternalSource
Line 100: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 101:
Line 102: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",7)
Line 103: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("Untitled Page"))
Line 104:
Line 105: #End ExternalSource
Line 106: Return __ctrl
Line 107: End Function
Line 108:
Line 109:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 110: Private Function __BuildControl__control2() As
Global.System.Web.UI.HtmlControls.HtmlHead
Line 111: Dim __ctrl As
Global.System.Web.UI.HtmlControls.HtmlHead
Line 112:
Line 113: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",6)
Line 114: __ctrl = New
Global.System.Web.UI.HtmlControls.HtmlHead("head")
Line 115:
Line 116: #End ExternalSource
Line 117: Dim __ctrl1 As
Global.System.Web.UI.HtmlControls.HtmlTitle
Line 118:
Line 119: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",6)
Line 120: __ctrl1 = Me.__BuildControl__control3
Line 121:
Line 122: #End ExternalSource
Line 123: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 124:
Line 125: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",6)
Line 126: __parser.AddParsedSubObject(__ctrl1)
Line 127:
Line 128: #End ExternalSource
Line 129: Return __ctrl
Line 130: End Function
Line 131:
Line 132:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 133: Private Function __BuildControlform1() As
Global.System.Web.UI.HtmlControls.HtmlForm
Line 134: Dim __ctrl As
Global.System.Web.UI.HtmlControls.HtmlForm
Line 135:
Line 136: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",10)
Line 137: __ctrl = New
Global.System.Web.UI.HtmlControls.HtmlForm
Line 138:
Line 139: #End ExternalSource
Line 140: Me.form1 = __ctrl
Line 141:
Line 142: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",10)
Line 143: __ctrl.ID = "form1"
Line 144:
Line 145: #End ExternalSource
Line 146: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 147:
Line 148: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",10)
Line 149: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Global.Microsoft.V isualBasic.ChrW(13)&Global.Microsoft.VisualBasic.C hrW(10)&"
<div>"&Global.Microsoft.VisualBasic.ChrW(13)&Globa l.Microsoft.VisualBasic.ChrW(10)&"
"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Mic rosoft.VisualBasic.ChrW(10)&"
</
div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global .Microsoft.VisualBasic.ChrW(10)&"
"))
Line 150:
Line 151: #End ExternalSource
Line 152: Return __ctrl
Line 153: End Function
Line 154:
Line 155:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 156: Private Sub __BuildControlTree(ByVal __ctrl As
pruebas_default_aspx)
Line 157:
Line 158: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 159: Me.InitializeCulture
Line 160:
Line 161: #End ExternalSource
Line 162: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 163:
Line 164: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 165: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Global.Microsoft.V isualBasic.ChrW(13)&Global.Microsoft.VisualBasic.C hrW(10)&"<!
DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN""
""http://www.w3.o"& _
Line 166: "rg/TR/xhtml1/DTD/xhtml1-
transitional.dtd"">"&Global.Microsoft.VisualBasic. ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Glo bal.Microsoft.VisualBasic.ChrW(13)&Global.Microsof t.VisualBasic.ChrW(10)&"<html
xmlns=""http://www.w3.org/199"& _
Line 167: "9/xhtml""
>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Mi crosoft.VisualBasic.ChrW(10)))Line 168:
Line 169: #End ExternalSource
Line 170: Dim __ctrl1 As
Global.System.Web.UI.HtmlControls.HtmlHead
Line 171:
Line 172: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 173: __ctrl1 = Me.__BuildControl__control2
Line 174:
Line 175: #End ExternalSource
Line 176:
Line 177: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 178: __parser.AddParsedSubObject(__ctrl1)
Line 179:
Line 180: #End ExternalSource
Line 181:
Line 182: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 183: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Global.Microsoft.V isualBasic.ChrW(13)&Global.Microsoft.VisualBasic.C hrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW (13)&Global.Microsoft.VisualBasic.ChrW(10)&"
"))
Line 184:
Line 185: #End ExternalSource
Line 186: Dim __ctrl2 As
Global.System.Web.UI.HtmlControls.HtmlForm
Line 187:
Line 188: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 189: __ctrl2 = Me.__BuildControlform1
Line 190:
Line 191: #End ExternalSource
Line 192:
Line 193: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 194: __parser.AddParsedSubObject(__ctrl2)
Line 195:
Line 196: #End ExternalSource
Line 197:
Line 198: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx",1)
Line 199: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Global.Microsoft.V isualBasic.ChrW(13)&Global.Microsoft.VisualBasic.C hrW(10)&"</
body>"&Global.Microsoft.VisualBasic.ChrW(13)&Globa l.Microsoft.VisualBasic.ChrW(10)&"</
html>"&Global.Microsoft.VisualBasic.ChrW(13)&Globa l.Microsoft.VisualBasic.ChrW(10)))
Line 200:
Line 201: #End ExternalSource
Line 202: End Sub
Line 203:
Line 204:
Line 205: #ExternalSource("I:\FerozoWebHosting\softworks-
global.com\public_html\pruebas\Default.aspx.vb",91 2304)
Line 206:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 207: Protected Overrides Sub FrameworkInitialize()
Line 208: MyBase.FrameworkInitialize
Line 209: Me.__BuildControlTree(Me)
Line 210:
Me.AddWrappedFileDependencies(Global.ASP.pruebas_d efault_aspx.__fileDependencies)
Line 211: Me.Request.ValidateInput
Line 212: End Sub
Line 213:
Line 214: #End ExternalSource
Line 215:
Line 216:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 217: Public Overrides Function GetTypeHashCode() As
Integer
Line 218: Return 783430533
Line 219: End Function
Line 220:
Line 221:
<System.Diagnostics.DebuggerNonUserCodeAttribute () _
Line 222: Public Overrides Sub ProcessRequest(ByVal context
As System.Web.HttpContext)
Line 223: MyBase.ProcessRequest(context)
Line 224: End Sub
Line 225: End Class
Line 226: End Namespace
Line 227:
