Jag har valt att spara bilder i en SQL databas.
Mitt problem är att bilderna har olika storlek och när jag sedan visar dem direkt på en websida med nedanstående kod visas de sin orginal storlek.

Finns det något sätt jag kan göra för att visa bilderna i samma storlek alltid??
Jag har via VS provat att få in resultatet från koden nedan i en placeholder eller Image men utan resultat.

Dim cnn As New SqlConnection(Application("strcnn"))
                Dim da As New SqlDataAdapter("Select * From UBDPICS WHERE LÖPNR=" & Session("bild"), cnn)
                Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
                Dim ds As New DataSet

                cnn.Open()
                da.Fill(ds, "UBDPICS")
                Dim myRow As DataRow
                myRow = ds.Tables("UBDPICS").Rows(0)

                Dim MyData() As Byte
                MyData = myRow("BILD")

                Response.Buffer = True
                Response.ContentType = "Image/JPEG"
                'Response.ContentType = "Image/BMP"
                'Response.ContentType = "application/msword"
                Response.BinaryWrite(MyData)

                MyCB = Nothing
                ds = Nothing
                da = Nothing

                cnn.Close()
                cnn = Nothing

Web e inte min grejj riktigt men kan man inte formatera med HTML?

typ:
Response.write "<img src= " & Response.BinaryWrite(MyData) & " width=15 height=15 border=0>"

// Wendel

Du kan ladda in bilden i en Bitmap i minnet och därefter ändra på storleken och skriva ut den till output strömmen...
Ungefär som nedan, dock otestat exempel!

Dim cnn As New SqlConnection(Application("strcnn"))
Dim da As New SqlDataAdapter("Select * From UBDPICS WHERE LÖPNR=" & Session("bild"), cnn)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet

cnn.Open()
da.Fill(ds, "UBDPICS")
Dim myRow As DataRow
myRow = ds.Tables("UBDPICS").Rows(0)

Response.Buffer = True
Response.ContentType = "Image/JPEG"

Dim MyData() As Byte
MyData = myRow("BILD")

'Skapa en ny bild i minnet
Dim img As New Bitmap(New IO.MemoryStream(MyData))

'Storleksändra bilden
Dim newimg As New Bitmap(img, 200, 100)

'Skriv ut bilden till strömmen
newimg.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)

MyCB = Nothing
ds = Nothing
da = Nothing

cnn.Close()
cnn = Nothing

Din lösning fungerar utmärkt.
Tack Thomas!!