<% if request.form("reload") = 1 then nome = request("nome") if len(nome) < 3 then adicionaerro("Informe o seu nome.") email = request("email") if valida_email(email) = "erro" then adicionaerro("Informe o seu e-mail.") dia_nasc = request("dia_nasc") if dia_nasc = "" then dia_nasc = 0 mes_nasc = request("mes_nasc") if mes_nasc = "" then mes_nasc = 0 ano_nasc = request("ano_nasc") if ano_nasc = "" then ano_nasc = 0 newsletter = request("newsletter") if newsletter = "" then newsletter = 0 verify_data = dia_nasc &"/"& mes_nasc &"/"& ano_nasc data_nasc = ano_nasc & mes_nasc & dia_nasc if len(data_nasc) < 8 then adicionaerro("Informe sua data de nascimento.") else if isdate(convertedata_br(verify_data)) = false then adicionaerro("informe corretamente a data de sua nascimento") end if sexo = request("sexo") if sexo = "" then adicionaerro("Informe o seu sexo.") cidade = request("cidade") if len(cidade) < 2 then adicionaerro("Informe sua cidade.") uf = request("UF") if len(uf) < 2 then adicionaerro("Informe o seu estado.") data_cadastro = convertedata_SQL(date()) if noErrors() then call CreateConnection() conn.execute("Insert_cadastro '"&nome&"', '"&email&"', '"&data_nasc&"', '"&sexo&"', '"&cidade&"', '"&uf&"', '"&newsletter&"', '"&convertedata_sql(date)&"'") call CloseConnection() texto = "Obrigado pelo seu cadastro!" end if end if %>

<% if not noerrors() then%> <% err=listaErros("") %> "," <% end if %> <% if len(trim(texto)) < 1 then %> Nome: E-mail: Data Nasc.: <% for a=1 to 31 if a<10 then a = "0" & a %> SELECTED<% end if %>><%= a %> <% next %> / <% session.LCID = 1046 for s=1 to 12 if s<10 then s = "0" & s %> SELECTED<% end if %>><%= monthname(s) %> <% next %> / <% for y=year(date)-1 to year(date)-100 step -1 %> SELECTED<% end if %>><%= y %> <% next %> Sexo: checked<% end if %>>Masculino checked<% end if %>>Feminino Cidade: Estado: Selected<% end if %>>Acre Selected<% end if %>>Alagoas Selected<% end if %>>Amapá Selected<% end if %>>Amazonas Selected<% end if %>>Bahia Selected<% end if %>>Ceará Selected<% end if %>>Distrito Federal Selected<% end if %>>Espírito Santo Selected<% end if %>>Goiás Selected<% end if %>>Maranhão Selected<% end if %>>Mato Grosso Selected<% end if %>>Mato Grosso do Sul Selected<% end if %>>Minas Gerais Selected<% end if %>>Pará Selected<% end if %>>Paraíba Selected<% end if %>>Paraná Selected<% end if %>>Pernambuco Selected<% end if %>>Piauí Selected<% end if %>>Rio de Janeiro Selected<% end if %>>Rio Grande do Norte Selected<% end if %>>Rio Grande do Sul Selected<% end if %>>Rondônia Selected<% end if %>>Roraima Selected<% end if %>>Santa Catarina Selected<% end if %>>São Paulo Selected<% end if %>>Sergipe Selected<% end if %>>Tocantins   Sim. Desejo receber notícias, novidades e promoções sobre automobilismo da Speedway e seus parceiros.     <% else %> <%= texto %> <% end if %>