Line 1: #ExternalChecksum("D:\Web\KSBMenu\emr\Default.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","4D9997C1CC5AD3897755FD2EF11917DAD99FB31A")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
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 System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel.DataAnnotations
Line 21: Imports System.Configuration
Line 22: Imports System.Data
Line 23: Imports System.Drawing
Line 24: Imports System.Linq
Line 25: Imports System.Net.Mail
Line 26: Imports System.Text
Line 27: Imports System.Text.RegularExpressions
Line 28: Imports System.Web
Line 29: Imports System.Web.Caching
Line 30: Imports System.Web.DynamicData
Line 31: Imports System.Web.Profile
Line 32: Imports System.Web.Security
Line 33: Imports System.Web.SessionState
Line 34: Imports System.Web.UI
Line 35: Imports System.Web.UI.HtmlControls
Line 36: Imports System.Web.UI.WebControls
Line 37: Imports System.Web.UI.WebControls.Expressions
Line 38: Imports System.Web.UI.WebControls.WebParts
Line 39: Imports System.Xml.Linq
Line 40:
Line 41: Namespace ASP
Line 42:
Line 43: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 44: Public Class emr_default_aspx
Line 45: Inherits Global.System.Web.UI.Page
Line 46: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 47:
Line 48:
Line 49: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",87)
Line 50: Protected WithEvents menuFolderID As Global.System.Web.UI.WebControls.Label
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 56: Protected WithEvents GridView1 As Global.System.Web.UI.WebControls.GridView
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60:
Line 61: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 62: Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
Line 63:
Line 64: #End ExternalSource
Line 65:
Line 66:
Line 67: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 68: Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 69:
Line 70: #End ExternalSource
Line 71:
Line 72: Private Shared __initialized As Boolean
Line 73:
Line 74: Private Shared __fileDependencies As Object
Line 75:
Line 76:
Line 77: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",5)
Line 78:
Line 79:
Line 80:
Line 81: Dim cls As New CommonCls
Line 82: Dim SqlConnection1 As New System.Data.SqlClient.SqlConnection(cls.getConnStr("ConnectionString99"))
Line 83: Dim pageTitle As String = "EMR"
Line 84: Dim htmlLang As String = ""
Line 85:
Line 86: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Line 87:
Line 88: Dim cmd As New SqlClient.SqlCommand("", SqlConnection1)
Line 89: Dim dr As SqlClient.SqlDataReader
Line 90:
Line 91: Dim menuFolderID As Integer = 2
Line 92:
Line 93: If Not IsPostBack() Then
Line 94:
Line 95: cmd.CommandText = "select distinct (select folderLang FROM menuFolder f where f.menuFolderID = menuPage.menuFolderID ) as folderLang, htmlLang from menuPageDetail join menuPage on menuPageDetail.menuPageID = menuPage.menuPageID where menuPageDetail.deletedDate IS NULL and menuPage.deletedDate IS NULL and menuPage.menuFolderID = @folderID and menuPageName = @ID "
Line 96: cmd.Parameters.Clear()
Line 97: cmd.Parameters.AddWithValue("@ID", Request("ID") & "")
Line 98: cmd.Parameters.AddWithValue("@folderID", menuFolderID)
Line 99: cmd.Connection.Open()
Line 100: dr = cmd.ExecuteReader
Line 101: If dr.Read() Then
Line 102: If dr("htmlLang") & "" <> "" Then
Line 103: htmlLang = dr("htmlLang") & ""
Line 104: ElseIf dr("folderLang") & "" <> "" Then
Line 105: htmlLang = dr("folderLang") & ""
Line 106: End If
Line 107: End If
Line 108: cmd.Connection.Close()
Line 109:
Line 110: End If
Line 111:
Line 112: Call logPage()
Line 113:
Line 114: End Sub
Line 115:
Line 116:
Line 117: Function findBorder(ByVal str1, ByVal str2) As String
Line 118:
Line 119: If str1 & "" <> "" And str2 & "" <> "" Then
Line 120: findBorder = "2"
Line 121: Else
Line 122: findBorder = "0"
Line 123: End If
Line 124:
Line 125: End Function
Line 126:
Line 127:
Line 128:
Line 129: Sub logPage()
Line 130:
Line 131:
Line 132: Dim cmd As New SqlClient.SqlCommand("", SqlConnection1)
Line 133:
Line 134: If Not IsPostBack() Then
Line 135:
Line 136: ' insert log for page
Line 137: cmd.CommandText = "insert logPageTime(userID,logTime,strPage,ip) values (@userID,getdate(),@strPage, @ip)"
Line 138: cmd.Parameters.Clear()
Line 139: cmd.Parameters.AddWithValue("@userID", 0)
Line 140: cmd.Parameters.AddWithValue("@strPage", Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING"))
Line 141: cmd.Parameters.AddWithValue("@ip", Request.ServerVariables("REMOTE_ADDR"))
Line 142: cmd.Connection.Open()
Line 143: cmd.ExecuteNonQuery()
Line 144: cmd.Connection.Close()
Line 145:
Line 146: End If
Line 147:
Line 148: End Sub
Line 149:
Line 150:
Line 151:
Line 152: #End ExternalSource
Line 153:
Line 154:
Line 155: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 156: Public Sub New()
Line 157: MyBase.New
Line 158: Dim dependencies() As String
Line 159: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/emr/Default.aspx"
Line 160: If (Global.ASP.emr_default_aspx.__initialized = false) Then
Line 161: dependencies = New String(1) {}
Line 162: dependencies(0) = "~/emr/Default.aspx"
Line 163: dependencies(1) = "~/emr/Header.htm"
Line 164: Global.ASP.emr_default_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 165: Global.ASP.emr_default_aspx.__initialized = true
Line 166: End If
Line 167: Me.Server.ScriptTimeout = 30000000
Line 168: End Sub
Line 169:
Line 170: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 171: Get
Line 172: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 173: End Get
Line 174: End Property
Line 175:
Line 176: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 177: Get
Line 178: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 179: End Get
Line 180: End Property
Line 181:
Line 182: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 183: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 184: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 185:
Line 186: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",82)
Line 187: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle()
Line 188:
Line 189: #End ExternalSource
Line 190: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control3)
Line 191: Return __ctrl
Line 192: End Function
Line 193:
Line 194: Private Sub __Render__control3(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 195:
Line 196: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",82)
Line 197: __w.Write(Title)
Line 198:
Line 199:
Line 200: #End ExternalSource
Line 201: End Sub
Line 202:
Line 203: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 204: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
Line 205: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
Line 206:
Line 207: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",81)
Line 208: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
Line 209:
Line 210: #End ExternalSource
Line 211: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 212:
Line 213: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",81)
Line 214: __ctrl1 = Me.__BuildControl__control3
Line 215:
Line 216: #End ExternalSource
Line 217: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 218:
Line 219: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",81)
Line 220: __parser.AddParsedSubObject(__ctrl1)
Line 221:
Line 222: #End ExternalSource
Line 223: Return __ctrl
Line 224: End Function
Line 225:
Line 226: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 227: Private Function __BuildControlmenuFolderID() As Global.System.Web.UI.WebControls.Label
Line 228: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 229:
Line 230: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",87)
Line 231: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 232:
Line 233: #End ExternalSource
Line 234: Me.menuFolderID = __ctrl
Line 235: __ctrl.ApplyStyleSheetSkin(Me)
Line 236:
Line 237: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",87)
Line 238: __ctrl.ID = "menuFolderID"
Line 239:
Line 240: #End ExternalSource
Line 241:
Line 242: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",87)
Line 243: __ctrl.Text = "2"
Line 244:
Line 245: #End ExternalSource
Line 246:
Line 247: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",87)
Line 248: __ctrl.Visible = false
Line 249:
Line 250: #End ExternalSource
Line 251: Return __ctrl
Line 252: End Function
Line 253:
Line 254: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 255: Private Function __BuildControl__control8() As Global.System.Web.UI.DataBoundLiteralControl
Line 256: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 257:
Line 258: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",97)
Line 259: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(2, 1)
Line 260:
Line 261: #End ExternalSource
Line 262: __ctrl.SetStaticString(0, "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01//EN"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ""http://www.w3.org/TR/"& _
Line 263: "html4/strict.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <meta http-equiv=""content-type"" "& _
Line 264: "content=""text/html; charset=utf-8"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <title>Example: Website Top Nav W"& _
Line 265: "ith Submenus From JavaScript (YUI Library)</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- Stand"& _
Line 266: "ard reset, fonts and grids -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel=""stylesheet"" type=""text/css"""& _
Line 267: " href=""reset-fonts-grids.css"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- CSS for Menu -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 268: "link rel=""stylesheet"" type=""text/css"" href=""Styles.css"" /> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel="& _
Line 269: """stylesheet"" type=""text/css"" href=""menu.css"" /> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- Page-specifi"& _
Line 270: "c styles -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <style type=""text/css"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" div.yui-b p {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 271: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" margin: 0 0 .5em 0;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" color: #999;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 272: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" div.yui-b p strong {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 273: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" font-weight: bold;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" color: #000;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 274: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" div.yui-b p em {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 275: " color: #000;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" } "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 276: " h1 {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" font-weight: bold;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" margin: 0 0 "& _
Line 277: "1em 0;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" padding: .25em .5em;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" background-color: "& _
Line 278: "#ccc;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" #productsandservices {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 279: "margin: 0 0 10px 0;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </style>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 280: " <!-- Dependency source files -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script type=""text/javascript"" src"& _
Line 281: "=""yahoo-dom-event.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script type=""text/javascript"" src=""con"& _
Line 282: "tainer_core.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- Menu source file -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <scr"& _
Line 283: "ipt type=""text/javascript"" src=""menu.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- Page-specif"& _
Line 284: "ic script -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script type=""text/javascript"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" /*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 285: " Initialize and render the MenuBar when its elements are ready "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 286: " to be scripted."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" */"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" YAHOO.util.Event.on"& _
Line 287: "ContentReady(""productsandservices"", function () {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" /*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"In"& _
Line 288: "stantiate a MenuBar: The first argument passed to the constructor"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"is the "& _
Line 289: "id for the Menu element to be created, the second is an "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"object literal of"& _
Line 290: " configuration properties."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" */"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" var oMenuBar ="& _
Line 291: " new YAHOO.widget.MenuBar(""productsandservices"", { "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 292: " autosubmenudisplay: true, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 293: " hidedelay: 750, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 294: " lazyload: true });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" /*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Define an array of object literals, each containing "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 295: " the data necessary to create a submenu."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" */"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 296: " var aSubmenuData = ["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 297: " id: ""Home"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 298: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" id: ""Account"", "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" itemdat"& _
Line 299: "a: [ "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Log"& _
Line 300: "in"", url:""default.aspx?ID=account1"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 301: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Forget Password"", ur"& _
Line 302: "l: ""default.aspx?ID=account2"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 303: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Edit Profile"", url: ""defau"& _
Line 304: "lt.aspx?ID=account3"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 305: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Edit Password"", url: ""default.aspx?"& _
Line 306: "ID=account4"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 307: " text: ""Logout"", url: ""default.aspx?ID=account5"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 308: " }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"& _
Line 309: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" id: ""Message"", "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 310: " itemdata: [ "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 311: " text: ""To User"", url: ""default.aspx?ID=home5"" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 312: " }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: """& _
Line 313: "To Patient"", url: ""default.aspx?ID=home6"" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 314: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Inbox"", url: "& _
Line 315: """default.aspx?ID=home7"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 316: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Sent"", url: ""default.aspx?ID=hom"& _
Line 317: "e8"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ] "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 318: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 319: " id: ""Schedule"", "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" itemdata: ["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 320: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Edit"", url: ""default.aspx?ID=ho"& _
Line 321: "me1"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 322: " text: ""Weekly"",url: ""default.aspx?ID=home2"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 323: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 324: " text: ""Daily"",url: ""default.aspx?ID=home3"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 325: " ] "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 326: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" id: ""Search"","&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" item"& _
Line 327: "data: ["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""P"& _
Line 328: "atient"",url:""default.aspx?ID=home11b"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 329: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Open Visit"",url:""de"& _
Line 330: "fault.aspx?ID=home11"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 331: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Notes"",url:""default.aspx?ID=home19"""& _
Line 332: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 333: " text: ""Closed Visit"",url:""default.aspx?ID=home18"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 334: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 335: " text: ""Document"",url:""default.aspx?ID=home22"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"& _
Line 336: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Referral"& _
Line 337: """,url:""default.aspx?ID=home23"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 338: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Appointment"",url:""default."& _
Line 339: "aspx?ID=search7"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 340: " }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 341: " id: ""Action"","&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" itemdata: ["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 342: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Patinet Visit"",url:""default"& _
Line 343: ".aspx?ID=home10"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Phone/Encounter"", url:""default.aspx?ID=h"& _
Line 344: "ome12"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 345: " text: ""Medication"",url:""Default.aspx?ID=home13"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 346: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 347: " text: ""Procedure"",url:""Default.aspx?ID=home14"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 348: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Ref"& _
Line 349: "erral"",url:""Default.aspx?ID=home15"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 350: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Upload Doc"",url:""Defa"& _
Line 351: "ult.aspx?ID=home20"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 352: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: ""Upload Batch"",url:""Default.aspx?ID=ho"& _
Line 353: "me21"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 354: " text: ""Patient Email"",url:""Default.aspx?ID=patientEmail"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 355: " }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 356: "},"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" id: ""Current"","&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 357: " itemdata: ["&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 358: " text: ""Patient"", url: ""Default.aspx?ID=home11b"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 359: " },"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" text: """& _
Line 360: "Chart"", url:""Default.aspx?ID=home11a"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 361: " ]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 362: " {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" id: ""Admin"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" } "& _
Line 363: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ];"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" /*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S"& _
Line 364: "ubscribe to the ""beforerender"" event, adding a submenu "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" to"& _
Line 365: " each of the items in the MenuBar instance."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" */"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 366: " oMenuBar.subscribe(""beforeRender"", function () {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"var nSubmenus = aSub"& _
Line 367: "menuData.length,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"i;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" if (this.getRoot() == this) "& _
Line 368: "{"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"for (i = 0; i < nSubmenus; i++) {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&"this.getI"& _
Line 369: "tem(i).cfg.setProperty(""submenu"", aSubmenuData[i]);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"}"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 370: " }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" /*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Call "& _
Line 371: "the ""render"" method with no arguments since the "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" markup fo"& _
Line 372: "r this MenuBar instance is already exists in "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" the page."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 373: " */"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" oMenuBar.render(); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 374: " });"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <body class=""yui-skin-s"& _
Line 375: "am"" id=""yahoo-com"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""_ctl0_Panel1"" style=""width:100%;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 376: " <table id=""_ctl0_table01"" width=""100%"" cellpadding=""2"" style=""background"& _
Line 377: "-image:url(n1.gif)"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<td style=""width:80px;""><img id=""_ctl0_Image2"" "& _
Line 378: "src=""header.jpg"" align=""left"" border=""0"" style=""height:70px;"" /></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<td al"& _
Line 379: "ign=""center""><span id=""_ctl0_label1"" style="" text-align:center; font-size: 30pt;"& _
Line 380: " vertical-align:middle ;color: white; font-family: 'Times New Roman';"">EMR DEMO "& _
Line 381: "System</span></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<td style=""width:80px;""><img id=""_ctl0_Image3"" src=""heade"& _
Line 382: "r.jpg"" align=""right"" border=""0"" style=""height:70px;"" /></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" </ta"& _
Line 383: "ble>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""doc"" class=""yui-t1"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 384: " <div id=""bd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- start: primary column from outer template"& _
Line 385: " -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""yui-main"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""yui-b"& _
Line 386: """>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- start: stack grids here -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 387: " <div id=""productsandservices"" class=""yuimenubar yuimenubarnav"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 388: " <div class=""bd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <ul class"& _
Line 389: "=""first-of-type"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""yuimenubaritem"& _
Line 390: " first-of-type"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a class=""yuimenubarit"& _
Line 391: "emlabel"" href=""default.aspx?ID=home"">Home</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 392: " </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 393: " <a class=""yuimenubaritemlabel"" href=""#"">Accou"& _
Line 394: "nt</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 395: " <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a c"& _
Line 396: "lass=""yuimenubaritemlabel"" href=""#"">Message</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 397: " </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 398: " <a class=""yuimenubaritemlabel"" href=""#"">Sch"& _
Line 399: "edule</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 400: " <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 401: "a class=""yuimenubaritemlabel"" href=""#"">Search</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 402: " </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 403: " <a class=""yuimenubaritemlabel"" href=""#"">A"& _
Line 404: "ction</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 405: " <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 406: "a class=""yuimenubaritemlabel"" href=""#"">Current</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 407: " </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""yuimenubaritem"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 408: " <a class=""yuimenubaritemlabel"" href=""def"& _
Line 409: "ault.aspx?ID=admin"">Admin</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 410: " </ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 411: " </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- end: stack grids here -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- end: p"& _
Line 412: "rimary column from outer template -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- start: secondary c"& _
Line 413: "olumn from outer template -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- end: secondary column from o"& _
Line 414: "uter template -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</"& _
Line 415: "html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 416: __ctrl.SetStaticString(1, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 417:
Line 418: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",97)
Line 419: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control8
Line 420:
Line 421: #End ExternalSource
Line 422: Return __ctrl
Line 423: End Function
Line 424:
Line 425: Public Sub __DataBind__control8(ByVal sender As Object, ByVal e As System.EventArgs)
Line 426: Dim Container As System.Web.UI.IDataItemContainer
Line 427: Dim target As System.Web.UI.DataBoundLiteralControl
Line 428:
Line 429: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",97)
Line 430: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 431:
Line 432: #End ExternalSource
Line 433:
Line 434: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",97)
Line 435: Container = CType(target.BindingContainer,System.Web.UI.IDataItemContainer)
Line 436:
Line 437: #End ExternalSource
Line 438:
Line 439: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",97)
Line 440: target.SetDataBoundString(0, Global.System.Convert.ToString(Eval("navigation"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 441:
Line 442: #End ExternalSource
Line 443: End Sub
Line 444:
Line 445: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 446: Private Function __BuildControl__control7() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 447: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 448:
Line 449: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 450: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("div")
Line 451:
Line 452: #End ExternalSource
Line 453: __ctrl.TemplateControl = Me
Line 454: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 455:
Line 456: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 457: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 458:
Line 459: #End ExternalSource
Line 460: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 461:
Line 462: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 463: __ctrl1 = Me.__BuildControl__control8
Line 464:
Line 465: #End ExternalSource
Line 466:
Line 467: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 468: __parser.AddParsedSubObject(__ctrl1)
Line 469:
Line 470: #End ExternalSource
Line 471:
Line 472: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 473: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control7
Line 474:
Line 475: #End ExternalSource
Line 476: Return __ctrl
Line 477: End Function
Line 478:
Line 479: Public Sub __DataBinding__control7(ByVal sender As Object, ByVal e As System.EventArgs)
Line 480: Dim dataBindingExpressionBuilderTarget As System.Web.UI.HtmlControls.HtmlGenericControl
Line 481: Dim Container As System.Web.UI.IDataItemContainer
Line 482:
Line 483: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 484: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.HtmlControls.HtmlGenericControl)
Line 485:
Line 486: #End ExternalSource
Line 487:
Line 488: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 489: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.IDataItemContainer)
Line 490:
Line 491: #End ExternalSource
Line 492:
Line 493: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",95)
Line 494: dataBindingExpressionBuilderTarget.Visible = CType(Eval("header") = ,Boolean)
Line 495:
Line 496: #End ExternalSource
Line 497: End Sub
Line 498:
Line 499: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 500: Private Function __BuildControl__control9() As Global.System.Web.UI.HtmlControls.HtmlImage
Line 501: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlImage
Line 502:
Line 503: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 504: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlImage()
Line 505:
Line 506: #End ExternalSource
Line 507: __ctrl.TemplateControl = Me
Line 508:
Line 509: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 510: __ctrl.Border = 0
Line 511:
Line 512: #End ExternalSource
Line 513:
Line 514: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 515: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("HSPACE", "10")
Line 516:
Line 517: #End ExternalSource
Line 518:
Line 519: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 520: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("VSPACE", "2")
Line 521:
Line 522: #End ExternalSource
Line 523:
Line 524: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 525: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control9
Line 526:
Line 527: #End ExternalSource
Line 528: Return __ctrl
Line 529: End Function
Line 530:
Line 531: Public Sub __DataBinding__control9(ByVal sender As Object, ByVal e As System.EventArgs)
Line 532: Dim dataBindingExpressionBuilderTarget As System.Web.UI.HtmlControls.HtmlImage
Line 533: Dim Container As System.Web.UI.IDataItemContainer
Line 534:
Line 535: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 536: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.HtmlControls.HtmlImage)
Line 537:
Line 538: #End ExternalSource
Line 539:
Line 540: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 541: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.IDataItemContainer)
Line 542:
Line 543: #End ExternalSource
Line 544:
Line 545: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 546: dataBindingExpressionBuilderTarget.Src = Global.System.Convert.ToString(Eval("imagePath"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 547:
Line 548: #End ExternalSource
Line 549:
Line 550: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 551: dataBindingExpressionBuilderTarget.Align = Global.System.Convert.ToString(Eval("imageAlign") , Global.System.Globalization.CultureInfo.CurrentCulture)
Line 552:
Line 553: #End ExternalSource
Line 554:
Line 555: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 556: dataBindingExpressionBuilderTarget.Alt = Global.System.Convert.ToString(Eval("imageAlt") , Global.System.Globalization.CultureInfo.CurrentCulture)
Line 557:
Line 558: #End ExternalSource
Line 559:
Line 560: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",102)
Line 561: dataBindingExpressionBuilderTarget.Visible = CType(Eval("imagePath") & "" <> "" ,Boolean)
Line 562:
Line 563: #End ExternalSource
Line 564: End Sub
Line 565:
Line 566: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 567: Private Function __BuildControl__control10() As Global.System.Web.UI.DataBoundLiteralControl
Line 568: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 569:
Line 570: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",103)
Line 571: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(3, 2)
Line 572:
Line 573: #End ExternalSource
Line 574: __ctrl.TemplateControl = Me
Line 575: __ctrl.SetStaticString(0, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table border='")
Line 576: __ctrl.SetStaticString(1, "' cellpadding='10'>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td width=""100%"""& _
Line 577: ">")
Line 578: __ctrl.SetStaticString(2, "</td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </t"& _
Line 579: "d></tr></table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 580:
Line 581: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",103)
Line 582: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control10
Line 583:
Line 584: #End ExternalSource
Line 585: Return __ctrl
Line 586: End Function
Line 587:
Line 588: Public Sub __DataBind__control10(ByVal sender As Object, ByVal e As System.EventArgs)
Line 589: Dim Container As System.Web.UI.IDataItemContainer
Line 590: Dim target As System.Web.UI.DataBoundLiteralControl
Line 591:
Line 592: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",103)
Line 593: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 594:
Line 595: #End ExternalSource
Line 596:
Line 597: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",103)
Line 598: Container = CType(target.BindingContainer,System.Web.UI.IDataItemContainer)
Line 599:
Line 600: #End ExternalSource
Line 601:
Line 602: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",103)
Line 603: target.SetDataBoundString(0, Global.System.Convert.ToString(findBorder(Eval("imagePath"), Eval("detailDescription")), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 604:
Line 605: #End ExternalSource
Line 606:
Line 607: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",104)
Line 608: target.SetDataBoundString(1, Global.System.Convert.ToString(Eval("detailDescription"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 609:
Line 610: #End ExternalSource
Line 611: End Sub
Line 612:
Line 613: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 614: Private Sub __BuildControl__control6(ByVal __ctrl As System.Web.UI.Control)
Line 615: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 616:
Line 617: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 618: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 619:
Line 620: #End ExternalSource
Line 621: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 622:
Line 623: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 624: __ctrl1 = Me.__BuildControl__control7
Line 625:
Line 626: #End ExternalSource
Line 627:
Line 628: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 629: __parser.AddParsedSubObject(__ctrl1)
Line 630:
Line 631: #End ExternalSource
Line 632:
Line 633: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 634: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table width='100%'><tr><td"& _
Line 635: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 636:
Line 637: #End ExternalSource
Line 638: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlImage
Line 639:
Line 640: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 641: __ctrl2 = Me.__BuildControl__control9
Line 642:
Line 643: #End ExternalSource
Line 644:
Line 645: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 646: __parser.AddParsedSubObject(__ctrl2)
Line 647:
Line 648: #End ExternalSource
Line 649: Dim __ctrl3 As Global.System.Web.UI.DataBoundLiteralControl
Line 650:
Line 651: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 652: __ctrl3 = Me.__BuildControl__control10
Line 653:
Line 654: #End ExternalSource
Line 655:
Line 656: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 657: __parser.AddParsedSubObject(__ctrl3)
Line 658:
Line 659: #End ExternalSource
Line 660: End Sub
Line 661:
Line 662: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 663: Private Function __BuildControl__control5() As Global.System.Web.UI.WebControls.TemplateField
Line 664: Dim __ctrl As Global.System.Web.UI.WebControls.TemplateField
Line 665:
Line 666: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 667: __ctrl = New Global.System.Web.UI.WebControls.TemplateField()
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",92)
Line 672: __ctrl.ItemTemplate = New System.Web.UI.CompiledBindableTemplateBuilder(AddressOf Me.__BuildControl__control6, Nothing)
Line 673:
Line 674: #End ExternalSource
Line 675: Return __ctrl
Line 676: End Function
Line 677:
Line 678: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 679: Private Sub __BuildControl__control4(ByVal __ctrl As System.Web.UI.WebControls.DataControlFieldCollection)
Line 680: Dim __ctrl1 As Global.System.Web.UI.WebControls.TemplateField
Line 681:
Line 682: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 683: __ctrl1 = Me.__BuildControl__control5
Line 684:
Line 685: #End ExternalSource
Line 686:
Line 687: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 688: __ctrl.Add(__ctrl1)
Line 689:
Line 690: #End ExternalSource
Line 691: End Sub
Line 692:
Line 693: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 694: Private Function __BuildControlGridView1() As Global.System.Web.UI.WebControls.GridView
Line 695: Dim __ctrl As Global.System.Web.UI.WebControls.GridView
Line 696:
Line 697: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 698: __ctrl = New Global.System.Web.UI.WebControls.GridView()
Line 699:
Line 700: #End ExternalSource
Line 701: Me.GridView1 = __ctrl
Line 702: __ctrl.ApplyStyleSheetSkin(Me)
Line 703:
Line 704: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 705: __ctrl.ID = "GridView1"
Line 706:
Line 707: #End ExternalSource
Line 708:
Line 709: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 710: __ctrl.AutoGenerateColumns = false
Line 711:
Line 712: #End ExternalSource
Line 713:
Line 714: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 715: __ctrl.DataSourceID = "SqlDataSource1"
Line 716:
Line 717: #End ExternalSource
Line 718:
Line 719: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 720: __ctrl.Width = New System.Web.UI.WebControls.Unit(100R, Global.System.Web.UI.WebControls.UnitType.Percentage)
Line 721:
Line 722: #End ExternalSource
Line 723:
Line 724: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 725: __ctrl.BorderStyle = Global.System.Web.UI.WebControls.BorderStyle.None
Line 726:
Line 727: #End ExternalSource
Line 728:
Line 729: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 730: __ctrl.BorderWidth = New System.Web.UI.WebControls.Unit(0R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 731:
Line 732: #End ExternalSource
Line 733:
Line 734: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 735: __ctrl.ShowHeader = false
Line 736:
Line 737: #End ExternalSource
Line 738:
Line 739: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",90)
Line 740: Me.__BuildControl__control4(__ctrl.Columns)
Line 741:
Line 742: #End ExternalSource
Line 743: Return __ctrl
Line 744: End Function
Line 745:
Line 746: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 747: Private Function __BuildControl__control12() As Global.System.Web.UI.WebControls.ControlParameter
Line 748: Dim __ctrl As Global.System.Web.UI.WebControls.ControlParameter
Line 749:
Line 750: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",117)
Line 751: __ctrl = New Global.System.Web.UI.WebControls.ControlParameter()
Line 752:
Line 753: #End ExternalSource
Line 754:
Line 755: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",117)
Line 756: __ctrl.ControlID = "menuFolderID"
Line 757:
Line 758: #End ExternalSource
Line 759:
Line 760: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",117)
Line 761: __ctrl.Name = "folderID"
Line 762:
Line 763: #End ExternalSource
Line 764:
Line 765: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",117)
Line 766: __ctrl.DefaultValue = "2"
Line 767:
Line 768: #End ExternalSource
Line 769: Return __ctrl
Line 770: End Function
Line 771:
Line 772: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 773: Private Function __BuildControl__control13() As Global.System.Web.UI.WebControls.QueryStringParameter
Line 774: Dim __ctrl As Global.System.Web.UI.WebControls.QueryStringParameter
Line 775:
Line 776: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",118)
Line 777: __ctrl = New Global.System.Web.UI.WebControls.QueryStringParameter()
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",118)
Line 782: __ctrl.Name = "ID"
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",118)
Line 787: __ctrl.QueryStringField = "ID"
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",118)
Line 792: __ctrl.DefaultValue = "0"
Line 793:
Line 794: #End ExternalSource
Line 795: Return __ctrl
Line 796: End Function
Line 797:
Line 798: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 799: Private Sub __BuildControl__control11(ByVal __ctrl As System.Web.UI.WebControls.ParameterCollection)
Line 800: Dim __ctrl1 As Global.System.Web.UI.WebControls.ControlParameter
Line 801:
Line 802: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 803: __ctrl1 = Me.__BuildControl__control12
Line 804:
Line 805: #End ExternalSource
Line 806:
Line 807: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 808: __ctrl.Add(__ctrl1)
Line 809:
Line 810: #End ExternalSource
Line 811: Dim __ctrl2 As Global.System.Web.UI.WebControls.QueryStringParameter
Line 812:
Line 813: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 814: __ctrl2 = Me.__BuildControl__control13
Line 815:
Line 816: #End ExternalSource
Line 817:
Line 818: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 819: __ctrl.Add(__ctrl2)
Line 820:
Line 821: #End ExternalSource
Line 822: End Sub
Line 823:
Line 824: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 825: Private Function __BuildControlSqlDataSource1() As Global.System.Web.UI.WebControls.SqlDataSource
Line 826: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 827:
Line 828: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 829: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource()
Line 830:
Line 831: #End ExternalSource
Line 832: Me.SqlDataSource1 = __ctrl
Line 833:
Line 834: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 835: __ctrl.ID = "SqlDataSource1"
Line 836:
Line 837: #End ExternalSource
Line 838:
Line 839: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 840: __ctrl.SelectCommand = "select * from menuPageDetail join menuPage on menuPageDetail.menuPageID = menuPag"& _
Line 841: "e.menuPageID where menuPageDetail.deletedDate IS NULL and menuPage.deletedDate "& _
Line 842: "IS NULL and menuPage.menuFolderID = @folderID and menuPageName = @ID order by me"& _
Line 843: "nuPageDetail.sorting "
Line 844:
Line 845: #End ExternalSource
Line 846:
Line 847: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",113)
Line 848: Me.__BuildControl__control11(__ctrl.SelectParameters)
Line 849:
Line 850: #End ExternalSource
Line 851: __ctrl.ConnectionString = Global.System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("ConnectionString99"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 852: Return __ctrl
Line 853: End Function
Line 854:
Line 855: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 856: Private Function __BuildControlform1() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 857: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 858:
Line 859: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 860: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Line 861:
Line 862: #End ExternalSource
Line 863: Me.form1 = __ctrl
Line 864:
Line 865: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 866: __ctrl.ID = "form1"
Line 867:
Line 868: #End ExternalSource
Line 869: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 870:
Line 871: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 872: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 873:
Line 874: #End ExternalSource
Line 875: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 876:
Line 877: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 878: __ctrl1 = Me.__BuildControlmenuFolderID
Line 879:
Line 880: #End ExternalSource
Line 881:
Line 882: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 883: __parser.AddParsedSubObject(__ctrl1)
Line 884:
Line 885: #End ExternalSource
Line 886:
Line 887: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 888: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 889:
Line 890: #End ExternalSource
Line 891: Dim __ctrl2 As Global.System.Web.UI.WebControls.GridView
Line 892:
Line 893: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 894: __ctrl2 = Me.__BuildControlGridView1
Line 895:
Line 896: #End ExternalSource
Line 897:
Line 898: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 899: __parser.AddParsedSubObject(__ctrl2)
Line 900:
Line 901: #End ExternalSource
Line 902:
Line 903: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 904: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 905:
Line 906: #End ExternalSource
Line 907: Dim __ctrl3 As Global.System.Web.UI.WebControls.SqlDataSource
Line 908:
Line 909: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 910: __ctrl3 = Me.__BuildControlSqlDataSource1
Line 911:
Line 912: #End ExternalSource
Line 913:
Line 914: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 915: __parser.AddParsedSubObject(__ctrl3)
Line 916:
Line 917: #End ExternalSource
Line 918:
Line 919: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",85)
Line 920: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 921:
Line 922: #End ExternalSource
Line 923: Return __ctrl
Line 924: End Function
Line 925:
Line 926: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 927: Private Sub __BuildControlTree(ByVal __ctrl As emr_default_aspx)
Line 928:
Line 929: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",1)
Line 930: Me.InitializeCulture
Line 931:
Line 932: #End ExternalSource
Line 933: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlHead
Line 934:
Line 935: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",1)
Line 936: __ctrl1 = Me.__BuildControl__control2
Line 937:
Line 938: #End ExternalSource
Line 939: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 940:
Line 941: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",1)
Line 942: __parser.AddParsedSubObject(__ctrl1)
Line 943:
Line 944: #End ExternalSource
Line 945: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 946:
Line 947: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",1)
Line 948: __ctrl2 = Me.__BuildControlform1
Line 949:
Line 950: #End ExternalSource
Line 951:
Line 952: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",1)
Line 953: __parser.AddParsedSubObject(__ctrl2)
Line 954:
Line 955: #End ExternalSource
Line 956: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 957: End Sub
Line 958:
Line 959: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 960: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3"& _
Line 961: ".org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 962: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/1999/xhtml"" ")
Line 963:
Line 964: #ExternalSource("D:\Web\KSBMenu\emr\Default.aspx",80)
Line 965: __w.Write(If(htmlLang <> "", "lang='" & htmlLang & "'", "") )
Line 966:
Line 967:
Line 968: #End ExternalSource
Line 969: __w.Write(">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 970: parameterContainer.Controls(0).RenderControl(__w)
Line 971: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 972: parameterContainer.Controls(1).RenderControl(__w)
Line 973: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 974: End Sub
Line 975:
Line 976: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 977: Protected Overrides Sub FrameworkInitialize()
Line 978: MyBase.FrameworkInitialize
Line 979: Me.__BuildControlTree(Me)
Line 980: Me.AddWrappedFileDependencies(Global.ASP.emr_default_aspx.__fileDependencies)
Line 981: Me.Request.ValidateInput
Line 982: End Sub
Line 983:
Line 984: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 985: Public Overrides Function GetTypeHashCode() As Integer
Line 986: Return -2134902573
Line 987: End Function
Line 988:
Line 989: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 990: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 991: MyBase.ProcessRequest(context)
Line 992: End Sub
Line 993: End Class
Line 994: End Namespace
Line 995:
|