........................................
  <% f_flag = request("flag") f_flag = Replace(f_flag, "'", "") f_email = request("email") f_email = Replace(f_email, "'", "") i_error = false if f_flag <> "" then %> <% f_email = request("email") i_error = false if ((InStr(f_email, "@") > 0) and (InStr(f_email, ".") > 0)) then on error resume next HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Confirmação Ativa de Cadastro" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Confirme seu cadastro!

Você solicitou o cadastro para receber cupons, bônus, revistas e notícias do portal ClubApostar.com

Clique aqui para confirmar o seu cadastro ou copie e cole o endereço abaixo no seu browser:
http://www.clubapostar.com/in.asp?flag=1&email="&f_email&"
" HTML = HTML & "" HTML = HTML & "" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 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/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "ClubApostar" objCDOSYSMail.To = f_email objCDOSYSMail.Subject = "Confirme o cadastro no ClubApostar.com" objCDOSYSMail.HtmlBody = HTML objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing conexao.close set conexao = nothing on error goto 0 f_email = "" elseif f_email <> "" then i_error = true end if %> <% if i_error then %>

Email incorreto


<% else %>
">
Acesse seu e-mail para confirmar o cadastro

<% end if %> <% else %> Digite seu e-mail e receba
bônus todos os meses.
 
<% end if %>