Cadastrado

[tsarri]

gente o seguinte eu fiz um formulario para cadastrar login e senha, mais como eu faço para não deixar dois login igual eu vou ter que usar um select ne, mais aonde eu vou colocar isto no meu codigo alguém pode me ajudar??

[cyberalexxx]

tenta assim:

<%
      Dim SqlInsere
      Dim RsIns

      nome   = TRIM ( Request.Form( "nome" ) )
      senha    = TRIM ( Request.Form( "senha" ) )
   
      Dim Conn
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb")

      Set RsIns = Server.CreateObject("ADODB.RecordSet")
      Set RsCons = Server.CreateObject("ADODB.RecordSet")
      Sqlconsulta = "Select count(nome) as total from Teste Where nome='" & nome & "'"
      set RsCons = Conn.execute(Sqlconsulta)
      if RsCons("total") > 0 then
         SqlInsere = "Insert Into Teste(nome, senha)Values('" & nome &  "','" & senha &  "') "      
         set RsIns = Conn.execute(SqlInsere)
      else
         Response.write "Nome de usuário já existe"
      end if

%>

[DELPHI-Man32]

amigo, sempre vejo nos fontes do pessoal o TRIM antes do request.form, porque?

nome   = TRIM ( Request.Form( "nome" ) )
senha    = TRIM ( Request.Form( "senha" ) )

alguém poderia me explicar?

[cyberalexxx]

amigo, sempre vejo nos fontes do pessoal o TRIM antes do request.form, porque?

nome   = TRIM ( Request.Form( "nome" ) )
senha    = TRIM ( Request.Form( "senha" ) )

alguém poderia me explicar?

Para retirar possiveis espaços em branco.

Para mais duvidas sobre funções vbscript de uma olhada em:

http://msdn.microsoft.com/library/default....riFunctions.asp

[]'s

[tsarri]

deu erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

     set RsCons = Conn.execute(Sqlconsulta)

o q pode ser pessoal??

[armagedon]

faz assim

<%
     Dim SqlInsere
     Dim RsIns

     nome   = TRIM ( Request.Form( "nome" ) )
     senha    = TRIM ( Request.Form( "senha" ) )

     Dim Conn
     Set Conn = Server.CreateObject("ADODB.Connection")
     Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb")

     Set RsIns = Server.CreateObject("ADODB.RecordSet")
     Set RsCons = Server.CreateObject("ADODB.RecordSet")
     Sqlconsulta = "Select * from Teste Where nome='" & nome & "'"
     set RsCons = Conn.execute(Sqlconsulta)
     if RsCons.eof then
        SqlInsere = "Insert Into Teste(nome, senha)Values('" & nome &  "','" & senha &  "') "      
        set RsIns = Conn.execute(SqlInsere)
     else
        Response.write "Nome de usuário já existe"
     end if

%>