Visual Basic

strSQL="Select * from <TABLE NAME>"    
Set Grid1.DataSource = Nothing
Adodc1.ConnectionString = cnn
Adodc1.RecordSource = strSQL
Adodc1.Refresh
With Grid1
    Set .DataSource = Adodc1
End With

Dim im As Image = Image.FromFile("c:\temp\aaa\Copy.png")

        Dim bm As Bitmap = New Bitmap(600, 600, im.PixelFormat)
        bm.SetResolution(im.HorizontalResolution, im.VerticalResolution)
        Dim g As Graphics = Graphics.FromImage(bm)

        'g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        'g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.DrawImage(im, 0, 0, 600, 600)
        bm.Save("c:\temp\aaa\test.png", Imaging.ImageFormat.Png)

<AttributeUsage(AttributeTargets.Field, AllowMultiple:=True, Inherited:=False)>
Public Class OutputDescriptionAttribute
    Inherits Attribute

    Private _oldDescription As String
    Private _newDescription As String

    Public Sub New(oldDescription As String, newDescription As String)
        Me._oldDescription = oldDescription
        Me._newDescription = newDescription
    End Sub
End Class

Public Enum ReadingModeType
    <OutputDescription("TC", "TimeCorrected")> TimeCorrected
    <OutputDescription("QM", "QuickMode")> QuickMode
End Enum

Public Shared Sub GetDescription(t As Type)
       ' Get instance of the attribute.
       Dim MyAttribute As OutputDescriptionAttribute =
           CType(Attribute.GetCustomAttribute(t, GetType(OutputDescriptionAttribute)), OutputDescriptionAttribute)

       If MyAttribute Is Nothing Then
           Console.WriteLine("The attribute was not found.")
       Else
           ' Get the Name value.
           'Console.WriteLine("The Name Attribute is: {0}.", MyAttribute.Name)
           '' Get the Level value.
           'Console.WriteLine("The Level Attribute is: {0}.", MyAttribute.Level)
           '' Get the Reviewed value.
           'Console.WriteLine("The Reviewed Attribute is: {0}.", MyAttribute.Reviewed)
       End If
   End Sub

Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       Dim s As ReadingModeType = ReadingModeType.QuickMode
       test.GetDescription(s.GetType)
   End Sub

<%
'collect the form input
searchInput = Request.QueryString("searchInput")

'check for a match
Set myRecordSet = Connect.Execute("SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'")


'display the results
if myRecordSet.EOF then
response.write("You searched for: " & searchInput & "<br>")
response.write("A match was not found.<br>Sorry try again.")
else
response.write("You searched for: " & searchInput & "<br>")
response.write("Records were found!<br>The matches are:<br>")
   do until myRecordSet.EOF
   response.write(myRecordSet("name") & "<br>")
   response.write(myRecordSet("cusip") & "<br>")
    response.write(myRecordSet("isin") & "<br>")
   myRecordSet.MoveNext
   loop
end if
%>