

<%@Language="VBScript"%>
<%Response.Buffer = True%>
<%response.Expires=-1%>

<%

strPath = "/Android/wdservice_full.apk"

mustUpdate = 0

	Call DownloadFile(strPath)

Private Sub DownloadFile(file)
Dim strAbsFile
Dim strFileExtension
Dim objFSO
Dim objFile
Dim objStream
strAbsFile = Server.MapPath(file)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strAbsFile) Then
	Set objFile = objFSO.GetFile(strAbsFile)
	Response.Clear
	Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
	''Response.AddHeader "Content-Length", objFile.Size
	Response.ContentType = "application/octet-stream"

	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Open
	objStream.Type = 1
	Response.CharSet = "UTF-8"
	objStream.LoadFromFile(strAbsFile)
	Response.BinaryWrite(objStream.Read)
	objStream.Close

	Set objStream = Nothing
	Set objFile = Nothing
Else
	Response.Clear
	Response.Write("No such file exists." & strAbsFile)
End If
Set objFSO = Nothing
End Sub

Private Sub out(texto)
Response.Write(texto)
End Sub
%>