Jump to content


Photo

Sistema De Sorteio


  • Faça o login para participar
11 replies to this topic

#1 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 22/11/2005, 10:21

Inhaew galera, blz?

olhém só.. to fazendo um sisteminha onde o usuário se inscreve na promoção e seus dados vão para uma tabela de um banco de dados..

aí o administrados poderá ver a lista de inscritos e clicar em um botão "sortear". O script Asp escolherá aleatoreamente uma id na lista de inscritos e exibirá os dados na tela.. o Admin ainda tem a opção de adicionar o usuário como vencedor q vai para uma outra tabela..

Nas tabelas, haverá uma coluna chamada "data", onde, na hora da adição, será colocada a data do dia da inscrição.

pois bem.. o lance todo eu sei fazer.. o q não sei é:

- sortear uma id e inserir automaticamente a data da inserção.

Alguém pode me dar um help?

Edição feita por: ziriguidum, 23/11/2005, 09:53.

3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#2 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 22/11/2005, 11:13

basicamente vc deve fazer um randomize entre todos os dados da tabela apos apertar o botao.

dá uma buscada no forum q tem varios exemplos do ramdomize

- a data de inserção, ao selecionar o dado do bd ( o q foi sorteado) so vc colocar numa varivel o valor do campo 'data' e inseri-lo no banco (no caso uma nova tabela de vencedores) se for o caso
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#3 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 22/11/2005, 14:20

mmm..vlw.. vou fazer uma busca por randomize.. eu procurei só por soteio e sortear e não achei nada. obrigado.

sobre a data... não tem q por algo como GetDate pra capturar a data e por num campo invisível do formulário para inserir? e tipo.. sem script.. não tem como o Banco de dados "Access", ao inserir uma linha nova colocar a data automaticamente?
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#4 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 22/11/2005, 15:57

mmm..vlw.. vou fazer uma busca por randomize.. eu procurei só por soteio e sortear e não achei nada. obrigado.

sobre a data... não tem q por algo como GetDate pra capturar a data e por num campo invisível do formulário para inserir? e tipo.. sem script.. não tem como o Banco de dados "Access", ao inserir uma linha nova colocar a data automaticamente?

claro q tem.

se fordireto no access, so colocar assim no valor padrao do acess:
data() ou Hora()

ou pelo proprio asp msmo:

Date() ou Time()
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#5 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 22/11/2005, 19:29

mmm..massa.. vlw Agente.. qlqr coisa, postarei aqui de novo.

obrigado.
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#6 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 23/11/2005, 08:45

ahh..me surgiu outra dúvida.. eu não quero q a mesma pessoa possa se registrar mais de uma vez.. então como bloqueio o acesso dela depois que o cadastro for confirmado??

deve ser algo em relaçaõ com o IP, né? não sei.
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#7 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 23/11/2005, 08:54

use a opção editar nestes casos...


- sobre sua duvida, tem várias alternativas.

a + pratica é vc nao deixar q se repita o mesm e-mail. (ou outro campo)

aí toda vez q o cara for se cadastrar, antes vc faz um select pra ver se ja existe um user com o mesmo e-mail..


ja se vc ta pensando em bloquear uma pessoal de fazer um cadastrto varias vezes com dados diferentes, esquece. so por IP nao revolve isso.
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#8 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 23/11/2005, 09:29

pois é.. e o q impede de o cara se registrar com e-mails diferentes?? bom.. o q poderia se fazer é uma verificação de CPF qdo ele cadastrar e antes do formulário por um select.. será q daria??
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#9 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 23/11/2005, 09:36

pois é.. e o q impede de o cara se registrar com e-mails diferentes?? bom.. o q poderia se fazer é uma verificação de CPF qdo ele cadastrar e antes do formulário por um select.. será q daria??

sim...mas é isso q te disse.

dá na mesma. com cpf ou rg ou ate e-mail..

é assim que fazem em lojas pro ex.

barram o e-mail, rg e cpf. (se um destes ja existir no banco, nao deixa cadastrar)

mas empedir de registrar outras contas com e-mails, cpf ou rgs diferentes, sem chance. pq por IP, ficam muitas falhas e nem funciona.

- faz assim msmo:
- ao cadastrar (antes) vc faz um select :
SELECT * FROM tabela WHERE campoCPF="&request("CPF")&"
aí, se retornar valor, é pq ja existe, se nao é pq pode cadastrar de boa.. (y)
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#10 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 23/11/2005, 09:51

mmmm.. entendi... vlw irmão.. então eu vou fazer um select de e-mail

SELECT * FROM participantes WHERE email="&request("email1")&"

if ???
else
Set RS = conn.execute(SQLstmt)

o q eu ponho no if.. sou mto burro. hehe
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#11 ziriguidum

ziriguidum

    CG Master

  • Usuários
  • 192 posts
  • Sexo:Não informado
  • Localidade:São Leopoldo/RS
  • Interesses:Computação Gráfica

Posted 23/11/2005, 09:58

dae.. blz?? como se não bastasse todas as dúvidas, o meu script de inserção não está funcionando.. hehhee

coloquei o Date() no banco de dados como vc falou... mas não cheguei a mensionar no ASP.. fiz cagada??

o erro q está dando qdo clico em "enviar" é o seguinte:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. 

/asp_service/village/promocao.asp, line 139

aí vai meu script

ASP
<%
Dim nome1
dim endereco1
dim bairro1
dim complemento1
dim cidade1
dim uf1
dim email1

inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then


%>

Html
<form action="promocao.asp?inputnum=1" method="POST" name="promocao" id=form>
   <table width="500" border="0" align="center" cellpadding="1" cellspacing="0">
     <tr>
       <td height="25" align="center" class="texto">Os &iacute;tens marcados com <span class="style1">*</span> &eacute; obrigat&oacute;rio o preenchimento</td>
     </tr>
   </table>
   <table width="405" border="0" align="center" cellpadding="1" cellspacing="0">
     <tr>
       <td width="197" class="texto"><div align="right">Nome:</div></td>
       <td width="19">&nbsp;</td>
       <td width="284"><label>
         <input name="nome1" type="text" class="form" id="nome1" size="35" />
       <span class="texto style1">*         </span></label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">Endere&ccedil;o (Rua e n&ordm;): </div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="endereco1" type="text" class="form" id="endereco1" size="35" />
       <span class="texto style1">       *</span></label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">Bairro:</div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="bairro1" type="text" class="form" id="bairro1" size="35" />
         <span class="texto style1">*</span></label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">Complemento:</div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="complemento1" type="text" class="form" id="complemento1" size="15" />
       </label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">Cidade:</div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="cidade1" type="text" class="form" id="cidade1" size="25" />
         <span class="texto style1">*</span></label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">UF:</div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="uf1" type="text" class="form" id="uf1" size="5" maxlength="2" />
         <span class="texto style1">*</span></label></td>
     </tr>
     <tr>
       <td class="texto"><div align="right">E-mail:</div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="email1" type="text" class="form" id="email1" size="35" />
         <span class="texto style1">*</span></label></td>
     </tr>
     <tr>
       <td><div align="right"></div></td>
       <td>&nbsp;</td>
       <td>&nbsp;</td>
     </tr>
     <tr>
       <td><div align="right">
         <label>
         <input name="limpar1" type="submit" class="texto" id="limpar1" value="Limpar" />
         </label>
       </div></td>
       <td>&nbsp;</td>
       <td><label>
         <input name="enviar1" type="submit" class="texto" id="enviar1" value="Enviar" />
       </label></td>
     </tr>
   </table>
 </form>

ASP
<% else
nome = request.form("nome1")
endereco = request.form("endereco1")
bairro = request.form("bairro1")
complemento = request.form("complemento1")
cidade = request.form("cidade1")
uf = request.form("uf1")
email = request.form("email1")

nome = Replace(request.form("nome1"), "'", "''")
endereco = Replace(Request.Form("endereco1"), "'", "''")
bairro = Replace(Request.Form("bairro1"), "'", "''")
complemento = Replace(Request.Form("complemento1"), "'", "''")
cidade = Replace(Request.Form("cidade1"), "'", "''")
uf = Replace(Request.Form("uf1"), "'", "''")
email = Replace(Request.Form("email1"), "'", "''")

set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/village.mdb")

conn.Open DSNtemp

SQLstmt = "INSERT INTO participantes (nome,endereco,bairro,cidade,complemento,uf,email) VALUES ('" 
SQLstmt = SQLstmt & nome & "','"
SQLstmt = SQLstmt & endereco & "','"
SQLstmt = SQLstmt & bairro & "','"
SQLstmt = SQLstmt & cidade & "','"
SQLstmt = SQLstmt & complemento & "','"
SQLstmt = SQLstmt & uf & "','"
SQLstmt = SQLstmt & email & "')"

Linhas 139
Set RS = conn.execute(SQLstmt)
%>
 
<p align="center" class="texto style2"><font face="Verdana">Obrigado pela participa&ccedil;&atilde;o!!!</font></p>
<p align="center" class="texto style2">O sorteio ser&aacute; realizado com dezenas da sena.</p>
<%end if%>

No meu banco de dados eu tenho todos os campos certinhos.. os endereços estão certos e as colunas tb estão certas...eu uso este script faz mó tempão.. não sei se por causa da coluna "data" pode estar dando algum problema.
3DSmax | Combustion | Real Flow | Photoshop | Premiere | Flash | Director | Corel |

Rodolfo Roth
Character Designer

CG.art - A Arte da Computação Gráfica

#12 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 14/09/2017, 01:24

Low Cost Cialis 2.5mg Daily online pharmacy Tamoxifen Buy Online
Omnicef Effets Cialis Generic Discount cheapeast isotretinoin purchase in internet overseas pharmacy
Buy Tamoxifen Citrate Australia <a href=http://cialtobuy.com>cialis</a> Componentes De La Viagra
Softtab Viagra cheap cialis Cialis Hermosillo
Cialis Et Fertilite
Preis Viagra Online <a href=http://cialtobuy.com>cheap cialis</a> Propecia 0.5 Mg Online
Cialis Da 10 O Da 20 cialis Buy Citalaprom Online No Prescription
Vente Lioresal En Canada
E.D Pills Online <a href=http://cialtobuy.com>cialis</a> Propecia Caduta Indotta




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq