RAT " & Arquivo & "

Saudações, Pessoal, por favor, me ajude! Este código abaixo, estou usando para: Preencher o formulário, depois, ao enviar, ele grava no banco de dados, salva o arquivo no servidor e dispara um email. Simples, porém ao tentar usar o componente que limita o tamanho do arquivo na hora do envio, nem REZANDO, ROGANDO PRAGA, FAZENDO PROMESSA, não vai. Tudo que eu li sobre esta paçoca de componente, esta certinho a linha de comando. Só coloquei um IF caso o arquivo seja muito grande, para ele retornar um erro e pausar, para que o usuário coloque um arquivo. "MAXIMO DE 500K". Por favor amigos, se for possível verificar o que errei, onde eu errei, se coloquei em lugar errado, se usei método errado, por favor me ajuda, faz 5 dias que não vai, fiquei amarrado nesta paçoca. Obrigado a todos. Fabiano Ps: qualquer dica de modificações, será bem vinda. <% Function DataInvertida(date) dia= day(date) mes= month(date) ano= year(date) DataInvertida = ano&"-"&mes&"-"&dia End Function func=request("func") Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.SaveToMemory caminho = "D:\Domains\meudominio.com.br\wwwroot\RATS\UPLOAD_RATS\arquivos\" For Each objUploadedFile in objUpload.Files fileext = objUpload.GetFileExt(objUploadedFile.OriginalPath) fileName = objUpload.GetFileName(objUploadedFile.OriginalPath) [b]if objUpload.MaxFileSize = 512000 then response.Write("") response.end [/b]else end if if fileext<>"jpg" then Response.Write("É permido apenas arquivos no formato .jpg
") response.end else end if Arquivo="HD00000"&objUpload.form("HD")&"."&fileext&"" Cliente=objUpload.form("cliente") HD=objUpload.form("HD") TECNICO=objUpload.form("tecnico") observacao=objUpload.form("observacao") apelido=objUpload.form("apelido") cidade=objUpload.form("cidade") empresa=objUpload.form("empresa") usuario_treinado=objUpload.form("usuario_treinado") hora_inicial=objUpload.form("hora_inicial") hora_final=objUpload.form("hora_final") data_visita=objUpload.form("data_visita") atend_hd=objUpload.form("atend_hd") protocolo_hd=objUpload.form("protocolo_hd") tecnico=objUpload.form("tecnico") objUploadedFile.SaveAs caminho & Arquivo Next Set objUpload = nothing If Err <> 0 Then response.write "Erro no envio do arquivo" Else if fileName="" then else end if sql_hd="select arquivos.ID from arquivos where arquivos.Arquivo ='"&Arquivo&"'" Set RS = conn.execute(sql_hd) if RS.eof then else Response.Write("") response.end end if sql_apelido="select arquivos.ID from arquivos where arquivos.apelido ='"&apelido&"'" Set RS = conn.execute(sql_apelido) if RS.eof then else Response.Write("") response.end end if SQLstmt = "INSERT INTO arquivos (HD,Arquivo,data,hora,ip,apelido,cidade,empresa,usuario_treinado,hora_inicial,hora_final,data_visita,atend_hd,protocolo_hd,observacao,tecnico)" SQLstmt = SQLstmt & " VALUES (" SQLstmt = SQLstmt & "'" & HD & "'," SQLstmt = SQLstmt & "'" & Arquivo & "'," SQLstmt = SQLstmt & "'" & DataInvertida(date) & "'," SQLstmt = SQLstmt & "'" & time & "'," SQLstmt = SQLstmt & "'" & request.servervariableS("REMOTE_ADDR") & "'," SQLstmt = SQLstmt & "'" & apelido & "'," SQLstmt = SQLstmt & "'" & cidade & "'," SQLstmt = SQLstmt & "'" & empresa & "'," SQLstmt = SQLstmt & "'" & usuario_treinado & "'," SQLstmt = SQLstmt & "'" & hora_inicial & "'," SQLstmt = SQLstmt & "'" & hora_final & "'," SQLstmt = SQLstmt & "'" & data_visita & "'," SQLstmt = SQLstmt & "'" & atend_hd & "'," SQLstmt = SQLstmt & "'" & protocolo_hd & "'," SQLstmt = SQLstmt & "'" & observacao & "'," SQLstmt = SQLstmt & "'" & tecnico & "'" SQLstmt = SQLstmt & ")" Set RS = conn.execute(SQLstmt) Caminho_JPG=""&caminho&""&Arquivo&"" Dim objCDOSYSCon ``` HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "RAT " & Arquivo & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "######################################################################
" HTML = HTML & "HD: HD00000" & HD & "
" HTML = HTML & "Apelido: " & apelido & "
" HTML = HTML & "Cidade: " & cidade & "
" HTML = HTML & "Empresa: " & empresa & "
" HTML = HTML & "Usuario Treinado: " & usuario_treinado & "
" HTML = HTML & "Hora da Chegada: " & hora_inicial & "
" HTML = HTML & "Hora da Saida: " & hora_final & "
" HTML = HTML & "Data da Visita: " & data_visita & "
" HTML = HTML & "Técnico atendimento HD Caixa: " & atend_hd & "
" HTML = HTML & "Protocolo HD Caixa: " & protocolo_hd & "
" HTML = HTML & "Observação RAT: " & observacao & "
" HTML = HTML & "Tecnico Instalador: " & tecnico & "
" ``` HTML = HTML & "######################################################################" ``` HTML = HTML & "" HTML = HTML & "" ``` Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSMail.BodyPart.Charset = "ISO-8859-1" objCDOSYSMail.BodyPart.Charset = "utf-8" objCDOSYSMail.HTMLBody = Message objCDOSYSMail.HTMLBodyPart.Charset = "utf-8" Session.Lcid = 1046 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "meudominio.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "teste@meudominio.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "meudominio_senha" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 300 objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "teste@meudominio.com.br" objCDOSYSMail.To = "teste@meudominio.com.br" objCDOSYSMail.AddAttachment ("D:\Domains\meudominio.com.br\wwwroot\RATS\UPLOAD_RATS\arquivos\" & Arquivo) objCDOSYSMail.Subject = "ENVIO DE RATS" objCDOSYSMail.HTMLBody = HTML objCDOSYSMail.Send On Error Resume Next Mail.Send If Err = 0 Then End If Response.Write("") End If Set Mail = Nothing %>

FabianoPc

Warning: mysql_query() expects parameter 1 to be string, resource give

Limite de tamanho - Dundas Upload