Error:

<%

'If request.querystring("durum")<>"ok" Then
Response.Buffer = True
'Response.Clear
Dim oFS, oFolder, oFile, dosya
dosya=server.mappath("/download/sayac.txt")
Set oFS = Server.CreateObject("Scripting.FileSystemObject")

' ilk sayıyı okuyalım
set oFile=oFS.OpenTextFile(dosya,1,0)
ilk=oFile.readAll
yaz=cInt(ilk)+1
oFile.close
set oFile=nothing

' yazmak için aç
set oFile=oFS.OpenTextFile(dosya,2,0)
oFile.writeline(yaz)
oFile.close
set oFile=nothing

' son değeri oku
'set oFile=oFS.OpenTextFile(dosya,1,0)
'ilk=oFile.readAll
'oFile.close
'set oFile=nothing
'set oFS=nothing
'response.redirect("download.asp?durum=ok")
response.redirect("download/avseq01.zip")
'Call downloadfile()

'else 


''''' Download Ettirelim
'Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
dosya=server.mappath("\download\avseq01.zip")

Const adTypeBinary = 1
Set oFSs = Server.CreateObject("Scripting.FileSystemObject")
set oFiles=oFSs.GetFile (dosya)
strFilePath = dosya
strFileSize = oFiles.Size
strFileName = oFiles.Name

'Response.Clear

'8*******************************8
' Requires MDAC 2.5 to be stable
' I recommend MDAC 2.6 or 2.7
'8*******************************8
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = lcase(Right(strFileName, 4))
    
	' Feel Free to Add Your Own Content-Types Here
    Select Case strFileType
        Case ".asf"
            ContentType = "video/x-ms-asf"
        Case ".avi"
            ContentType = "video/avi"
        Case ".doc"
            ContentType = "application/msword"
        Case ".zip"
            ContentType = "application/zip"
        Case ".xls"
            ContentType = "application/vnd.ms-excel"
        Case ".gif"
            ContentType = "image/gif"
        Case ".jpg", "jpeg"
            ContentType = "image/jpeg"
        Case ".wav"
            ContentType = "audio/wav"
        Case ".mp3"
            ContentType = "audio/mpeg3"
        Case ".mpg", "mpeg"
            ContentType = "video/mpeg"
        Case ".rtf"
            ContentType = "application/rtf"
		Case ".htm", "html"
            ContentType = "text/html"
		Case ".asp"
            ContentType = "text/asp"
        Case Else
            'Handle All Other Files
            ContentType = "application/octet-stream"
    End Select
	
	
	Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
	Response.AddHeader "Content-Length", strFileSize
	' In a Perfect World, Your Client would also have UTF-8 as the default 
	' In Their Browser
	Response.Charset = "UTF-8"
	Response.ContentType = ContentType
	Response.BinaryWrite objStream.Read
	Response.Flush

objStream.Close
Set objStream = Nothing

'end if


Function downloadFile()  
 ' make sure you are on the latest MDAC version for this to work  
 ' -------------------------------------------------------------  
  
  
 ' get full path of specified file  
 strFilename = server.MapPath("\download\avseq01.zip")  
  
  
 ' clear the buffer  
 Response.Buffer = True  
 Response.Clear  
  
 ' create stream  
 Set s = Server.CreateObject("ADODB.Stream")  
 s.Open  
  
 ' Set as binary  
 s.Type = 1  
  
 ' load in the file  
 on error resume next  
  
  
 ' check the file exists  
 Set fso = Server.CreateObject("Scripting.FileSystemObject")  
 if not fso.FileExists(strFilename) then  
 Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")  
 Response.End  
 end if  
  
  
 ' get length of file  
 Set f = fso.GetFile(strFilename)  
 intFilelength = f.size  
  
  
 s.LoadFromFile(strFilename)  
 if err then  
 Response.Write("<h1>Error: </h1>" & err.Description & "<p>")  
 Response.End  
 end if  
  
 ' send the headers to the users browser  
 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name  
 Response.AddHeader "Content-Length", intFilelength  
 Response.CharSet = "UTF-8"  
 Response.ContentType = "application/zip"  
  
 ' output the file to the browser  
 Response.BinaryWrite s.Read  
 Response.Flush  
  
  
 ' tidy up  
 s.Close  
 Set s = Nothing 
 End Function 
%>