<!--#include file="../../admin/conexao_admin.inc.asp"-->
<%
email_ok = Request.Cookies("email")

IF Request.Cookies("email") = "" then
Response.Redirect("../../nologin.asp")

ELSE 
%>
<!--#include file="../../admin/common.asp"-->
<%

Dim data_cad, LOG_NOME, LOG_COUNT, objFSO, Caminho_Foto

data_cad = Date()
LOG_COUNT = 0
IP = Request.Cookies("ip")
LOG_NOME = rsGeral("users_nome") &" "& rsGeral("users_sobrenome")


    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = admin_conexao
    MM_editCmd.CommandText = "insert into users_downloads (log_users_nome,log_users_email,log_users_file,log_users_ip,log_users_count,log_users_acesso) values ('"& LOG_NOME & "','"& email_ok & "','Audi_TTb.3dxml','"& IP &"','1','"& data_cad &"')"
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

	set MM_editCmd = Nothing

%>
<%
Const adTypeBinary = 1
Response.Clear
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
rem Caminho completo do arquivo para download
objStream.LoadFromFile "e:\home\tecmes\dados\download\3dxml\Audi_TTb.3dxml"
rem Somente o nome do arquivo
Response.AddHeader "Content-Disposition", "attachment; filename=Audi_TTb.3dxml"
Response.AddHeader "Content-Length", objStream.size
Response.Charset = "UTF-8"
rem O ContentType da extensão do arquivo **
Response.ContentType = "application/zip"

for i = 0 to objStream.size
i = i + 256000
Response.BinaryWrite(objStream.Read(i))
Response.Flush
next

objStream.Close
Set objStream = Nothing


End If
%>