Asp.net generates thumbnails

<Script language = "VB" runat = "server">
Sub page_load (sender as object, e as eventargs)

Dim image, anewimage as system. Drawing. Image
Dim width, height, newwidth, newheight as integer
Dim callb as system. Drawing. image. getthumbnailimageabort

'Generate a thumbnail
Image = system. Drawing. image. fromfile (server. mappath ("classpic/" + "rs1.jpg "))
Width = image. Width
Height = image. Height
If width> height then
Newwidth = 110
Newheight = image. Height/image. Width * newwidth
Else
Newheight = 110
Newwidth = image. width/image. Height * newheight
End if

Anewimage = image. getthumbnailimage (newwidth, newheight, callb, new system. intptr ())
Anewimage. Save (server. mappath ("smallpic/" + "rs1.gif "))
Image. Dispose ()

End sub
</SCRIPT>