Tricky problem with Responses and PageLoad

[Codeless]

I am trying to force the Open/Download dialog box. This code works, but the first time through it prompts me to save or download the actual .aspx page that I am hyperlinking to. When I choose open, then it gives me the dialog that I am looking for which is to download or open the Torus_grn.jt file. Any ideas on how I can change this so that I only get the dialog about the Torus_grn.jt file?

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fname As String = "c:\TORUS_GRN.jt"
        Dim forceDownload As Boolean = True
        Dim path As Path
        Dim fullpath = path.GetFullPath(fname)
        Dim name = path.GetFileName(fullpath)
        Dim ext = path.GetExtension(fullpath)
        Dim type As String = ""
 
        If Not IsDBNull(ext) Then
            ext = LCase(ext)
        End If

        Select Case ext
            Case ".htm", ".html"
                type = "text/HTML"
            Case ".txt"
                type = "text/plain"
            Case ".doc", ".rtf"
                type = "Application/msword"
            Case ".csv", ".xls"
                type = "Application/x-msexcel"
            Case ".jt"
                type = "Application/x-avwin"
            Case Else
                type = "text/plain"
        End Select

        If (forceDownload) Then
            Response.AppendHeader("content-disposition", _
            "attachment; filename=" & name)
        End If
        If type <> "" Then
            Response.ContentType = type
        End If

        Response.WriteFile(fullpath)
        Response.End()
    End Sub

 

[Robby]

Check if this helps http://www.computerhelp.forum/showthread.php?s=&threadid=69196&highlight=AppendHeader

 

[Codeless]

That is exactly what Im looking for. However I when I try and run it without the database stuff (I just want to point to a file that is on the server). It fails. Can you see why?

   Private Sub GetDownload()
        Try
            Dim sFile As String = "c:\jontest.jpg" 
            Dim fn As Object
            fn = "c:\logo.bmp"
            Response.Clear()
            Response.ContentType = "image/JPG"
            Response.AppendHeader("Content-Disposition", "filename=" & fn)

            Dim oImage() As Byte = CType(fn, Byte())
            Dim oImage() As Byte = GetAttach(nID)
            Response.BinaryWrite(oImage)

        Catch
            Response.Clear()
        Finally
            Response.Flush()
            Response.Close()
        End Try

    End Sub

I think it has something to do with the object actually being a string object rather than a file object. What do you see O great one?