Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ola.....pra todos.
Tenho um ASP ja pronto de um formulario que tenho mas não sei como altero algumas coisas.
set Pasta = ObjPasta.getFolder
set arquivo = ObjArq.GetFile
objUpload.Save
Quem poder me ajudar a gradeço.
Valeu.
realmente qual a duvida??
Tenho que usar esse mesmo formulari mas não entendo d asp.............e as partes em vermelho não sei o q coloco.
<HTML>
<HEAD>
<TITLE>Grafiset - Solicitação de Serviços</TITLE>
</HEAD>
<BODY><%
set ObjPasta = server.CreateObject("scripting.filesystemobject")
set Pasta = ObjPasta.getFolder("C:\home\enterweb\grafiset.com.br\upload")
for each arq in Pasta.files
set ObjArq = server.CreateObject("scripting.filesystemobject")
set arquivo = ObjArq.GetFile("C:\home\enterweb\grafiset.com.br\upload\" & arq.name)
arquivo.delete
next
set ObjPasta = nothing
set Pasta = nothing
set ObjArq = nothing
set arquivo = nothing
%>
<%
Dim objUpload 'Instância de controle do upload
Set objUpload = Server.CreateObject("Persits.Upload") 'Objeto de Upload
objUpload.IgnoreNoPost = True
server.scripttimeout = 360000
objUpload.Save "C:\home\enterweb\grafiset.com.br\upload"
'objUpload.Save "C:\curso asp"
Dim objMail
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.AddAddress "enterweb@entertech.com.br"
dim cMensagem
cMensagem = "<font face=arial size=2><b>Formulario de Solicitação de Serviços</b><hr>"
cMensagem = cMensagem & "<b>Dados pessoais</b> " & " <br>"
cMensagem = cMensagem & "<b>Empresa:</b> " & objUpload.Form("Empresa") & " <br>"
cMensagem = cMensagem & "<b>Solicitado por:</b> " & objUpload.Form("Aos_cuidados") & " <br>"
cMensagem = cMensagem & "<b>IE/RG:</b> " & objUpload.Form("IE_RG") & " <br>"
cMensagem = cMensagem & "<b>CNPJ/CPF:</b> " & objUpload.Form("CNPJ_CPF") & " <br>"
cMensagem = cMensagem & "<b>E-mail:</b> " & objUpload.Form("Email") & " <br>"
cMensagem = cMensagem & "<b>Endereço(entrega):</b> " & objUpload.Form("Endereco_entrega") & " <br>"
cMensagem = cMensagem & "<b>Fone:</b> " & objUpload.Form("Fone") & " <br>"
cMensagem = cMensagem & "<b>Obra:</b> " & objUpload.Form("Obra") & " <hr>"
cMensagem = cMensagem & "<b>Xerox</b> " & " <br>"
cMensagem = cMensagem & "<b>Num.de Originais:</b> " & objUpload.Form("Xerox_Numero_originais") & " <br>"
cMensagem = cMensagem & "<b>Autenticada:</b> " & objUpload.Form("Xerox_autenticada") & " <br>"
cMensagem = cMensagem & "<b>Simples:</b> " & objUpload.Form("Xerox_qtde_simples") & " <br>"
cMensagem = cMensagem & "<b>Duplex:</b> " & objUpload.Form("Xerox_qtde_duplex") & " <br>"
cMensagem = cMensagem & "<b>Tam. A3:</b> " & objUpload.Form("Xerox_qtde_A3") & " <hr>"
cMensagem = cMensagem & "<b>Plastificação</b> " & " <br>"
cMensagem = cMensagem & "<b>Quantidade:</b> " & objUpload.Form("Plastificacao_qtde") & " <br>"
cMensagem = cMensagem & "<b>Normal:</b> " & objUpload.Form("Plastificacao_Normal") & " <br>"
cMensagem = cMensagem & "<b>Formato:</b> " & objUpload.Form("Plastificacao_Formato") & " <br>"
cMensagem = cMensagem & "<b>Polaseal:</b> " & objUpload.Form("Plastificacao_Polaseal") & " <hr>"
cMensagem = cMensagem & "<b>Cópias Coloridas</b> " & " <br>"
cMensagem = cMensagem & "<b>Num. de Originais:</b> " & objUpload.Form("Colorid_qtde_originais") & " <br>"
cMensagem = cMensagem & "<b>Formato A4:</b> " & objUpload.Form("Colorida_qtde_A4") & " <br>"
cMensagem = cMensagem & "<b>Formato A3:</b> " & objUpload.Form("Colorida_qtde_A3") & " <hr>"
cMensagem = cMensagem & "<b>Cópias P/ Metro</b> " & " <br>"
cMensagem = cMensagem & "<b>Num.de Originais:</b> " & objUpload.Form("Metro_qtde_originais") & " <br>"
cMensagem = cMensagem & "<b>Autenticada Qtde:</b> " & objUpload.Form("Metrro_qtde_autenticada") & " <br>"
cMensagem = cMensagem & "<b>Autenticada:</b> " & objUpload.Form("Metro_autenticada") & " <br>"
cMensagem = cMensagem & "<b>Natural:</b> " & objUpload.Form("Metro_qtde_natural") & " <br>"
cMensagem = cMensagem & "<b>Reduzida:</b> " & objUpload.Form("Metro_qtde_reduzida") & " <br>"
cMensagem = cMensagem & "<b>Quantidade de cada:</b> " & objUpload.Form("Metro_qtde_cada") & " <hr>"
cMensagem = cMensagem & "<b>Encadernações</b> " & " <br>"
cMensagem = cMensagem & "<b>Num.de Originais:</b> " & objUpload.Form("Encad_qtde_originais") & " <br>"
cMensagem = cMensagem & "<b>Espiral:</b> " & objUpload.Form("Encad_espiral") & " <br>"
cMensagem = cMensagem & "<b>Cópias de cada:</b> " & objUpload.Form("Encad_espiral_qtde") & " <br>"
cMensagem = cMensagem & "<b>Capa Cor:</b> " & objUpload.Form("Encad_capacor") & " <br>"
cMensagem = cMensagem & "<b>Canaleta:</b> " & objUpload.Form("Encad_canaleta") & " <br>"
cMensagem = cMensagem & "<b>Cópias de cada:</b> " & objUpload.Form("Encad_canaleta_qtde") & " <hr>"
cMensagem = cMensagem & "<b>Cópias Heliográficas</b> " & " <br>"
cMensagem = cMensagem & "<b>Num.de Originais:</b> " & objUpload.Form("Helio_qtde_originais") & " <br>"
cMensagem = cMensagem & "<b>Azul:</b> " & objUpload.Form("Helio_qtde_azul") & " <br>"
cMensagem = cMensagem & "<b>Vermelho:</b> " & objUpload.Form("Helio_qtde_vermelho") & " <hr>"
cMensagem = cMensagem & "<b>Plotagem</b> " & " <br>"
cMensagem = cMensagem & "<b>Especificação1:</b> " & objUpload.Form("Plotagem") & " <br>"
cMensagem = cMensagem & "<b>Especificação2:</b> " & objUpload.Form("Plotagem2") & " <br>"
cMensagem = cMensagem & "<b>Especificação3:</b> " & objUpload.Form("Plotagem3") & " <br>"
cMensagem = cMensagem & "<b>Especificação4:</b> " & objUpload.Form("Plotagem4") & " <br>"
cMensagem = cMensagem & "<b>Especificação5:</b> " & objUpload.Form("Plotagem5") & " <br>"
cMensagem = cMensagem & "<b>Especificação6:</b> " & objUpload.Form("Plotagem6") & " <br>"
cMensagem = cMensagem & "<b>Especificação7:</b> " & objUpload.Form("Plotagem7") & " <br>"
cMensagem = cMensagem & "<b>Especificação8:</b> " & objUpload.Form("Plotagem8") & " <br>"
cMensagem = cMensagem & "<b>Especificação9:</b> " & objUpload.Form("Plotagem9") & " <hr>"
cMensagem = cMensagem & "<b>Arquivos</b> " & " <br>"
cMensagem = cMensagem & "<b>Arquivo1:</b> " & objUpload.Form("Arquivo1") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho1") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_1") & " <br>"
cMensagem = cMensagem & "<b>Arquivo2:</b> " & objUpload.Form("Arquivo2") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho2") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_2") & " <br>"
cMensagem = cMensagem & "<b>Arquivo3:</b> " & objUpload.Form("Arquivo3") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho3") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_3") & " <br>"
cMensagem = cMensagem & "<b>Arquivo4:</b> " & objUpload.Form("Arquivo4") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho4") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_4") & " <br>"
cMensagem = cMensagem & "<b>Arquivo5:</b> " & objUpload.Form("Arquivo5") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho5") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_5") & " <br>"
cMensagem = cMensagem & "<b>Arquivo6:</b> " & objUpload.Form("Arquivo6") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho6") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_6") & " <br>"
cMensagem = cMensagem & "<b>Arquivo7:</b> " & objUpload.Form("Arquivo7") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho7") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_7") & " <br>"
cMensagem = cMensagem & "<b>Arquivo8:</b> " & objUpload.Form("Arquivo8") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho8") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_8") & " <br>"
cMensagem = cMensagem & "<b>Arquivo9:</b> " & objUpload.Form("Arquivo9") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho9") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_9") & " <br>"
cMensagem = cMensagem & "<b>Arquivo10:</b> " & objUpload.Form("Arquivo10") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho10") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_10") & " <br>"
cMensagem = cMensagem & "<b>Arquivo11:</b> " & objUpload.Form("Arquivo11") & " <br>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho11") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_11") & " <br>"
cMensagem = cMensagem & "<b>Arquivo12:</b> " & objUpload.Form("Arquivo12") & " <hr>"
cMensagem = cMensagem & "<b>Tamanho:</b> " & objUpload.Form("Tamanho12") & " <br>"
cMensagem = cMensagem & "<b>Qtde:</b> " & objUpload.Form("qtde_12") & " <hr>"
cMensagem = cMensagem & "<b>Penas</b> " & " <br>"
cMensagem = cMensagem & "<b>Arquivo1:</b> " & objUpload.Form("Penas_1") & " <br>"
cMensagem = cMensagem & "<b>Arquivo2:</b> " & objUpload.Form("Penas_2") & " <br>"
cMensagem = cMensagem & "<b>Arquivo3:</b> " & objUpload.Form("Penas_3") & " <br>"
cMensagem = cMensagem & "<b>Arquivo4:</b> " & objUpload.Form("Penas_4") & " <br>"
cMensagem = cMensagem & "<b>Arquivo5:</b> " & objUpload.Form("Penas_5") & " <br>"
cMensagem = cMensagem & "<b>Arquivo6:</b> " & objUpload.Form("Penas_6") & " <br>"
cMensagem = cMensagem & "<b>Arquivo7:</b> " & objUpload.Form("Penas_7") & " <hr>"
cMensagem = cMensagem & "<b>Observações:</b> " & objUpload.Form("Observacoes") & " <br>"'---------------------------------------------------------------------------------
objMail.From = objUpload.Form("Email")
objMail.FromName = objUpload.Form("Aos_cuidados") & " - " & objUpload.Form("Empresa")
objMail.Subject = objUpload.Form("TGsubject")
objMail.AddBcc "enterweb@entertech.com.br"
objMail.Host = "200.189.244.45"
'objMail.Host = "thor.acr.com.br"
objMail.isHTML = true
objMail.Body = cMensagem
if not objUpload.Files("Arquivo") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo").Path
end if
if not objUpload.Files("Arquivo2") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo2").Path
end if
if not objUpload.Files("Arquivo3") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo3").Path
end if
if not objUpload.Files("Arquivo4") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo4").Path
end if
if not objUpload.Files("Arquivo5") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo5").Path
end if
if not objUpload.Files("Arquivo6") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo6").Path
end if
if not objUpload.Files("Arquivo7") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo7").Path
end if
if not objUpload.Files("Arquivo8") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo8").Path
end if
if not objUpload.Files("Arquivo9") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo9").Path
end if
if not objUpload.Files("Arquivo10") Is Nothing then
objMail.AddAttachment objUpload.Files("Arquivo10").Path
end if
objMail.Send
Set objMail = Nothing
%>
<br>
<table width="592">
<tr>
<td width="584">
<div align="center">
<center><TABLE class=clsSideBar cellSpacing=0 cellPadding=0 width=181 bgColor=#ffffff
border=0 height="21">
<TR vAlign=top align=left>
<TD width=10 height=4><IMG src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_tl.jpg" width="10" height="10"></TD>
<TD align=right background=file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_tm.jpg colSpan=2 height="4"><IMG src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_tr.jpg" width="141" height="10"></TD></TR>
<TR vAlign=top align=left>
<TD background=file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_ml.jpg height="134"><IMG
src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_ml.jpg" width="10" height="1"></TD>
<TD vAlign=top align=left width="100%"
background=file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_bg.jpg height="134">
<p align="center"><font size="4" face="Arial Black">Envio de E-mail</font> </p>
<table>
<tr>
<td>
<div align="left" style="width: 374; height: 124">
<p align="center"><font color="#FF0000" size="4">Seu E-mail foi enviado
com Sucesso!!</font>
</div>
</td>
</tr>
</table>
</TD>
<TD background=file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_mr.jpg height=134><IMG
src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_mr.jpg" width="10" height="1"></TD></TR>
<TR vAlign=top align=left>
<TD width=10 height=1><IMG src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_bl.jpg" width="10" height="10"></TD>
<TD vAlign=bottom align=right background=file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_bm.jpg
colSpan=2 height="1"><IMG src="file://///net/c80gb%20©/web/sites/Grafiset%20copias/images/t_br.jpg" width="10" height="10"></TD></TR></TABLE>
</center>
</div>
</td>
</tr>
</table>
</body>
</html>
Nao entendi a sua vida... o que você quer alterar? posta ai o seu codigo, pra gente ver...