<% f_flag = request("flag") f_email = request("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 db_dir = Server.MapPath("access_db") db_path = db_dir & "\clubapostar.mdb" ConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString f_flag = request("flag") f_email = request("email") f_email = Replace(f_email, "'", "") i_error = false f_email = request("email") f_email = Replace(f_email, "'", "") i_error = false f_status="1" qrymail = "INSERT INTO mailling (mai_nome) VALUES ('"& f_email &"')" set mail21 = Conexao.execute(qrymail) f_email = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Confirme seu cadastro!

Você solicitou o cadastro no diretório de viagens do ClubApostar.com para receber nossa newsletter. Enviamos destaques de luxo, destinos, ofertas de viagens. Também cupons, bônus, revistas e notícias de casinos do mundo todo.

Clique aqui para confirmar o seu cadastro " 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 seu cadastro no ClubApostar" 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. Corrija

<% else %>

">

Acesse seu e-mail para confirmar o cadastro

<% end if %> <% else %>

   

<% end if %>