Ver Imagen en nueva pagina

[Evidiel]

codigo del boton que visualiza la imagen:
Dim r As DataRow
oDataAdapter = New SqlDataAdapter
oDataSet = New DataSet

' crear conexión
oConexion = New SqlConnection(cadenaCnn)
' crear adaptador
oDataAdapter = New SqlDataAdapter
Dim oCmdConsulta As New SqlCommand("SELECT * FROM PLANOS", _
oConexion)

oDataAdapter.SelectCommand = oCmdConsulta
oDataSet = New DataSet
' crear conjunto de datos
Me.oDataSet.Clear()
Me.oDataAdapter.Fill(Me.oDataSet, "PLANOS")

oConexion.Close() ' cerrar conexión


Response.ContentType = "image/pjpeg"
Dim bddImagen
bddImagen = oDataSet.Tables(0).Rows(0)("IMAGEN")
Response.BinaryWrite(bddImagen)