User-1922277577 posted
Hi,
thanks for replying. I still can't get it to work. Here is the most current modified code:
genimage.aspx:
<%
@ Page
Language="VB"
AutoEventWireup="false"
ContentType="image/gif" %>
<%
@ Import
Namespace="System.Drawing" %>
<%
@ Import
Namespace="System.Drawing.Imaging" %>
<
script
language="VB"
runat="server">
Sub Page_Load(ByVal sender
As Object,
ByVal e As EventArgs)
Response.ContentType =
"image/gif"
Dim copy As Bitmap =
New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(copy)
Dim f As Font =
New Font("Tahoma", 11, FontStyle.Bold)
g.DrawString(
"Test", f,
New SolidBrush(Color.Green), 0, 0)
copy.Save(Response.OutputStream, ImageFormat.Gif)
g.Dispose()
copy.Dispose()
Response.StatusCode = 200
Response.End()
End Sub
</
script>
and i made the change to the page calling genimage.aspx also, still doesn't work... i did look at references and I do have system.drawing...
Thanks,
Alan,