PRISCILA STOCHINI
-
Total de itens
270 -
Registro em
-
Última visita
Tudo que PRISCILA STOCHINI postou
-
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Mas aonde coloco isso no código??? -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html><!-- InstanceBegin template="/Templates/SUPORTE_SIM.dwt" codeOutsideHTMLIsLocked="false" --> <head> <title>Multiplus - Softwares Técnicos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .link{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FFFFFF; font-size: 12px; } a.link:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; } .link01{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000; font-size: 12px; } a.link01:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; } .link02{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000; font-size: 12px; font-weight: bold; } a.link02:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; font-weight: bold; } .link03{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000042 } a.link03:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; } .style1 {font-size: x-small} .style2 {font-style: normal; line-height: normal; text-decoration: none; color:#FFFFFF; font-family: Arial, Helvetica, sans-serif;} --> </style> </head> <body scroll="no"> <table width="100%" height="612" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="14%" height="45" background="../Pictures_Inicial/fundo_1.gif"> <div align="center"> <font color="#FFFFFF" size="5" face="Arial, Helvetica, sans-serif"> <strong>MULTIPLUS<br> <font size="2">Softwares Técnicos</font> </strong> </font> </div> </td> <td width="9%" height="50" nowrap background="../Pictures_Inicial/fundo_1.gif" bgcolor="#FFFFFF"> </td> <td colspan="2" valign="bottom" background="../Pictures_Inicial/fundo_2.gif"><div align="right" class="style1"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif"><strong><span class="style1"><a href="http://www.multiplus.com" class="style2">Home</a> | <a href="http://www.multiplus.com/Empresa/empresa.htm" class="style2">Empresa</a> | <a href="http://www.multiplus.com/Eventos/Seminarios/prog_semin.htm" class="style2">Cursos e Eventos</a> | <a href="../Atendimento_VIP.htm" class="style2">Atendimento Vip</a> | <a href="http://www.multiplus.com/Compra/Precos/precos.htm" class="style2">Preços</a> | <a href="../Oportunidades.htm" class="style2">Oportunidades</a> | <a href="http://www.multiplus.com/Auto_atendimento/opiniao.htm" class="style2"> Fale Conosco</a></span></strong></font></div> </td> </tr> <tr> <td height="488" valign="top" bgcolor="#C5C5C5"><table width="100%" border="2" align="center" cellspacing="1" bordercolor="c5c5c5" bgcolor="#C5C5C5"> <tr> <td height="110" valign="top" class="style27"><div align="left"><img src="../SIM/ImagensSIM/suporte.jpg" width="158" height="128"></div></td> </tr> <tr> <td height="37" valign="middle" bordercolor="#FFFFFF" bgcolor="#c5c5c5" class="style27"><div align="center" class="style62" style="font-size: 14px; font-weight: bold; font-family: Arial, Helvetica, sans-serif">SUPORTE TÉCNICO</div></td> </tr> <tr> <td height="26" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><a href="../SIM/PRINCIPALXYZ000.htm" class="link01">Dúvidas Freqüentes</a></td> </tr> <tr> <td height="28" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><a href="../SIM/Principal_patches.htm" class="link01">Patches de Atualização</a> </td> </tr> <tr> <td height="29" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><a href="../Enciclopedia/Internet/Enciclopedia.html" class="link01">Enciclopédia Internet</a> </td> </tr> <tr> <td height="26" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><span class="link01"><a href="../Enciclopedia/Hardware/Enciclopedia.html" class="link01">Guia de Hardware</a> </span></td> </tr> <tr> <td height="25" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><a href="../Enciclopedia/Otimizacao/MENU.html" class="link01">Otimização do Sistema </a></td> </tr> <tr> <td height="29" valign="middle" bordercolor="#FFFFFF" bgcolor="#D3D3D3" class="style27"><p><a href="../SIM/SUGESTAO_FORM.asp" class="link01">Sugestões\Reclamações</a></p></td> </tr> </table></td> <td colspan="2"><!-- InstanceBeginEditable name="CORPO" --> <div id="Layer1" style="position:absolute; left:181px; top:80px; width:850px; height:540px; z-index:1; overflow: auto;"> <form name="sim" action="envia_DUVIDA.asp" method="post" enctype="multipart/form-data"> <table border="1" cellspacing="0" cellpadding="6" width="797" align="center" bordercolor="#999999"> <tr> <td colspan="4" bgcolor="#778899"><h2 align="center" class="style12" style="font-family: Arial, Helvetica, sans-serif; color: #FFFFFF">Suporte por Internet Multiplus - SIM </h2></td> </tr> <tr> <td colspan="4"><p class="style56">Os campos marcados com <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/> são obrigatórios. </p></td> </tr> <tr> <td width="136" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Código SIM </div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <input name="codigo" type="text" class="formulario" id="codigo" size="20" maxlength="8" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Email</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <input name="email" type="text" class="formulario" id="email" size="40" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Versão Windows </div></td> <td width="195"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <select name="win" id="win"> <option value="95" selected="selected">95</option> <option value="98">98</option> <option value="2000">2000</option> <option value="XP">XP</option> <option value="ME">ME</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Processador</div></td> <td width="305"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <input name="proc" type="text" class="formulario" id="proc" size="20" maxlength="50" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Versão AutoCAD</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <select name="versaoAUTO" size="1" class="formulario" id="versaoAUTO"> <option value="R14" selected="selected">R14</option> <option value="R2000">R2000</option> <option value="R2002">R2002</option> <option value="R2004">R2004</option> <option value="R2005">R2005</option> <option value="R2006">R2006</option> <option value="R2007">R2007</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> <td bgcolor="#CCCCCC"><div align="right" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Software</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <select size="1" name="Software" id="Software"> <option selected="selected">Cype Concreto</option> <option>Cype Metálicas</option> <option>M2*Arq</option> <option>Arquimedes</option> <option>PRO-Elétrica</option> <option>PRO-Hidráulica</option> <option>PRO-Ar Condicionado</option> <option>EPLANT</option> <option>TecnoMETAL</option> <option>TecnoSTEEL</option> <option>TecnoSOLID</option> <option>ArmaFACIL</option> <option>ArmaBLOCOS</option> <option>Pré - MOLDAR</option> <option>Pro - ALVENARIA</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Versão</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <input name="versao" type="text" class="formulario" id="versao" size="10" maxlength="10" /> </span><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px"><span class="style57" style="font-size: 12px">(Ex.: CYPECAD <span style="font-weight: bold; color: #0000FF">2005.1</span>.a, PRO-Elétrica <span style="font-weight: bold; color: #0000FF">4.0</span> b)</span></span> <span class="style56" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"><img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Release (letra)</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <input name="release" type="text" class="formulario" id="release" size="15" /> </span><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px">(Ex.: CYPECAD 2005.1.<span style="font-weight: bold; color: #0000FF">a</span>, PRO-Elétrica 4.0 <span style="font-weight: bold; color: #0000FF">b</span>)</span> <span class="style56" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"><img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Tipo da dúvida </div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <select size="1" name="tipo" id="tipo"> <option selected="selected">Instalação</option> <option>Utilização</option> <option>Senha</option> <option>Outros</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Dúvida</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold"> <label> <textarea name="duvida" cols="70" rows="3" id="duvida"></textarea> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></label> </span></td> </tr> <tr> <td height="38" align="right" bgcolor="#CCCCCC" class="rotulo_formulario style7"><p align="right" style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Anexar</p></td> <td colspan="3"><input name="arquivo" type="file" id="arquivo" size="60"/> </td> </tr> </table> <p align="center"> <input name="Enviar" type="submit" class="formulario" value="Enviar" /> <input name="Apagar" type="reset" class="formulario" id="Apagar" value="Apagar Dados" /> </p> </form> </div> <!-- InstanceEndEditable --></td> <td width="18%" bordercolor="#FFFFFF"> </td> </tr> </table> </body> <!-- InstanceEnd --></html> Tenho esse codigo, ele envia anexo, mas se não anexarmos nada dá erro..... Preciso resolver esse problema, qm pode me ajudar??? -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Era isso mesmo...eu estava deletando antes de enviar.... Agora outra questão... Se o formulario não tiver anexo , dá erro ..e não pode.... o que poderia fazer a partir desse codigo acima!!! -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Vou começar a questão de novo, acho que me baguncei... <!-- #include file = "funcoes_upload.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Vcodigo = UploadRequest.Item("codigo").Item("Value") Vemail = UploadRequest.Item("email").Item("Value") Vwin = UploadRequest.Item("win").Item("Value") Vproc = UploadRequest.Item("proc").Item("Value") VversaoAUTO = UploadRequest.Item("versao").Item("Value") VSoftware = UploadRequest.Item("Software").Item("Value") Vversao = UploadRequest.Item("versao").Item("Value") Vrelease = UploadRequest.Item("release").Item("Value") Vtipo = UploadRequest.Item("tipo").Item("Value") Vduvida = UploadRequest.Item("duvida").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if '============ ENVIO DO E-MAIL ============= 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<B><font size=""4"" color=""#FF0000""><div align=""center"">DÚVIDA ENVIADA ATRAVÉS DO SITE</div></font></tr></B><BR><HR><BR>" HTML = HTML & "</table>" HTML = HTML & "<B><font size=""3""> Data de Envio da Dúvida:" & DATE() & "</font> </B><BR><BR>" HTML = HTML & "<B>CODIGO SIM : </B>" & Vcodigo & "<BR>" HTML = HTML & "<B>Email : </B>" & Vemail & "<BR>" HTML = HTML & "<B>Windows : </B>" & Vwin & "<BR>" HTML = HTML & "<B>Processador : </B>" & Vproc & "<BR>" HTML = HTML & "<B>Versão do AUTO CAD: </B>" & VversaoAUTO & "<BR>" HTML = HTML & "<B>Software : </B>" & Vsoftware & "<BR>" HTML = HTML & "<B>Versão : </B>" & Vversao & "<BR>" HTML = HTML & "<B>Release : </B>" & Vrelease & "<BR>" HTML = HTML & "<B>Tipo da Dúvida : </B>" & Vtipo & "<BR>" HTML = HTML & "<B>DÚvida : </B>" & Vduvida & "<BR>" HTML = HTML & "<B><BR><HR><HR><BR>" HTML = HTML & "<B><font size=""4"" color=""#FF0000"">RESPOSTA DO TÉCNICO</font></B><BR><BR>" HTML = HTML & "<B>Técnico Responsável:<B><BR>" HTML = HTML & "<B>Data de entrega:</B><BR>" HTML = HTML & "<B>Mensagem:<B>" HTML = HTML & "</body>" HTML = HTML & "</html>" varanexo = Server.MapPath(Varquivo) Set FSO= Server.CreateObject("Scripting.FileSystemObject") If Fso.FileExists(varanexo) Then Set anexo = FSO.GetFile(varanexo) anexo.delete end if 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Attachfile varanexo myMail.Body = HTML myMail.Send Set myMail = Nothing ' Mostra Mensagem de Confirmação na Tela response.write("<script>location = '../SIM/PRINCIPALXYZ000.htm';alert('Sua mensagem foi enviada com sucesso!.')</script>") %> Bom, esse é o código, antes estava funcionando, acho que apaguei alguma coisa que não devia...Por favor qm puder verifica pra mim.... A ideia é criar um formulario que tenha a possibilidade de enviar anexo também... -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Bom o meu maior problema agora mesmo é o arquivo não ir se não tiver anexo....preciso de ajuda nisso..a verificação fica pra depois!!! <!-- #include file = "funcoes_upload.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Vcodigo = UploadRequest.Item("codigo").Item("Value") Vemail = UploadRequest.Item("email").Item("Value") Vwin = UploadRequest.Item("win").Item("Value") Vproc = UploadRequest.Item("proc").Item("Value") VversaoAUTO = UploadRequest.Item("versao").Item("Value") VSoftware = UploadRequest.Item("Software").Item("Value") Vversao = UploadRequest.Item("versao").Item("Value") Vrelease = UploadRequest.Item("release").Item("Value") Vtipo = UploadRequest.Item("tipo").Item("Value") Vduvida = UploadRequest.Item("duvida").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if '============ ENVIO DO E-MAIL ============= 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<B><font size=""4"" color=""#FF0000""><div align=""center"">DÚVIDA ENVIADA ATRAVÉS DO SITE</div></font></tr></B><BR><HR><BR>" HTML = HTML & "</table>" HTML = HTML & "<B><font size=""3""> DATA DE ENVIO DA DÚVIDA:" & DATE() & "</font> </B><BR><BR>" HTML = HTML & "<B>CODIGO SIM : </B>" & Vcodigo & "<BR>" HTML = HTML & "<B>EMAIL : </B>" & Vemail & "<BR>" HTML = HTML & "<B>WINDOWS : </B>" & Vwin & "<BR>" HTML = HTML & "<B>PROCESSADOR : </B>" & Vproc & "<BR>" HTML = HTML & "<B>VERSÃO DO AUTO CAD: </B>" & VversaoAUTO & "<BR>" HTML = HTML & "<B>SOFTWARE : </B>" & Vsoftware & "<BR>" HTML = HTML & "<B>VERSÃO : </B>" & Vversao & "<BR>" HTML = HTML & "<B>RELEASE : </B>" & Vrelease & "<BR>" HTML = HTML & "<B>TIPO DA DUVIDA : </B>" & Vtipo & "<BR>" HTML = HTML & "<B>DUVIDA : </B>" & Vduvida & "<BR>" HTML = HTML & "<B><BR><HR><HR><BR>" HTML = HTML & "<B><font size=""4"" color=""#FF0000"">RESPOSTA DO TÉCNICO</font></B><BR><BR>" HTML = HTML & "<B>TÉCNICO RESPONSÁVEL:<B><BR>" HTML = HTML & "<B>DATA DE RESPOSTA:</B><BR>" HTML = HTML & "<B>MENSAGEM:<B>" HTML = HTML & "</body>" HTML = HTML & "</html>" varanexo = Server.MapPath(Varquivo) Set FSO= Server.CreateObject("Scripting.FileSystemObject") If Fso.FileExists(varanexo) Then Set anexo = FSO.GetFile(varanexo) anexo.delete end if Vtime = 360 Vtime = Server.ScriptTimeout 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Attachfile varanexo myMail.Body = HTML myMail.Send Set myMail = Nothing ' Mostra Mensagem de Confirmação na Tela response.write("<script>location = '../SIM/PRINCIPALXYZ000.htm';alert('Sua mensagem foi enviada com sucesso!.')</script>") %> Esse é o codigo... Tem algum erro... Não está mais enviando o email...também preciso fazer alguma forma de o arquivo em anexo não ser obrigatorio... Tava dando tudo certo ..... ai tentei colocar um if...e pifou tudo...alguém me ajuda ver se eu tirei algo que não devia do codigo!! -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") LINE 43 Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if --- O codigo de Upload é esse e com aquele If está dando erro...na line 43 -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
também acho... Uma perguntinha anexa... Como posso fazer um verificação de formulario por ASP...Não queria que fosse em JavaScript -
Gostaria de saber qual a maneira mais facil de se fazer uma validação de formulario em ASP???
-
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
uns 3Mb ---- ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if ------------------ não estou conseguindo enviar o formulario se não tiver o arquivo... esse é meu codigo!!!! -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Então esse erro deu quando eu coloquei um arquivo muito grande...com arquivos menores não ocorre... Queria saber se tem como eu delimitar o tamanho do arquivo......trabalho numa empresa de engenharia e os arquivos em DWG são grande...precisaria delimitar tamanho dos arquivos... Pelo que eu entendi desse erro o problema ou é no IIS - servidor no caso??? ou eu colocar esse variavel Server.ScriptTimeout ??? -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Active Server Pages error 'ASP 0113' Script timed out /CONTROLE/envia_BD.asp The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. ..... Deu esse erro???? Tem um limite de Tamanho???/ -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Eba!!! Funcionou....agora a questão é outra... tem como depois de enviar esse email eu gostaria de deletar o arquivo do servidor..tem como???? Outra pergunta....necessariamente eu tenho que enviar os dados pra um banco de dados pra enviar o email com anexo????? -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Eu estou conseguindo enviar o arquivo pro servidor...mas não estou conseguindo enviar pro email... Consegui enviar os dados....agora preciso enviar o arquivo... -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Neste codigo que você colocou eu consigo enviar o arquivo em anexo??? -
Upload De Arquivo E Enviar Por E-mail
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
O arquivo está indo direitinho...a unica coisa que não estou conseguindo fazer é depois de cadastrar os dados no BD enviar para um email esse dados... -
Bom, eu sei...desculpa... É estou com o problema ainda... Agora eu consegui enviar por BD, só não estou conseguindo selecionar os dados do BD pra enviar pro email ....me ajuda como posso fazer isso...???? Além disso estou com outro problema... no formulario tem o campo de anexar arquivo, mas eu não quero que seja obrigatorio...acredito que o problema esteja aqui... ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") LINE 43 Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if
-
Mudando um pouco de assunto, qm pode ver se acha meu erro nestas duas páginas??? Já vi e revi umas 10 vezes e não acho... <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Multiplus - Softwares Técnicos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .link01{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FFFFFF } a.link01:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000 } .link02{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000; font-size: 12px; font-weight: bold; } a.link02:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; font-weight: bold; } .link03{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000042 } a.link03:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-size: 12px; } .link021 { font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000 } .style58 { font-family: Arial, Helvetica, sans-serif; font-size: 18px; color: #FF0000; } #Layer2 { position:absolute; left:151px; top:110px; width:865px; height:495px; z-index:1; } .style60 {font-family: Arial, Helvetica, sans-serif} .style65 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; } .style67 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; } --> </style> </head> <body> <div id="Layer2"> <table border="1" cellspacing="0" cellpadding="6" width="91%" align="center" bordercolor="#999999"> <form action="envia.asp" name="suporte_sim" method="post"> <tr> <td colspan="4" bgcolor="#CCCCCC"><h2 align="center" class="Estilo1 style60">Cadastro para Acesso ao SIM </h2></td> </tr> <tr> <td colspan="4"><p class="txt style60">Os campos marcados com <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"> são obrigatórios. </p></td> </tr> <tr> <td width="151" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style65">Usúario Licenciado:</div></td> <td colspan="3"><span class="style67"> <input name="usuario" type="text" class="formulario" id="usuario" size="50" maxlength="150"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>Nome para Contato: </strong></div></td> <td width="242"><span class="style67"> <input name="contato" type="text" class="formulario" id="contato"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></span></td> <td colspan="2"><span class="style67"><strong>Hardlock:</strong> <input name="hardlock" type="text" class="formulario" id="hardlock"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>Endereço</strong></div></td> <td><span class="style67"> <input name="endereco" type="text" class="formulario" id="endereco" size="30" maxlength="150"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></span></td> <td width="98"><span class="style67"><strong>nº</strong> <input name="num" type="text" class="formulario" id="num" size="8" maxlength="10"> </span></td> <td width="238"><span class="style67"><strong>Compl. <input name="compl" type="text" class="formulario" id="compl" size="10" maxlength="10"> </strong></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>CEP</strong></div></td> <td><span class="style67"> <input name="cep" type="text" class="formulario" id="cep" size="18" maxlength="9"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></span></td> <td><span class="style67"><strong>UF: <label> <select name="estado" size="1" class="formulario" id="estado"> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AP">AP</option> <option value="AM">AM</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="muito">muito</option> <option value="pra">pra</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RO">RO</option> <option value="RN">RN</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> </select> </label> </strong></span></td> <td><span class="style67"><strong>Cidade:</strong> <input name="cidade" type="text" class="formulario" id="cidade" size="20" maxlength="150"> </span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>DDD</strong></div></td> <td colspan="3"><span class="style65"> <input name="ddd" type="text" class="formulario" id="ddd" size="6" maxlength="3"> </span><span class="style67"><strong>Tel.: <input name="tel" type="text" class="formulario" id="tel" size="18" maxlength="9"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"> Fax: <input name="fax" type="text" class="formulario" id="fax" size="18" maxlength="9"> Cel: <input name="cel" type="text" class="formulario" id="cel" size="18" maxlength="9"> </strong></span></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>E-mail</strong></div></td> <td colspan="3"><span class="style67"> <input name="email" type="text" class="formulario" id="email" size="35"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"> <strong>Home Page <input name="homepage" type="text" class="formulario" id="homepage" size="35"> </strong></span></td> </tr> <tr> <td height="25" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>CGC/CPF:</strong></div></td> <td colspan="3"><p class="style67"><strong> <input name="cgccpf" type="text" class="formulario" id="cgccpf" size="25"> IE/RG: <input name="ierg" type="text" class="formulario" id="ierg" size="25"> </strong></p></td> </tr> <tr> <td height="25" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style67"><strong>Software</strong></div></td> <td colspan="3"><span class="style67"> <!--webbot bot="Validation" S-Display-Name="Software" B-Value-Required="TRUE" --> <strong> <SELECT size="1" name="Software"> <OPTION selected>Cype Concreto</OPTION> <OPTION>Cype Metálicas</OPTION> <OPTION>M2*Arq</OPTION> <OPTION>Arquimedes</OPTION> <OPTION>PRO-Elétrica</OPTION> <OPTION>PRO-Hidráulica</OPTION> <OPTION>PRO-Ar Condicionado</OPTION> <OPTION>EPLANT</OPTION> <OPTION>TecnoMETAL</OPTION> <OPTION>TecnoSTEEL</OPTION> <OPTION>TecnoSOLID</OPTION> <OPTION>ArmaFACIL</OPTION> <OPTION>ArmaBLOCOS</OPTION> <OPTION>Pré - MOLDAR</OPTION> <OPTION>Pro - ALVENARIA</OPTION> </SELECT> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"> Versão <input name="versao" type="text" class="formulario" id="versao" size="10" maxlength="10"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"> Release <input name="release" type="text" class="formulario" id="release" size="10" maxlength="10"> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"></strong></span></td> </tr> <tr> <td height="33" colspan="4" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="center"> <input type="submit" name="Enviar" value="ENVIAR"> <input type="reset" name="Limpar" value="LIMPAR"> </div></td> </tr> </form> </table> <p> </p> </div> <table width="100%" height="612" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="14%" height="45" background="../Pictures_Inicial/fundo_1.gif"> <div align="center"> <font color="#FFFFFF" size="5" face="Arial, Helvetica, sans-serif"> <strong>MULTIPLUS<br> <font size="2">Softwares Técnicos</font> </strong> </font> </div> </td> <td width="9%" height="50" background="../Pictures_Inicial/fundo_1.gif" bgcolor="#FFFFFF"> </td> <td colspan="2" valign="bottom" background="../Pictures_Inicial/fundo_2.gif"><div align="right"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong><a href="http://www.cype.com.br" class="link01">Home</a>| <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Empresa.htm" class="link01">Empresa</a> | <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Treinamentos.htm" class="link01">Cursos e Eventos</a> | <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Atendimento_VIP.htm" class="link01">Atendimento Vip</a> | <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Precos.htm" class="link01">Preços</a> | <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Oportunidades.htm" class="link01">Oportunidades</a> | <a href="../FORMULARIOS/PROPOSTAS_COMERCIAIS/Fale_Conosco.htm" class="link01"> Fale Conosco</a></strong></font></div> </td> </tr> <tr> <td height="488" valign="top" bgcolor="#C5C5C5"><p align="center"><br> <br> <span class="style58">ESPAÇO <br> RESERVADO<br> PARA COLOCAR<br> ALGUM LINK, <br> ALGUMAS <br> COISA. </span></p> </td> <td colspan="2"> </td> <td width="18%" bordercolor="#FFFFFF"> </td> </tr> </table> </body> </html> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'recupera os valores Vnomeempresa = Request.Form("usuario") Vcontato = Request.Form("contato") Vhardlock = Request.Form("hardlock") Vendereco = Request.Form("endereco") Vnum = Request.Form("num") Vcompl = Request.Form("compl") Vcep = Request.Form("cep") Vcidade = Request.Form("cidade") Vestado = Request.Form("estado") Vddd = Request.Form("ddd") Vtel = Request.Form("tel") Vfax = Request.Form("fax") Vcel = Request.Form("cel") Vemail = Request.Form("email") Vhomepage = Request.Form("homepage") Vcgccpf = Request.Form("cgccpf") Vierg = Request.Form("ierg") Vsoftware = Request.Form("software") Vversao = Request.Form("versao") Vrelease = Request.Form("release") 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & "<font size=""1"" face=""verdana"">" HTML = HTML & "<B>CADASTRO NO SIM PELO SITE</B><BR><HR><BR>" HTML = HTML & "<B>USUÁRIO LICENCIADO: </B>" & Vnomeempresa & "<BR>" HTML = HTML & "<B>CONTATO: </B>" & Vcontato & "<BR>" HTML = HTML & "<B>HARDLOCK: </B>" & Vhardlock & "<BR>" HTML = HTML & "<B>ENDEREÇO: </B>" & Vendereco & "<BR>" HTML = HTML & "<B>Nº: </B>" & Vnum & "<BR>" HTML = HTML & "<B>COMPLEMENTO: </B>" & Vcompl & "<BR>" HTML = HTML & "<B>CEP: </B>" & Vcep & "<BR>" HTML = HTML & "<B>UF: </B>" & Vestado & "<BR>" HTML = HTML & "<B>CIDADE: </B>" & Vcidade & "<BR>" HTML = HTML & "<B>DDD: </B>" & Vddd & "<BR>" HTML = HTML & "<B>TEL: </B>" & Vtel & "<BR>" HTML = HTML & "<B>FAX: </B>" & Vfax & "<BR>" HTML = HTML & "<B>CEL: </B>" & Vcel & "<BR>" HTML = HTML & "<B>EMAIL: </B>" & Vemail & "<BR>" HTML = HTML & "<B>HOMEPAGE: </B>" & Vhomepage & "<BR>" HTML = HTML & "<B>CPF/CGC: </B>" & Vcpfcgc & "<BR>" HTML = HTML & "<B>IE/RG: </B>" & Vierg & "<BR>" HTML = HTML & "<B>SOFTWARE: </B>" & Vsoftware & "<BR>" HTML = HTML & "<B>VERSÃO: </B>" & Vversao & "<BR>" HTML = HTML & "<B>RELEASE: </B>" & Vrelease & "<BR>" HTML = HTML & "</body>" HTML = HTML & "</html>" 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "CADASTRO NO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing URL = "aguarde.asp" response.redirect(URL) %> Não está chegando os dados do formulario no email.... E estava isso que é o pior
-
Bom, consegui fazer o upload dos arquivos para o servidor. Agora preciso pegar esses arquivos e enviar por um email. No BD, eu coloquei o caminho do arquivo, e criei uma pasta para os arquivos irem ao uplodar!!!! Como faço para pegar um arquivo do servidor e enviar para um email pelo asp???
-
FORMULARIO <!-- #include file = "funcoes_upload.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=iso-8859-1" /> <title>Multiplus - Softwares Técnicos - Dúvidas do SIM</title> <style type="text/css"> <!-- .style5 { color: #FFFFFF; font-family: Arial, Helvetica, sans-serif; } .style7 { font-family: Arial, Helvetica, sans-serif; font-weight: bold; } .style9 {font-family: Arial, Helvetica, sans-serif; font-size: 16px;} .style10 {font-size: 12px; font-family: Arial, Helvetica, sans-serif;} --> </style> </head> <body> <form name="sim" action="envia_BD.asp" method="post" enctype="multipart/form-data"> <table border="1" cellspacing="0" cellpadding="6" width="865" align="center" bordercolor="#999999"> <tr> <td colspan="2" bgcolor="#778899"><h2 align="center" class="Estilo1 style5">Suporte por Internet Multiplus - SIM </h2></td> </tr> <tr> <td colspan="2"><p class="txt style10">Os campos marcados com <strong><img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong> são obrigatórios. </p></td> </tr> <tr> <td width="138" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Código SIM </div></td> <td width="697"><strong> <input name="codigo" type="text" class="formulario" id="codigo" size="20" maxlength="8" /> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Email</div></td> <td><strong> <input name="email" type="text" class="formulario" id="email" size="40" /> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Versão Windows </div></td> <td><strong> <select name="win" id="win"> <option value="95" selected="selected">95</option> <option value="98">98</option> <option value="2000">2000</option> <option value="XP">XP</option> <option value="ME">ME</option> </select> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Processador</div></td> <td><strong> <input name="proc" type="text" class="formulario" id="proc" size="20" maxlength="50" /> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Versão AutoCAD</div></td> <td><strong> <select name="versaoAUTO" size="1" class="formulario" id="versaoAUTO"> <option value="R14" selected="selected">R14</option> <option value="R2000">R2000</option> <option value="R2002">R2002</option> <option value="R2004">R2004</option> <option value="R2005">R2005</option> <option value="R2006">R2006</option> <option value="R2007">R2007</option> </select> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario style7"><div align="right">Software</div></td> <td><select size="1" name="Software" id="Software"> <option selected="selected">Cype Concreto</option> <option>Cype Metálicas</option> <option>M2*Arq</option> <option>Arquimedes</option> <option>PRO-Elétrica</option> <option>PRO-Hidráulica</option> <option>PRO-Ar Condicionado</option> <option>EPLANT</option> <option>TecnoMETAL</option> <option>TecnoSTEEL</option> <option>TecnoSOLID</option> <option>ArmaFACIL</option> <option>ArmaBLOCOS</option> <option>Pré - MOLDAR</option> <option>Pro - ALVENARIA</option> </select> <strong><img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Versão</div></td> <td><strong><span class="style9"> <input name="versao" type="text" class="formulario" id="versao" size="10" maxlength="10" /> </span><img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Release</div></td> <td><strong> <input name="release" type="text" class="formulario" id="release" size="15" /> <img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Tipo da dúvida </div></td> <td><p> <select size="1" name="tipo" id="tipo"> <option selected="selected">Instalação</option> <option>Utilização</option> <option>Senha</option> <option>Outros</option> </select> <strong><img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></p></td> </tr> <tr> <td bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right" class="style7">Dúvida</div></td> <td><label> <textarea name="duvida" cols="70" rows="5" id="duvida"></textarea> <strong><img src="SIM/Consultas/obrigatorio.gif" width="18" height="18" align="absmiddle" /></strong></label></td> </tr> <tr> <td align="right" bgcolor="#CCCCCC" class="rotulo_formulario style7"><p align="right">Anexar</p></td> <td><input name="arquivo" type="file" id="arquivo" size="60"/> </td> </tr> </table> <p align="center"> <input name="Enviar" type="submit" class="formulario" value="Enviar" /> <input name="Apagar" type="reset" class="formulario" id="Apagar" value="Apagar Dados" /> </p> </form> </body> </html> ENVIA PARA O BANCO DE DADOS <!-- #include file = "funcoes_upload.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Vcodigo = UploadRequest.Item("codigo").Item("Value") Vemail = UploadRequest.Item("email").Item("Value") Vwin = UploadRequest.Item("win").Item("Value") Vproc = UploadRequest.Item("proc").Item("Value") VversaoAUTO = UploadRequest.Item("versao").Item("Value") VSoftware = UploadRequest.Item("Software").Item("Value") Vversao = UploadRequest.Item("versao").Item("Value") Vrelease = UploadRequest.Item("release").Item("Value") Vtipo = UploadRequest.Item("tipo").Item("Value") Vduvida = UploadRequest.Item("duvida").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "INSERT into OBRAS(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" ' Redireciona para enviar email URL = "envia.asp" response.redirect(URL) %> FUNÇÕES DE UPLOAD <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> ENVIA EMAIL <!-- #include file = "conecta.asp" --> <% 'recupera os valores Vcodigo = Request.Form("codigo") Vemail = Request.Form("email") Vwin = Request.Form("win") Vproc = Request.Form("proc") VversaoAUTO = Request.Form("versaoAUTO") Vsoftware = Request.Form("software") Vversao = Request.Form("versao") Vrelease = Request.Form("release") Vtipo = Request.Form("tipo") Vduvida = Request.Form("duvida") Varquivo = Request.Form("arquivo") 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & "<font size=""1"" face=""verdana"">" HTML = HTML & "<B>DÚVIDA DO SIM PELO SITE</B><BR><HR><BR>" HTML = HTML & "<B>CODIGO SIM : </B>" & Vcodigo & "<BR>" HTML = HTML & "<B>EMAIL : </B>" & Vemail & "<BR>" HTML = HTML & "<B>WINDOWS : </B>" & Vwin & "<BR>" HTML = HTML & "<B>PROCESSADOR : </B>" & Vproc & "<BR>" HTML = HTML & "<B>VERSÃO DO AUTO CAD: </B>" & VversaoAUTO & "<BR>" HTML = HTML & "<B>SOFTWARE : </B>" & Vsoftware & "<BR>" HTML = HTML & "<B>VERSÃO : </B>" & Vversao & "<BR>" HTML = HTML & "<B>RELEASE : </B>" & Vrelease & "<BR>" HTML = HTML & "<B>TIPO DA DUVIDA : </B>" & Vtipo & "<BR>" HTML = HTML & "<B>DUVIDA : </B>" & Vduvida & "<BR>" HTML = HTML & "<B>ANEXO : </B>" & Varquivo & "<BR>" HTML = HTML & "</body>" HTML = HTML & "</html>" 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing URL = "SIM/PRINCIPALXYZ000.htm" response.redirect(URL) %> CONECTA AO BANCO <% Set bco = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("banco.mdb") %> Bom, agora vou tentar explicar o que eu quero... Quero que o usuario anexe um arquivo no formulario...e após a confirmação do formulario esse arquivo e seus dados sejam enviados para um email especificos... Eu estou conseguindo até enviar pro banco de dados, mas na hora de enviar o email com os dados é que está dando pau...o que estou fazendo de errado.... Meu problema está sendo em enviar os dados do banco para um email mesmo, acabei de testar...meus códigos estão ai quem puder me ajudar...
-
Anexar Arquivos Em Um Formulario
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
ERRO... Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''?????? /ASP/envia_BD.asp, line 58 LINHA ' cadastra os dados no banco de dados sql = "INSERT into OBRAS(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&codigo&"', '"&email&"', '"&win&"', '"&proc&"', '"&versaoAUTO&"', '"&software&"', '"&versao&"', '"&release&"', '"&tipo&"', '"&duvida&"', '"&arquivo&"')" LINE 58 Conexao.Execute(sql) ME AJUDEM.... -
ERROOOOO..SOCORRO... Microsoft VBScript runtime error '800a01a8' Object required: 'UploadRequest.Item(...)' /ASP/envia_BD.asp, line 20 <!-- #include file = "funcoes_upload.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- codigo = UploadRequest.Item("codigo").Item("Value") email = UploadRequest.Item("email").Item("Value") win = UploadRequest.Item("win").Item("Value") proc = UploadRequest.Item("proc").Item("Value") versaoAUTO = UploadRequest.Item("versao").Item("Value") Software = UploadRequest.Item("Software").Item("Value") versao = UploadRequest.Item("versao").Item("Value") release = UploadRequest.Item("release").Item("Value") tipo = UploadRequest.Item("tipo").Item("Value") duvida = UploadRequest.Item("duvida").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Carquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if arquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "INSERT into obras_sim(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Carquivo&"')" Conexao.Execute(sql) ' Redireciona para enviar email URL = "envia.asp" response.redirect(URL) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %>
-
Anexar Arquivos Em Um Formulario
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
Página Upload_funcoes.asp Pagina Upload_form.asp Pagina upload_form2.asp Eu vou ter que criar um banco de nome banco.mdb, e uma pasta no servidor de nome lojas dentro de uma chamada imagens?????? -
sql = "INSERT into banco(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"')" Não entedi sua colocação????
-
<!--#include file="conecta.asp"--> <% Abreconn Vnomeempresa = Request.Form("usuario") Vcontato = Request.Form("contato") Vhardlock = Request.Form("hardlock") Vendereco = Request.Form("endereco") Vnum = Request.Form("num") Vcompl = Request.Form("compl") Vcep = Request.Form("cep") Vcidade = Request.Form("cidade") Vestado = Request.Form("estado") Vddd = Request.Form("ddd") Vtel = Request.Form("tel") Vfax = Request.Form("fax") Vcel = Request.Form("cel") Vemail = Request.Form("email") Vhomepage = Request.Form("homepage") Vcgccpf = Request.Form("cgccpf") Vierg = Request.Form("ierg") Vsoftware = Request.Form("software") Vversao = Request.Form("versao") Vrelease = Request.Form("release") sql = "INSERT into cadastro(usuario, contato, hardlock, endereco, num, compl, cep, cidade, estado, ddd, tel, fax, cel, email, homepage, cgccpf, ierg, software, versao, release) values ('"&Vusuario&"','"&Vcontato&"','"&Vhardlock&"', '"&Vendereco&"', '"&Vnum&"', '"&Vcompl&"', '"&Vcep&"', '"&Vcidade&"', '"&Vestado&"', '"&Vddd&"', '"&Vtel&"', '"&Vfax&"', '"&Vcel&"', '"&Vemail&"', '"&Vhomepage&"', '"&Vcgccpf&"', '"&Vierg&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"')" Set rs = bco.Execute(sql) Response.Write(sql) bco.Close Set bco = Nothing URL = "aguarde.asp" response.redirect(URL) Fechaconn %> Preciso colocar de alguma forma para o usuario que um certo valor já existe no BD. No BD ele está como chave primaria... me ajudem acredito que se colocar um if eu consigo...mas não sei como colocar....
-
está isso é o que está no meu codigo....eu só coloquei line 18 pra vocês saberem qual ela é!!