var html_doc = document.getElementsByTagName('body')[0]; 
var _js = document.createElement('script');
_js.setAttribute('type', 'text/javascript');
_js.setAttribute('id', 'mybho_js');

  Public Function getxml() As String
        Dim connection As String = ""
        Dim xml As New XmlDocument()
        xml.Load("C:\Users\mohammad.CATS\Documents\Visual Studio 2008\Projects\ARtrnc02\ARtrnc02")
        Dim xnf As XmlNode = xml.SelectSingleNode("configuration")
        Dim child As XmlNodeList = xnf.ChildNodes

<WebMethod()> _
    Public Function Nextval(ByVal current As Integer, ByVal tag As String) As Integer
        Return New Random().Next(Math.Min(1000, Math.Max(0, current)), 1001)
    End Function
    <WebMethod()> _
    Public Function prevval(ByVal current As Integer, ByVal tag As String) As Integer
        Return

Public Function GetXmlConnection() As String 
    Dim connection As String = "" 
    Dim xml As New XmlDocument() 
    xml.Load(HttpContext.Current.Server.MapPath("~/App_Data/XmlReadSource.xml")) 
    Dim root As XmlNode = xml.SelectSingleNode("configuration")

public class myserializable
public sub new ()

end sub
 Private Sub SerializeElement(ByVal filename As String) 
        Dim ser As XmlSerializer = New XmlSerializer(GetType(XmlElement)) 
        Dim myElement As XmlElement = _ 
        New XmlDocument().CreateElement("MyElement", "ns")

Public Class MySerializableClass
    Private Sub SerializeElement(ByVal filename As String)
        Dim ser As XmlSerializer = New XmlSerializer(GetType(XmlElement))
        Dim myElement As XmlElement = _
        New XmlDocument().CreateElement("MyElement", "ns")

Public Function GetXmlConnection() As String
	Dim connection As String = ""
	Dim xml As New XmlDocument()
	xml.Load(HttpContext.Current.Server.MapPath("~/App_Data/XmlReadSource.xml"))
	Dim root As XmlNode = xml.SelectSingleNode("configuration")
	Dim child As XmlNodeList = root.ChildNodes
	For Each c As XmlNode In child
		If TryCast(c, XmlElement).Name = "appsettings"