<%@ Page EnableSessionState="false" Trace=True Language="vb" debug="true" validateRequest=false %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import namespace="System.Drawing.Drawing2D" %>
<%@ Import namespace="System.Drawing.Text" %>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
dim myString as String
myString = request.querystring("h1")
Dim baseMap as Bitmap = new Bitmap(600, 50)
Dim myGraphic as Graphics = Graphics.FromImage(baseMap)
Dim upBrush as SolidBrush = new SolidBrush(Color.FromArgb(0,0,0))
Dim backBrush as SolidBrush = new SolidBrush(Color.FromArgb(255,255,255))
Dim familyNameAndStyle As String
Dim FontCollection As New PrivateFontCollection()
FontCollection.AddFontFile(Server.MapPath("TYPEWRIT.TTF"))
Dim thisFont As FontFamily
thisFont = FontCollection.Families(0)
Dim fontTitle As New Font(thisFont, 18)
'or use a system font
'Dim fontTitle as Font = new Font("tahoma", 16)
familyNameAndStyle = thisFont.Name
myGraphic.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
myGraphic.SmoothingMode = SmoothingMode.Antialias ' antialias objects
myGraphic.FillRectangle(backBrush, 0, 0, 600, 50)
myGraphic.DrawString(myString, fontTitle, upBrush, 5, 5)
Response.ContentType = "image/jpeg"
baseMap.Save(Response.OutputStream, ImageFormat.JPEG)
myGraphic.Dispose()
baseMap.Dispose()
End Sub
</script>