<%@ Page Language="vb" Debug="true" validaterequest="false" %>
<%@ import Namespace="System.Xml" %>
<script runat="server">

    Sub Page_Load()
        Dim userName As String
        Dim password As String

        Dim iLogin As Login
        iLogin = New Login()
        Session("iLogin") = iLogin


        ' INPUT XML PROCESSING
        Dim reader As XmlTextReader = New XmlTextReader(Request.InputStream)
        reader.WhitespaceHandling = WhitespaceHandling.None

        ' move to root node
        reader.Read()
        ' move to and read in content nodes
        reader.Read()

        ' read attribute then go back to content
        'reader.MoveToFirstAttribute()
        'myId = reader.Value
        'reader.MoveToContent()


        userName = reader.ReadElementString("user")
        password = reader.ReadElementString("pass")
        iLogin.username = userName
        iLogin.password = password
        ' close the xmlTextReader
        reader.Close()


        'Response.Write(userName & "<br />")
        'Response.Write(password & "<br />")

        ' OUTPUT XML PROCESSING
        Dim xmlDoc As XmlTextWriter = New XmlTextWriter(Response.OutputStream, Nothing)
        xmlDoc.formatting = Formatting.Indented
        Response.ContentType = "text/xml"

        xmlDoc.WriteStartDocument()

        xmlDoc.WriteStartElement("response")

        xmlDoc.WriteStartElement("data")


        If (iLogin.unlock()) Then
            xmlDoc.WriteAttributeString("value", "true")
        Else
            xmlDoc.WriteAttributeString("value", "false")
        End If

        xmlDoc.WriteEndElement()

        xmlDoc.WriteEndElement()
        xmlDoc.WriteEndDocument()
        xmlDoc.Close()



    End Sub

</script>