1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Java Script error :S

Discussão em 'Web Development' iniciada por luistojo, 27 de Abril de 2009. (Respostas: 28; Visualizações: 1590)

  1. luistojo

    luistojo Suspenso

    Boas pessoal, tenho um problema no site que estou a fazer.
    E o seguinte este form serve para criar a conta que permita fazer o login no site, e tenho ai o codigo:
    Código:
    <[EMAIL="[email protected]="VBScript"%"][email protected]="VBScript"%[/EMAIL]>
    <%
    Option Explicit
    %>
    <!--#Include file="Conexao.inc"-->
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    strIns = "INSERT INTO Login " 
    strIns = strIns & "(Username, Password)"
    strIns = strIns + "VALUES ('" + varUsername + "',"
    strIns = strIns + "'" + varPassword +"')"
    strIns = "INSERT INTO Cliente " 
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade)"
    strIns = strIns + "'" + varNome + "',"
    strIns = strIns + "'" + varSexo + "',"
    strIns = strIns + varDataNascimento + ","
    strIns = strIns + "'" + varMorada + "',"
    strIns = strIns + "'" + varBI + "',"
    strIns = strIns + "'" + varCP + "',"
    strIns = strIns + "'" + varTelefone + "',"
    strIns = strIns + "'" + varLocalidade +"')"
    Call AbreConexao
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
          <script type="text/javascript">
          alert ("username em questao ja esta a ser utlizado");
          window.history.go(-1);
       </script>
    Set rsLivros = conexaoDataBase.Execute(strIns)
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
     "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[/URL]">
    <html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]" xml:lang="en" lang="en">
    <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
     <title>BlockBuster Lacueva &amp; Ramgi</title>
     <link rel="stylesheet" href="site/musicstore/style.css" type="text/css" charset="utf-8" />
     
    </head>
    <body>
    <div id="outer">
     <div id="wrapper">
      <div id="header">
       <h1>BlockBuster Lacueva &amp; Ramgi </h1>
       <p>Online Video Store </p>
      </div>
      <div id="nav">
       <div id="head" align = "center"></div>
       
       <div id="head-pip"></div>
       <ul>
        <li id="m1"><a href="index.html">Home</a></li>
        <li id="m2"><a href="[URL]http://localhost/Myweb/clientes.asp">Clientes</a></li[/URL]>
        <li id="m3"><a href="filmes.html">Filmes</a></li>
        <li id="m4"><a href="estreias.html">Estreias</a></li>
        <li id="m5"><a href="top10.html">Top 10</a></li>
        <li id="m6"><a href="contactos.html">Contactos</a></li>
       </ul>>
        <div id="search">
        <h2>Procurar Filme </h2>
        <Form method="Post" ACTION="pesquisa.asp">
        <input type="text" name="txtTitulo">
                    <input type="submit" value="Pesquisar" name="pesq" />
                    </form> 
        </div>
      </div>
      <div id="body">
       <div id="body-inner">
         <div id="body-left">
         <div id="topic-pic">
          <img src="site/musicstore/images/blockbuster.jpg" width="259" height="199" alt="Logo Blockbuster Lacueva &amp; Ramgi" />
         </div>
          <h2 align="center">Blockbuster Lacueva &amp; Ramgi</h2>
          <div align="justify">
            <p class="style10">A nossa empresa, BlockBuster Lacueva &amp; Ramgi, surgiu através de um projecto do âmbito escolar, que tem como objectivo a comercialização de material cinematogr&aacute;fico. A BlockBuster Lacueva &amp; Ramgi pretende fornecer as melhores soluções com a melhor equipa do mercado no ramo cinematogr&aacute;fico; satisfazer os clientes e liderar, com comprometimento à excelência; crescer continuamente na quota de mercado e rentabilidade, pela melhoria contínua do nosso conhecimento e pela eficiência dos nossos processos de negócio e conduzir o nosso negócio com integridade, respeito pela lei e pelo ambiente. A empresa BlockBuster Lacueva &amp; Ramgi pretende reforçar o seu posicionamento no mercado do Cinema, intervindo de forma decisiva no processo de consolidação em curso. Intervirá em mercados onde, suportada pelas suas competências básicas, seja capaz de atingir uma posição de liderança.</p>
           </div>
         </div>
        <div id="body-right">
         <h2>Confirmar:</h2>
         
         <div class="box">
          <div align="center"><strong>Conta criada com sucesso!
          
          </strong></div>
          <div class="clear"></div>
          </div>
         
        </div>
        <div class="clear"></div>
       </div>
       <div id="copyright">
        <div id="copyright-left">
         Copyright &copy; 2009, Lacueva &amp; Ramgi, ,all right reserved</div>
       </div>
       <div class="clear">&nbsp;</div>
      </div>
     </div>
    </div>
    </body>
    </html>
    <%
    Call FechaConexao
    Set rsLivros = Nothing
    %>
    
    Eu estou a verificar na BD se o username inserido ja existe so que da erro :s

    Alguem me pode ajudar?
     
  2. luistojo

    luistojo Suspenso

    eu meti o codigo javascript ali porque e onde esta o codigo onde faz a comparacao do texto inserido com os registos na base de dados :S

    Mas deixa.me exprimentar.

    OK depois de alterar o codigo para o seguinte:

    O erro que me da agora e este:

     
    Última edição: 27 de Abril de 2009
  3. geoblast

    geoblast Power Member

    Separa as instruções de SQL.
     
  4. luistojo

    luistojo Suspenso

    Fiz o que disses.te mas nao da na mesma :S
     
  5. p3dro

    p3dro Power Member

    Não deves ter uma instrução sql válida, pelo menos falta-te um parênteses.

    Tenta fazer desta maneira:

    Código:
    Call AbreConexao
    
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    
     
  6. luistojo

    luistojo Suspenso

    Coloquei assim mas o erro que me da e este:

    Tipo de erro:
    Erro de compilação do Microsoft VBScript (0x800A0400)
    Instrução esperada
    /Myweb/confirmar.asp, linha 39
    <script type="text/javascript">

    Código:
     
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
          <script type="text/javascript">
          alert ("username em questao ja esta a ser utlizado");
          window.history.go(-1);
       </script>
    Set rsLivros = conexaoDataBase.Execute(strIns)
    
    Tirando esta parte do javascript o erro que me da e o seguinte:

    Tipo de erro:
    Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
    [Microsoft][Controlador Microsoft Access de ODBC] Não é possível adicionar ou alterar um registo pois é necessário um registo relacionado na tabela 'Cliente'

    É que tenho a tabela 'Cliente' com o codigo do mesmo por numeraçao automatica deve ser por isso que da erro :S

    Ja agora a parte do java coloquei para validar o username porque se ja estiver na BD aparecer um alerta a dizer que o username ja esta a ser utilizado e ele voltar para a pagina onde insere os dados.
     
  7. p3dro

    p3dro Power Member

    Pois, não podes colocar assim um bloco de código javascript no meio do asp, podes fechar as tags <% %> e escrever directamente o javascript ou então desta maneira:

    Código:
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""username em questao ja esta a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    
    Mas se o teu objectivo é mostrar a mensagem somente no caso de o utilizador já existir, terás de criar uma condição a seguir ao Set rsLivros = conexaoDataBase.Execute(strIns), isto é, se existir algum registo, então:
    Código:
    response.write(msg)
     
  8. luistojo

    luistojo Suspenso

    Coloquei assim:
    Código:
    <[email protected]="VBScript"%>
    <%
    Option Explicit
    %>
    <!--#Include file="Conexao.inc"-->
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento, msg
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    Call AbreConexao
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    response.write(msg)
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
     "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[/URL]">
    <html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]" xml:lang="en" lang="en">
    <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
     <title>BlockBuster Lacueva &amp; Ramgi</title>
     <link rel="stylesheet" href="site/musicstore/style.css" type="text/css" charset="utf-8" />
     
    </head>
    <body>
    <div id="outer">
     <div id="wrapper">
      <div id="header">
       <h1>BlockBuster Lacueva &amp; Ramgi </h1>
       <p>Online Video Store </p>
      </div>
      <div id="nav">
       <div id="head" align = "center"></div>
     
       <div id="head-pip"></div>
       <ul>
        <li id="m1"><a href="index.html">Home</a></li>
        <li id="m2"><a href="[URL]http://localhost/Myweb/clientes.asp">Clientes</a></li[/URL]>
        <li id="m3"><a href="filmes.html">Filmes</a></li>
        <li id="m4"><a href="estreias.html">Estreias</a></li>
        <li id="m5"><a href="top10.html">Top 10</a></li>
        <li id="m6"><a href="contactos.html">Contactos</a></li>
       </ul>>
        <div id="search">
        <h2>Procurar Filme </h2>
        <Form method="Post" ACTION="pesquisa.asp">
        <input type="text" name="txtTitulo">
                    <input type="submit" value="Pesquisar" name="pesq" />
                    </form> 
        </div>
      </div>
      <div id="body">
       <div id="body-inner">
         <div id="body-left">
         <div id="topic-pic">
          <img src="site/musicstore/images/blockbuster.jpg" width="259" height="199" alt="Logo Blockbuster Lacueva &amp; Ramgi" />
         </div>
          <h2 align="center">Blockbuster Lacueva &amp; Ramgi</h2>
          <div align="justify">
            <p class="style10">A nossa empresa, BlockBuster Lacueva &amp; Ramgi, surgiu através de um projecto do âmbito escolar, que tem como objectivo a comercialização de material cinematogr&aacute;fico. A BlockBuster Lacueva &amp; Ramgi pretende fornecer as melhores soluções com a melhor equipa do mercado no ramo cinematogr&aacute;fico; satisfazer os clientes e liderar, com comprometimento à excelência; crescer continuamente na quota de mercado e rentabilidade, pela melhoria contínua do nosso conhecimento e pela eficiência dos nossos processos de negócio e conduzir o nosso negócio com integridade, respeito pela lei e pelo ambiente. A empresa BlockBuster Lacueva &amp; Ramgi pretende reforçar o seu posicionamento no mercado do Cinema, intervindo de forma decisiva no processo de consolidação em curso. Intervirá em mercados onde, suportada pelas suas competências básicas, seja capaz de atingir uma posição de liderança.</p>
           </div>
         </div>
        <div id="body-right">
         <h2>Confirmar:</h2>
     
         <div class="box">
          <div align="center"><strong>Conta criada com sucesso!
     
          </strong></div>
          <div class="clear"></div>
          </div>
     
        </div>
        <div class="clear"></div>
       </div>
       <div id="copyright">
        <div id="copyright-left">
         Copyright &copy; 2009, Lacueva &amp; Ramgi, ,all right reserved</div>
       </div>
       <div class="clear">&nbsp;</div>
      </div>
     </div>
    </div>
    </body>
    </html>
    <%
    Call FechaConexao
    Set rsLivros = Nothing
    %>
    
    So que independentemente do user que meter ele da sempre o aviso :S

    E tipo quando nao dava aviso e a aparecia a pagina com a cena a dizer "conta criada" eu fui a BD e nao tava la nada :S
     
  9. p3dro

    p3dro Power Member

    Lê melhor aquilo que eu tinha escrito :p, tens de criar uma condição para verificar se o registo já existe ou não, não me lembro ao certo a sintaxe e agora também não consigo ver, mas seria algo deste tipo:

    Código:
    if rsLivros("username") != "" then 
      response.write(msg)
    end if
     
  10. luistojo

    luistojo Suspenso

    entao em vez de ser isto:

    Código:
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    response.write(msg)
    %>
    Seria

    Código:
    if rsLivros("username") != "" then 
      response.write(msg)
    end if
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    response.write(msg)
    %>
     
  11. p3dro

    p3dro Power Member

    Código:
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    Set rsLivros = conexaoDataBase.Execute(strIns)
    
    if rsLivros("username") != "" then 
      response.write(msg)
    end if
    Mas não tenho a certeza se rstLivros("username") funciona, é uma questão de tentares, basicamente é verificares se a query retorna, ou não, algum registo.
     
  12. luistojo

    luistojo Suspenso

    Coloquei o codigo assim:

    Código:
     
    <[EMAIL="[email protected]="VBScript"%"][email protected]="VBScript"%[/EMAIL]>
    <%
    Option Explicit
    %>
    <!--#Include file="Conexao.inc"-->
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    Call AbreConexao
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    Set rsLivros = conexaoDataBase.Execute(strIns)
    if rsLivros("username") != "" then
      response.write(msg)
    end if
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
     "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[/URL]">
    <html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]" xml:lang="en" lang="en">
    <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
     <title>BlockBuster Lacueva &amp; Ramgi</title>
     <link rel="stylesheet" href="site/musicstore/style.css" type="text/css" charset="utf-8" />
     
    </head>
    <body>
    <div id="outer">
     <div id="wrapper">
      <div id="header">
       <h1>BlockBuster Lacueva &amp; Ramgi </h1>
       <p>Online Video Store </p>
      </div>
      <div id="nav">
       <div id="head" align = "center"></div>
       
       <div id="head-pip"></div>
       <ul>
        <li id="m1"><a href="index.html">Home</a></li>
        <li id="m2"><a href="[URL="http://localhost/Myweb/clientes.asp%22%3EClientes%3C/a%3E%3C/li"]http://localhost/Myweb/clientes.asp">Clientes</a></li[/URL]>
        <li id="m3"><a href="filmes.html">Filmes</a></li>
        <li id="m4"><a href="estreias.html">Estreias</a></li>
        <li id="m5"><a href="top10.html">Top 10</a></li>
        <li id="m6"><a href="contactos.html">Contactos</a></li>
       </ul>>
        <div id="search">
        <h2>Procurar Filme </h2>
        <Form method="Post" ACTION="pesquisa.asp">
        <input type="text" name="txtTitulo">
                    <input type="submit" value="Pesquisar" name="pesq" />
                    </form> 
        </div>
      </div>
      <div id="body">
       <div id="body-inner">
         <div id="body-left">
         <div id="topic-pic">
          <img src="site/musicstore/images/blockbuster.jpg" width="259" height="199" alt="Logo Blockbuster Lacueva &amp; Ramgi" />
         </div>
          <h2 align="center">Blockbuster Lacueva &amp; Ramgi</h2>
          <div align="justify">
            <p class="style10">A nossa empresa, BlockBuster Lacueva &amp; Ramgi, surgiu através de um projecto do âmbito escolar, que tem como objectivo a comercialização de material cinematogr&aacute;fico. A BlockBuster Lacueva &amp; Ramgi pretende fornecer as melhores soluções com a melhor equipa do mercado no ramo cinematogr&aacute;fico; satisfazer os clientes e liderar, com comprometimento à excelência; crescer continuamente na quota de mercado e rentabilidade, pela melhoria contínua do nosso conhecimento e pela eficiência dos nossos processos de negócio e conduzir o nosso negócio com integridade, respeito pela lei e pelo ambiente. A empresa BlockBuster Lacueva &amp; Ramgi pretende reforçar o seu posicionamento no mercado do Cinema, intervindo de forma decisiva no processo de consolidação em curso. Intervirá em mercados onde, suportada pelas suas competências básicas, seja capaz de atingir uma posição de liderança.</p>
           </div>
         </div>
        <div id="body-right">
         <h2>Confirmar:</h2>
         
         <div class="box">
          <div align="center"><strong>Conta criada com sucesso!
          
          </strong></div>
          <div class="clear"></div>
          </div>
         
        </div>
        <div class="clear"></div>
       </div>
       <div id="copyright">
        <div id="copyright-left">
         Copyright &copy; 2009, Lacueva &amp; Ramgi, ,all right reserved</div>
       </div>
       <div class="clear">&nbsp;</div>
      </div>
     </div>
    </div>
    </body>
    </html>
    <%
    Call FechaConexao
    Set rsLivros = Nothing
    %>
    
    
    testei e deu este erro:
    Desculpa la mas sou um leigo nesta materia x)
     
  13. p3dro

    p3dro Power Member

    ups é <> e não != :p
     
  14. luistojo

    luistojo Suspenso

    Meti assim:
    Código:
    if rsLivros("username") <> "" then
    Tipo de erro:
    (0x80020009)
    Ocorreu uma excepção.
    /Myweb/confirmar.asp, linha 45

    linha 45 e essa do IF
     
  15. p3dro

    p3dro Power Member

    Tenta fazer

    Código:
    if not rsLivros.eof then
    ou

    Código:
    if rsLivros.eof=false then
     
  16. luistojo

    luistojo Suspenso

    Código:
     
    <[EMAIL="[email protected]="VBScript"%"][email protected]="VBScript"%[/EMAIL]>
    <%
    Option Explicit
    %>
    <!--#Include file="Conexao.inc"-->
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    Call AbreConexao
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    Set rsLivros = conexaoDataBase.Execute(strIns)
    if not rsLivros.eof then
    if rsLivros("Username") = Request.Form("txtusername") then
      response.write(msg)
    end if
    end if
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
     "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[/URL]">
    <html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]" xml:lang="en" lang="en">
    <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
     <title>BlockBuster Lacueva &amp; Ramgi</title>
     <link rel="stylesheet" href="site/musicstore/style.css" type="text/css" charset="utf-8" />
     
    </head>
    <body>
    <div id="outer">
     <div id="wrapper">
      <div id="header">
       <h1>BlockBuster Lacueva &amp; Ramgi </h1>
       <p>Online Video Store </p>
      </div>
      <div id="nav">
       <div id="head" align = "center"></div>
       
       <div id="head-pip"></div>
       <ul>
        <li id="m1"><a href="index.html">Home</a></li>
        <li id="m2"><a href="[URL="http://localhost/Myweb/clientes.asp%22%3EClientes%3C/a%3E%3C/li"]http://localhost/Myweb/clientes.asp">Clientes</a></li[/URL]>
        <li id="m3"><a href="filmes.html">Filmes</a></li>
        <li id="m4"><a href="estreias.html">Estreias</a></li>
        <li id="m5"><a href="top10.html">Top 10</a></li>
        <li id="m6"><a href="contactos.html">Contactos</a></li>
       </ul>>
        <div id="search">
        <h2>Procurar Filme </h2>
        <Form method="Post" ACTION="pesquisa.asp">
        <input type="text" name="txtTitulo">
                    <input type="submit" value="Pesquisar" name="pesq" />
                    </form> 
        </div>
      </div>
      <div id="body">
       <div id="body-inner">
         <div id="body-left">
         <div id="topic-pic">
          <img src="site/musicstore/images/blockbuster.jpg" width="259" height="199" alt="Logo Blockbuster Lacueva &amp; Ramgi" />
         </div>
          <h2 align="center">Blockbuster Lacueva &amp; Ramgi</h2>
          <div align="justify">
            <p class="style10">A nossa empresa, BlockBuster Lacueva &amp; Ramgi, surgiu através de um projecto do âmbito escolar, que tem como objectivo a comercialização de material cinematogr&aacute;fico. A BlockBuster Lacueva &amp; Ramgi pretende fornecer as melhores soluções com a melhor equipa do mercado no ramo cinematogr&aacute;fico; satisfazer os clientes e liderar, com comprometimento à excelência; crescer continuamente na quota de mercado e rentabilidade, pela melhoria contínua do nosso conhecimento e pela eficiência dos nossos processos de negócio e conduzir o nosso negócio com integridade, respeito pela lei e pelo ambiente. A empresa BlockBuster Lacueva &amp; Ramgi pretende reforçar o seu posicionamento no mercado do Cinema, intervindo de forma decisiva no processo de consolidação em curso. Intervirá em mercados onde, suportada pelas suas competências básicas, seja capaz de atingir uma posição de liderança.</p>
           </div>
         </div>
        <div id="body-right">
         <h2>Confirmar:</h2>
         
         <div class="box">
          <div align="center"><strong>Conta criada com sucesso!
          
          </strong></div>
          <div class="clear"></div>
          </div>
         
        </div>
        <div class="clear"></div>
       </div>
       <div id="copyright">
        <div id="copyright-left">
         Copyright &copy; 2009, Lacueva &amp; Ramgi, ,all right reserved</div>
       </div>
       <div class="clear">&nbsp;</div>
      </div>
     </div>
    </div>
    </body>
    </html>
    <%
    Call FechaConexao
    Set rsLivros = Nothing
    %>
    
    
    Ja nao da erro no browser nem nada se meto um username ja utilizado aparece a mensagem mas quando insiro um que nao esta ele mostra a confirmação mas vou a BD e nao esta la o registo :S
     
  17. p3dro

    p3dro Power Member

    Mas tu nesse código nunca tentas inserir o registo na BD, constróis apenas as querys, porém depois não as executas.

    Código:
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    [B]Set rsLivros = conexaoDataBase.Execute(strIns)[/B]
    
    
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    [B]Set rsLivros = conexaoDataBase.Execute(strIns)[/B]
    
     
  18. luistojo

    luistojo Suspenso

    mas se meteres como tu dizes:

    Código:
    <[EMAIL="[email protected]="VBScript"%"][email protected]="VBScript"%[/EMAIL]>
    <%
    Option Explicit
    %>
    <!--#Include file="Conexao.inc"-->
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    Call AbreConexao
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    Set rsLivros = conexaoDataBase.Execute(strIns)
    if not rsLivros.eof then
    if rsLivros("Username") = Request.Form("txtusername") then
      response.write(msg)
    end if
    end if
    %>
    Da erro:
    Código:
     
    Tipo de erro:
    Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
    [Microsoft][Controlador Microsoft Access de ODBC] As alterações pedidas para a tabela não foram bem sucedidas pois iriam criar valores duplicados no índice, na tecla primária ou relacionamento. Altere os dados do campo ou campos que contêm os dados duplicados, remova o índice ou volte a definir o índice para que as entradas possam ser duplicadas e tente de novo.
    /Myweb/confirmar.asp, linha 25
    
    
    Sendo esta a linha 25:

    Código:
     
    Set rsLivros = conexaoDataBase.Execute(strIns)
    
     
  19. p3dro

    p3dro Power Member

    É isto que origina o erro?

    Código:
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    Provavelmente deves ter o campo username como chave primária e estás a inserir um username que já existe, daí originar o erro, tens de fazer a verificação antes da inserção.
     
  20. luistojo

    luistojo Suspenso

    troquei a ordem e coloquei assim:

    Código:
    <%
    DIM conexaoDataBase
    DIM strIns, rsLivros
    Dim varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento
    varUsername = TRIM(Request.Form("txtusername"))
    varPassword = Request.Form("txtpass")
    varNome = TRIM(Request.Form("txtnome"))
    varSexo = TRIM(Request.Form("txtsexo"))
    varMorada = Request.Form("txtmorada")
    varCP = TRIM(Request.Form("txtcp"))
    varLocalidade = Request.Form("txtlocalidade")
    varBI = Request.Form("txtbi")
    varTelefone = TRIM(Request.Form("txttelefone"))
    varDataNascimento = TRIM(Request.Form("txtData"))
    Call AbreConexao
    dim msg
    msg="<script type=""text/javascript"">"  _
    & "alert (""O Username em questao já está a ser utlizado"");"  _
    & " window.history.go(-1); "  _
    & "</script>"
    strIns = "Select * From Login "
    strIns = strIns + " Where username Like '%" + (Request.Form("txtusername")) + "%' "
    Set rsLivros = conexaoDataBase.Execute(strIns)
    if not rsLivros.eof then
    if rsLivros("Username") = Request.Form("txtusername") then
      response.write(msg)
    end if
    end if
    strIns = "INSERT INTO Login "
    strIns = strIns & "(Username, Password)"
    strIns = strIns & " VALUES ('" & varUsername & "',"
    strIns = strIns & "'" & varPassword &"')"
    [B][I][U][SIZE=3]Set rsLivros = conexaoDataBase.Execute(strIns)[/SIZE][/U][/I][/B]
    strIns = "INSERT INTO Cliente "
    strIns = strIns & "(Nome, Sexo, Data_Nascimento, Morada, BI, CP, Telefone, Localidade) Values ("
    strIns = strIns & "'" & varNome & "',"
    strIns = strIns & "'" & varSexo & "',"
    strIns = strIns & varDataNascimento & ","
    strIns = strIns & "'" & varMorada & "',"
    strIns = strIns & "'" & varBI & "',"
    strIns = strIns & "'" & varCP & "',"
    strIns = strIns & "'" & varTelefone & "',"
    strIns = strIns & "'" & varLocalidade &"')"
    Set rsLivros = conexaoDataBase.Execute(strIns)
    %>
    Mas agora se meto um username ja na BD ele da este erro:


    Caso insira um que nao esta la da este:
    Sendo a linha 39 a com maior destaque no codigo acima
     

Partilhar esta Página