Postagens
Não informado
fabinhohkr@hotmail.com
<%
wNome= request("wNome")
wEmail= request("wEmail")
wddd= request("wddd")
wtelefone= request("wtelefone")
wItem= request("numitem")
wNome = replace(wNome,"'","")
wNome = replace(wNome,chr(34),"")
wEmail = replace(wEmail,"'","")
wEmail = replace(wEmail,chr(34),"")
wddd = replace(wddd,"'","")
wddd = replace(wddd,chr(34),"")
wtelefone = replace(wtelefone,"'","")
wtelefone = replace(wtelefone,chr(34),"")
for x = 1 to request("numitem")
if not isEmpty( request("item" & x) ) then
item = "d"
items = items &"&item" & x &"="& request("item" & x)
end if
next
if wNome = "" or wEmail = "" or wddd = "" or wtelefone = "" or wItem = "" or item = "" then
if not item = "" then
erro = "s"
else
erro = "as"
end if
response.redirect "downloads.asp?wNome="&wNome&"&wEmail="&wEmail&"&wddd="&wddd&"&wtelefone="&wtelefone&"&erro="&erro&items
end if
'response.write wNome
Set conexao = Server.CreateObject("ADODB.Connection")
Conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("ISCLIFOR.MDB")
inserir="INSERT "
inserir= inserir& "into DOWNLOADUSUARIO "
inserir= inserir& "(nome_downloadusuario"
inserir= inserir& ",email_downloadusuario"
inserir= inserir& ",ddd_downloadusuario"
inserir= inserir& ",telefone_downloadusuario"
inserir= inserir& ")"
inserir= inserir& "values "
inserir= inserir& "("
inserir= inserir& "'"&wNome&""
inserir= inserir& "','"&wEmail&""
inserir= inserir& "','"&wddd&""
inserir= inserir& "','"&wtelefone&""
inserir= inserir& "')"
'response.write inserir
Conexao.execute(inserir)
query = "SELECT "
query = query& "DOWNLOADUSUARIO.id_downloadusuario "
query = query& "from "
query = query& "DOWNLOADUSUARIO "
query = query& "order by "
query = query& "DOWNLOADUSUARIO.id_downloadusuario desc"
set rs=server.createobject("ADODB.RECORDSET")
rs.open query,conexao,3,3
coduser = rs("id_downloadusuario")
rs.close
set rs = nothing
x=1
for x = 1 to witem
if not isEmpty( request("item" & x) ) then
inserir="INSERT "
inserir= inserir& "into DOWNLOADSOFT "
inserir= inserir& "(idcliente_downloadsoft"
inserir= inserir& ",idsoft_downloadsoft)"
inserir= inserir& "values "
inserir= inserir& "("
inserir= inserir& ""&coduser&""
inserir= inserir& ","&request("item" & x)&""
inserir= inserir& ")"
'response.write inserir &""& chr(13) &""& chr(13) &""& chr(13)
conexao.execute(inserir)
end if
next
query = "SELECT "
query = query &"PRODUTOS.id_produtos, "
query = query &"PRODUTOS.nome_produtos, "
query = query &"DOWNLOADSOFT.id_downloadsoft, "
query = query &"DOWNLOADSOFT.idsoft_downloadsoft, "
query = query &"DOWNLOADSOFT.idcliente_downloadsoft "
query = query &"FROM "
query = query &"PRODUTOS INNER JOIN DOWNLOADSOFT ON PRODUTOS.id_produtos = DOWNLOADSOFT.idsoft_downloadsoft "
query = query &"WHERE "
query = query &"DOWNLOADSOFT.idcliente_downloadsoft=0"&coduser
'response.write query &"<br>"&chr(13)&"<br>"&chr(13)&"<br>"&chr(13)&"<br>"&chr(13)&"<br>"&chr(13)
set rs=server.createobject("ADODB.RECORDSET")
rs.open query,conexao,3,3
lista = ""
while not rs.eof
lista = lista &""& rs("nome_produtos") &"<br>"
rs.movenext()
wend
'response.write lista
rs.close
set rs = nothing
conexao.close
set conexao = nothing
texto = "Solicitação de download de "& wNome &", "& wEmail &", ("& wddd &")"& wtelefone &" para os softwares <br>"& lista
if(isEmpty(wEmail)) then
wEmail = "undefined"
end if
Set myMail=CreateObject("CDO.Message")
myMail.Subject= "Solicitação de Download"
myMail.From=wEmail
myMail.To="contato@dm3software.com"
' myMail.TextBody=texto
myMail.HTMLBody = texto
myMail.Configuration.Fields.Item ("http://schemas.micro...tion/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.micro...ion/smtpserver") ="smtp.dm3software.com"
myMail.Configuration.Fields.Item ("http://schemas.micro...tpauthenticate") =0
myMail.Configuration.Fields.Item ("http://schemas.micro...n/sendusername") = ""
myMail.Configuration.Fields.Item ("http://schemas.micro...n/sendpassword") = ""
myMail.Configuration.Fields.Item ("http://schemas.micro...smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
texto = ""
texto = texto & "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR...itional.dtd"">"
texto = texto & "<html xmlns=""http://www.w3.org/19.../1999/xhtml"">"
texto = texto & "<head>"
texto = texto & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />"
texto = texto & "<title>Suporte DM3</title>"
texto = texto & "<style type=""text/css"">"
texto = texto & "<!--"
texto = texto & "body {"
texto = texto & " margin-left: 0px;"
texto = texto & " margin-top: 0px;"
texto = texto & " margin-right: 0px;"
texto = texto & " margin-bottom: 0px;"
texto = texto & "}"
texto = texto & "#logo {"
texto = texto & " position:relative;"
texto = texto & " left:0px;"
texto = texto & " top:0px;"
texto = texto & " width:180px;"
texto = texto & " height:93px;"
texto = texto & " background-image:url(""../imagens/logotipo.jpg"");"
texto = texto & " float:left;"
texto = texto & "}"
texto = texto & "#titulo {"
texto = texto & " position:relative;"
texto = texto & " left:0px;"
texto = texto & " top:0px;"
texto = texto & " width:580px;"
texto = texto & " height:88px;"
texto = texto & " background-image:url(""images/mail_soft_01.jpg""); "
texto = texto & " background-position:top left;"
texto = texto & " background-repeat:no-repeat;"
texto = texto & "}"
texto = texto & "#textos {"
texto = texto & " position:relative;"
texto = texto & " left:0px;"
texto = texto & " top:0px;"
texto = texto & " width:570px;"
texto = texto & " height:530px;"
texto = texto & " font-family:Verdana, Arial, Helvetica, sans-serif;"
texto = texto & " font-size:11px;"
texto = texto & " color:#000000;"
texto = texto & " padding:10px 5px 10px 5px"
texto = texto & "}"
texto = texto & "#textos p{"
texto = texto & " margin-left:2px;"
texto = texto & "}"
texto = texto & "#textos a{"
texto = texto & " font-family:Verdana, Arial, Helvetica, sans-serif;"
texto = texto & " font-size:10px;"
texto = texto & " font-weight:bold;"
texto = texto & " color:#FF6600;"
texto = texto & " text-decoration:none;"
texto = texto & "}"
texto = texto & "#textos h1{"
texto = texto & " font-family:Verdana, Arial, Helvetica, sans-serif;"
texto = texto & " font-size:14px;"
texto = texto & " text-align:center;"
texto = texto & " padding:5px 0px 5px 0px;"
texto = texto & " background-color:#FF6600;"
texto = texto & "}"
texto = texto & "#rodape {"
texto = texto & " position:relative;"
texto = texto & " left:0px;"
texto = texto & " top:3px;"
texto = texto & " width:580px;"
texto = texto & " height:30px;"
texto = texto & " background-color:#E8E8E8;"
texto = texto & "}"
texto = texto & "-->"
texto = texto & "</style>"
texto = texto & "</head>"
texto = texto & "<body>"
texto = texto & "<div id=""titulo""></div>"
texto = texto & "<div id=""textos"">"
texto = texto & " <p>Olá <strong>"& wNome &" - </strong>("& wEmail &") </p>"
texto = texto & " <p>A DM3 Software disponibiliza a melhor forma de aquisição de software."
texto = texto & "Sempre que necessitar de fazer download de nossos sistemas <a href=""http://www.dm3softwa...com/downloads"" target=""_blank"">clique aqui!</a></p>"
texto = texto & "<p>Após o download poderá solicitar suporte(gratuito) mesmo no período de avaliação, através do e-mail:suporte@dm3software.com ou telefone. <br />"
texto = texto & " <br />"
texto = texto & " Através da <strong>CENTRAL DE RELACIONAMENTO</strong>, poderá sanar todas as suas dúvidas.<p>Contamos com orientadores altamente qualificados, onde através do atendimento, receberá informações sobre os nossos sistemas:"
texto = texto & " <br />"
texto = texto & " <p><strong>Confira as vantagens de ser um Cliente DM3 Software!</strong>."
texto = texto & " <br /><p>"
texto = texto & " <li> Atendimento Telefônico (Regionalizado).</li>"
texto = texto & " <li> Update Automático - Atualizações dos Sistemas por 12 meses(gratuito).</li>"
texto = texto & " <li> Suporte Técnico por 30 dias (gratuito).</li>"
texto = texto & " <li> Tutoriais no nosso site:www.dm3software.com</li>"
texto = texto & " <li> Workshops - Treinamento</li>"
texto = texto & " <li> Atendimento Corporativo - oferecemos uma personalização dos nossos sistemas, conforme as suas necessidades. Consulte nosso Departamento Comercial.</li>"
texto = texto & " <br />"
texto = texto & " <p><strong>QUER MAIS MOTIVOS PARA SER NOSSO CLIENTE?</strong><P><strong>Então ligue e confira o nosso diferencial: <b>QUALIDADE NO ATENDIMENTO.</b></strong><br />"
texto = texto & " <br />"
texto = texto & " <u><b>CENTRAL DE RELACIONAMENTO</b></u>"
texto = texto & " <br />"
texto = texto & " contato@dm3software.com"
texto = texto & " <br />"
texto = texto & " (11) 6858-4808 (41)3073-0022<br/> "
texto = texto & " (51) 3376-0022 (61)2017-0342<br/> "
texto = texto & " (48) 3036-0342 (31)3058-0722<br/> "
texto = texto & " (21) 4063-9951 (65)4052-9231<br/> "
texto = texto & " (67) 4063-9677 (68)3025-0077<br/> "
texto = texto & " <br />"
texto = texto & " <p><strong>ATENÇÃO:</strong> <br />"
texto = texto & " Para visualizar as instruções, configure seu programa de e-mail para visualização das <em><strong>mensagens em formato HTML </strong></em>. Se for o Outlook, clique em "Ferramentas", "Opções", "Formato de mensagem", em "Enviar com este formato de mensagem" clique na seta para baixo e escolha "HTML" e clique no "OK".</p>"
texto = texto & "</div>"
texto = texto & "<div id=""rodape""></div>"
texto = texto & "</body>"
texto = texto & "</html>"
Set myMail=CreateObject("CDO.Message")
myMail.Subject= "Solicitação de Download"
myMail.From="contato@dm3software.com"
myMail.To=wEmail
'myMail.TextBody=texto
myMail.HTMLBody = texto
myMail.Configuration.Fields.Item ("http://schemas.micro...tion/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.micro...ion/smtpserver") ="smtp.dm3software.com"
myMail.Configuration.Fields.Item ("http://schemas.micro...tpauthenticate") =0
myMail.Configuration.Fields.Item ("http://schemas.micro...n/sendusername") = ""
myMail.Configuration.Fields.Item ("http://schemas.micro...n/sendpassword") = ""
myMail.Configuration.Fields.Item ("http://schemas.micro...smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>DM3 - Software</title>
<link href="dm3_style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
-->
</style>
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function Voltar(){
$('registro').action = "registro.asp?act=r";
$('registro').submit();
}
function $() {
var elements = new Array();
for (var i = 0; i < arguments.length; i++) {
var element = arguments[i];
if (typeof element == 'string') {
if (document.getElementById) {
element = document.getElementById(element);
} else if (document.all) {
element = document.all[element];
}
}
elements.push(element);
}
if (arguments.length == 1 && elements.length > 0) {
return elements[0];
} else {
return elements;
}
}
//-->
</script>
</head>
<body>
<div id="contents">
<!-- INICIO DO DIV PRINCIPAL -->
<div id="topo">
<div id="submenu_topo">
<div> <a href="home.html"><span> Home </span> </a> </div>
<div> <a href="mapasite.html"><span> Mapa do Site </span> </a> </div>
<div> <a href="contato.asp"><span> Fale Conosco </span> </a> </div>
</div>
<div id="menu_principal">
<div class="empresa"><a href="empresa.html"><span> EMPRESA-DM3 Network </span></a></div>
<div class="produtos"><a href="produtos.html"><span> PRODUTOSDM3 Network </span></a></div> <div class="revendas"><a href="revendas.asp"><span> REVENDAS DM3Network </span></a></div>
<div class="downloads"><a href="downloads.asp" target="_blank"><span>DOWNLOADS DM3Network</span></a></div>
<div class="suporte"><a href="suporte.html"><span> SUPORTE DM3Network </span></a></div>
<div class="imprensa"><a href="registro.asp" target="_blank"><span> SALADEIMPRENSA </span></a></div>
</div>
<div class="class_img_titulo_registro" id="troca_imagem">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macr...rsion=7,0,19,0" width="479" height="175" class="class_img_titulo_downloads">
<param name="movie" value="imagens/flash/tituloregistro.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="imagens/flash/tituloregistro.swf" wmode="transparent" quality="high" pluginspage="http://www.macromedi...getflashplayer" type="application/x-shockwave-flash" width="479" height="175"></embed>
</object>
</div>
</div>
<div id="tit_pagina"> </div>
<div id="textos">
<STRONG><font color="#FF9900">Obrigado por escolher os produtos DM3 Software. <BR> Você receberá um e-mail com as instruções para download em alguns instantes.</font></STRONG>
</div>
</div>
<!-- FIM DO DIV PRINCIPAL -->
</body>
</html>
