kalde størrelse på image i en funktion og derefter vise billedet

Jeg er ved at lave en funktion hvor jeg henter et fotourl ud i en datagrid, derefter kalder jeg en funktion der skal kontrollere størrelse på fotoet og derefter tilpasse str. og vise foto. Problemet med nedenstående funktion er, at den kun viser følgende teks:

System.Web.UI.WebControls.Image

i stedet for billedet

funktionen ser ud som følgende:

    public function fotokontrol(nummer)

        dim foto as New WebControls.Image()
        dim filnavn as string
        dim filstreng as string
               
        filnavn = websti & "eng.gif"
        filstreng = serversti & "eng.gif"
        foto.ImageUrl= filnavn

        Dim currentImage as System.Drawing.Image = System.Drawing.Image.fromfile (filstreng)
        Dim imgHeight = currentImage.Height
        Dim imgWidth = currentImage.Width

        if imgwidth < 100 then
            do
                imgheight = imgheight * 1.8
                imgwidth = imgwidth  * 1.8
            loop while imgwidth < 100
        end if

        if imgheight > 100 then
            do
                imgheight = imgheight * 0.8
                imgwidth = imgwidth  * 0.8
            loop while imgheight > 100
        end if
           
        imgheight = format(imgheight,"#,##0.")
        imgwidth =  format(imgwidth,"#,##0.")
        hojde.text = imgheight
        bredde.text = imgwidth
        foto.width = new Unit (bredde.text)
        foto.height = new Unit (hojde.text)

        return foto
    end function


jeg kalder funktionen på følgende måde:

<% response.write(fotokontrol("test")) %>

test skal senere bruges til at vælge fotonummer fra en database

hvad gør jeg forkert - er der nogen der har en løsning