<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% nome = request.Form("nome") apelido = request.Form("apelido") dia = request.Form("dia") mes = request.Form("mes") ano = request.Form("ano") endereco = request.Form("endereco") cep = request.Form("cep") cidade = request.Form("cidade") estado = request.Form("estado") ddd = request.Form("ddd") telefone = request.Form("telefone") email = request.Form("email") %> <% strSQL = "SELECT * FROM player WHERE email = '" & email & "' OR apelido = '" & apelido & "'" Set strData = Server.CreateObject("ADODB.RecordSet") strData.Open strSQL,adoCon,3,3 %> Dinolândia - JOGOS

Para participar do campeonato de jogos on-line da Dinolândia, você precisa ter até 12 anos de idade, morar em território brasileiro, e preencher e enviar o cadastro abaixo. O campeonato será mensal e cada jogo terá o seu vencedor: aquele que alcançar o maior número de pontos. Os vencedores do mês serão divulgados neste site e informados por e-mail do cadastro; ganharão troféu e terão sua foto publicada neste site, durante 01 mês. Boa sorte e divirta-se!

<% IF NOT isEmpty(request.Form("cadastrar")) THEN IF NOT strData.EOF THEN IF strData("email") = request.Form("email") THEN %>

E-mail já cadastrado!

<% END IF IF strData("apelido") = request.Form("apelido") THEN %>

Apelido já cadastrado!

<% END IF ELSE strSQL = "INSERT INTO player (nome, apelido, dia, mes, ano, endereco, cep, cidade, estado, ddd, telefone, email)" strSQL = strSQL & "VALUES" strSQL = strSQL & "('" & nome & "'" strSQL = strSQL & ",'" & apelido & "'" strSQL = strSQL & ",'" & dia & "'" strSQL = strSQL & ",'" & mes & "'" strSQL = strSQL & ",'" & ano & "'" strSQL = strSQL & ",'" & endereco & "'" strSQL = strSQL & ",'" & cep & "'" strSQL = strSQL & ",'" & cidade & "'" strSQL = strSQL & ",'" & estado & "'" strSQL = strSQL & ",'" & ddd & "'" strSQL = strSQL & ",'" & telefone & "'" strSQL = strSQL & ",'" & email & "');" adoCon.Execute(strSQL) response.Redirect("cadastrado.asp") END IF END IF %>
  Todos os campos são obrigatórios!
Nome:
Apelido:
Guarde bem seu apelido, pois será exigido no final do jogo para marcar sua pontuação!
Nascimento:
Endereço:
CEP: BUSCAR CEP
Cidade:
Estado:
Telefone: ( )
E-mail: