AltaProducto.aspx.vb

Partial Public Class AltaProducto
    Inherits System.Web.UI.Page

    Protected Sub AltaProducto_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim productoX As Object

        productoX = New Producto(Nombre.Value, Decimal.Parse(Precio.Value))

        If Not IsNothing(Url.PostedFile) Then
            'El archivo fue enviado

            Url.PostedFile.SaveAs("c:\Inetpub\wwwroot\utm2\images\" + Url.PostedFile.FileName)
        End If

        productoX.url = "images/" + Url.PostedFile.FileName

        Resultado.InnerHtml += productoX.toHTML
    End Sub
End Class