Dim objRequest As HttpWebRequest
        Dim strPost As String
        Dim strRequest As String
        Dim strResult As String
        Dim arrRequest As Byte()
        Dim objUTF8Encoding As UTF8Encoding
        Dim strmRequest As Stream
        Dim objResponse As HttpWebResponse
        Dim srResponse As StreamReader
        Dim request
        '####INSERT CODE TO CREATE PASSWORD TEXTBOX HERE##########
 
        strPost = Request.Form().ToString()
 
        objRequest = CType(WebRequest.Create( _
          "https://ecommerce.cosag.ch/login.aspx"), HttpWebRequest)
        objRequest.Method = "POST"
        objRequest.ContentType = "application/x-www-form-urlencoded"
        strRequest = strPost
        objUTF8Encoding = New UTF8Encoding
        arrRequest = objUTF8Encoding.GetBytes(strRequest)
        objRequest.ContentLength = strPost.Length
        strmRequest = objRequest.GetRequestStream()
        strmRequest.Write(arrRequest, 0, arrRequest.Length)
        strmRequest.Close()
 
        objResponse = objRequest.GetResponse()
        srResponse = New StreamReader(objResponse.GetResponseStream(), _
          Encoding.ASCII)
        strResult = srResponse.ReadToEnd()