Downloading files in ASP

Hi I am trying to add a download facility to my web application. It was working ok until today but for some reason it is downloading the file name only instead of the file contents. i.e. when I open the file it only has the file name in it.I would really appreciate any help with this
Here is my code.

 Private Sub DownloadFile(ByVal fname As String)
        Dim path As System.IO.Path

        Dim forceDownload As Boolean

        forceDownload = True
        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 Else
                type = "text/plain"
        End Select



        If (forceDownload) Then
            Response.Clear()
            Response.AddHeader("content-disposition", "attachment; filename=" & name)

        End If
        If type <> "" Then
            Response.ContentType = type
        End If

        Response.Write(fullpath)
        Response.End()

end sub