Preencho um FORM em um HTML simples, que ao dar SUBMIT, ele grava no banco de dados as informações digitadas no mesmo, e também dispara um email para mim, contendo um ANEXO(Imagem simples).
Já tentei umas 100 coisas diferentes, não acho o erro no meu script.
Ele grava CERTINHO no BANCO DE DADOS, SALVA O ARQUIVO NA PASTA QUE EU SELECIONO, MAS NÃO ENVIA O E-MAIL DE JEITO NENHUM.
Por favor, se alguma santa alma souber me ajudar, vou ficar mais do que agradecido.
Abaixo todos os arquivos:
(por favor, se eu esqueci de alguma coisa, me avisem)
response.write("<script>alert(' Não foi possível conectar ao servidor de e-mail\n Erro:" & Err.Description & " \n\nOBS: Tente novamente mais tarde !' ); </script>")
End If
If Err = 0 Then
End If
Response.Write("<script>alert(""Enviado com sucesso "&Arquivo&" !"")</script>")
End If
Set Mail = Nothing
response.Write("Pausado")
response.End()
%>
FIM DO CÓDIGO
Novamente, agradeço muito toda e qualquer ajuda!!!
Question
Fabiano Diniz
Pessoal preciso muito de ajuda.
Estou tentando fazer um SCRIPT que:
Preencho um FORM em um HTML simples, que ao dar SUBMIT, ele grava no banco de dados as informações digitadas no mesmo, e também dispara um email para mim, contendo um ANEXO(Imagem simples).
Já tentei umas 100 coisas diferentes, não acho o erro no meu script.
Ele grava CERTINHO no BANCO DE DADOS, SALVA O ARQUIVO NA PASTA QUE EU SELECIONO, MAS NÃO ENVIA O E-MAIL DE JEITO NENHUM.
Por favor, se alguma santa alma souber me ajudar, vou ficar mais do que agradecido.
Abaixo todos os arquivos:
(por favor, se eu esqueci de alguma coisa, me avisem)
DEFAULT.ASP
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sem título</title>
</head>
<script type="text/javascript" src="scripts/up.js"></script>
<body>
<form method="post" enctype="multipart/form-data" name="form1" id="form1">
<table width="340" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF" class="bordaimg">
<tr>
<td width="340" height="123" align="center" valign="top" bgcolor="#FFFFFF"><div align="left"><font size="2" face="Verdana"><span class="textonormal1"><br />
HD
<input name="HD" type="text" id="HD" size="65" />
Tecnico<br />
<input name="tecnico" type="text" id="tecnico" size="65" />
Hora Inicial
<input name="Hora Inicial" type="text" id="Hora Inicial" size="65" />
Hora Final
<input name="HD" type="text" id="HD" size="65" />
Observação
<textarea name="observacao" cols="65" rows="4" id="observacao"></textarea>
<br />
Cliente
<input name="Cliente" type="text" id="Cliente" size="65" />
<br />
<br />
<input type="file" size="40" name="1" id="12" style="<%=style_form %>" />
<br />
</span><br />
<br />
<input name="imageField" type="image" onclick="solicita_upload(this.form,'upload.asp','recebe_up_basico','processando...','Erro ao carregar'); return false;" src="images/up.gif" width="112" height="16" border="0" />
<br />
<a href="java script:fechar();" class="textonormal"><br />
</a>
<div id="recebe_up_basico" class="txt"> </div>
</font></div></td>
</tr>
</table>
</form>
</body>
</html>
CONEXAO.ASP
<%
Set Conn = Server.CreateObject("Adodb.Connection")
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=XXXXXXXXXX;PORT=3306;DATABASE=upload_rat;USER=XXXXXX;PASSWORD=XXXXXX;OPTION=3;")
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.CursorLocation = 3
%>
UPLOAD.ASP
<!--#include file="conexao.asp"-->
<%
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) ' --> extensao do arquivo
fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)
if fileext<>"jpg" then
Response.Write("<p class=""erro"">É permido apenas arquivos no formato .jpg </p>")
response.end
else
end if
' Variaves
Arquivo="HD00000"&objUpload.form("HD")&"."&fileext&""
Cliente=objUpload.form("cliente")
HD=objUpload.form("HD")
TECNICO=objUpload.form("tecnico")
observacao=objUpload.form("observacao")
objUploadedFile.SaveAs caminho & Arquivo & "."&fileext&""
Next
Set objUpload = nothing
If Err <> 0 Then
response.write "<b>Erro no envio do arquivo</b>"
Else
if fileName="" then
else
end if
' Verifica se existe o arquivo
sql_hd="select arquivos.ID from arquivos where arquivos.Arquivo ='"&Arquivo&"'"
Set RS = conn.execute(sql_hd)
if RS.eof then
else
Response.Write("<script>alert(""Arquivo já encontra-se enviado "&Arquivo&" !"")</script>")
response.end
end if
' faz o insert após componente
SQLstmt = "INSERT INTO arquivos (cliente,HD,Arquivo,data,hora,ip,tecnico,hora_inicial,hora_final,observacao)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" &Cliente& "',"
SQLstmt = SQLstmt & "'" & HD & "',"
SQLstmt = SQLstmt & "'" & Arquivo & "',"
SQLstmt = SQLstmt & "'" & DataInvertida(date) & "',"
SQLstmt = SQLstmt & "'" & time & "',"
SQLstmt = SQLstmt & "'" & request.servervariableS("REMOTE_ADDR") & "',"
SQLstmt = SQLstmt & "'" & TECNICO& "',"
SQLstmt = SQLstmt & "'" & time & "',"
SQLstmt = SQLstmt & "'" & time & "',"
SQLstmt = SQLstmt & "'" & observacao & "'"'
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
' Caminho do INSERT
Caminho_JPG=""&caminho&""&Arquivo&""
Session("01") = Request.form("observacao")
' INICAO COMPONENTE de E_MAIL
DIM Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = True
Mail.Host = "mail.meuserver.com.br"
Mail.Username = "meuemail@meuserver.com.br"
Mail.Password ="minhasenha"
Mail.Port = 25
Mail.From = "meuemail@meuserver.com.br"
Mail.FromName = "RAT"
Mail.AddAddress "meuemail@meuserver.com.br"
Mail.Subject = "Assunto do E_mail"
Mail.Body = Session("01")
' Verifica c o Arquivo ta no diretorio
'Set fso2 = CreateObject("Scripting.FileSystemObject")
'If fso2.FileExists(Caminho_JPG) then
'else
'Mail.AddAttachment(Caminho_JPG)
'end if
On Error Resume Next
Mail.Send
If Err <> 0 Then
response.write("<script>alert(' Não foi possível conectar ao servidor de e-mail\n Erro:" & Err.Description & " \n\nOBS: Tente novamente mais tarde !' ); </script>")
End If
If Err = 0 Then
End If
Response.Write("<script>alert(""Enviado com sucesso "&Arquivo&" !"")</script>")
End If
Set Mail = Nothing
response.Write("Pausado")
response.End()
%>
FIM DO CÓDIGO
Novamente, agradeço muito toda e qualquer ajuda!!!
Fabiano
Link to comment
Share on other sites
7 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.