Fejl i koden, men hvor?????

Hejsa....

Jeg har nu arbejdet en del med en web-form, som ud fra værdier i en querystring skal lave et billede, med nogle streger. Jeg er dog stødt ind i problemer, for når jeg kalder siden nu, sker der intet!!! - Hvor er fejlen?????

------ KODE ------------
<%@ Page Language="VB" debug="true"%>
<%@ import Namespace="System.Drawing" %>

<script runat="server">

  sub Page_Load( sender as Object, e as EventArgs )
   
    'dim inputString as String = Request.Querystring
    dim inputString as String= "?pkt0=" & chr(34) & "0" & chr(34) & "&pkt1=" & chr(34) & "1" & chr(34) & "&"
    dim count as integer
     
    inputString = replace(inputString, chr(34),"")        'Fjerner alle "-tegn
    inputString = replace(inputString, "?", "&")          'Erstatter det første ?-tegn med et &-tegn
    dim tempArray() as String = split(inputString,"&")    'Laver stringen om til array. Der skilles ved &-tegn
 
    dim drawArray(ubound(tempArray)) as String
       
    for count=0 to (ubound(tempArray) - 1)
      dim pos1 as String = instr(tempArray(count),"=")
      dim data as String = right(tempArray(count), len(tempArray(count)) - pos1)
      drawArray(count) = data
  next
 
  dim width as integer = 80
  dim height as integer = ((ubound(drawArray)-1)*140)+8
   
  dim myBitmap as Bitmap = new Bitmap(width,height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
  dim myGraphics as Graphics = Graphics.FromImage(myBitmap)
  dim myPen as Pen = new Pen(Color.Black, 2)
   
  dim startPointArray(10) as Point
  dim endPointArray(10) as Point
   
  dim points as integer = 0
  dim intCount, intInnerCount, intPoints as integer
   
  For intCount = 0 to (ubound(drawArray) - 1)
   
      dim startHeight as integer = (intCount*140)+1
      dim tempString as String = drawArray(intCount)
      dim StringArray() as String = tempString.ToString().Split(Convert.ToChar(","))
   
      For intInnerCount = 0 to (ubound(StringArray) - 1)
       
        dim endHeight as Integer = (140*cInt(StringArray(intInnerCount)))+1
   
        startPointArray(points) = new Point(0,startHeight)
        endPointArray(points)  = new Point(80,endHeight)
        points = points +1
      Next
  Next
   
  myGraphics.clear(Color.white)
   
  For intPoints = 0 to points
      myGraphics.Drawline(myPen, startPointArray(intPoints), endPointArray(intPoints) )
  Next
   
  Response.ContentType="image/jpeg"
  myBitmap.save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)   
  myBitmap.dispose()
  myGraphics.dispose() 
   
End sub

</script>


På forhånd tak!