Java Script error :S

Bem, que confusão já vai para aqui :D

Tenta em vez disto

Código: 
if not rsLivros.eof then
if rsLivros("Username") = Request.Form("txtusername") then
  response.write(msg)
end if
end if

fazer isto

Código: 
if not rsLivros.eof then
  response.redirect("confirmar.asp")
end if

Em relação aos erros, tens de verificar as regras de integridade da tua BD...


Envia-me os ficheiros (incluindo o "Conexao.inc") e a BD.
 
Vê lá se desta maneira funciona

Só alterei o confirmar.asp
Código: 
<%@Language="VBScript"%>
<%
Option Explicit
%>
<!--#Include file="Conexao.inc"-->
<%
dim conexaoDataBase

'obter variável Request.Form
private function Req(var)
  Req=trim(Request.Form(var))
end function

'verificar se o utilizador existe, se existir retorna o código
private function UserExists(user)
  dim cod_cliente, strIns, rs
  cod_cliente=-1

  strIns = "Select cod_cliente From Login "
  strIns = strIns + " Where username = '" + user + "' "

  Call AbreConexao
  Set rs = conexaoDataBase.Execute(strIns)
  if not rs.EOF then cod_cliente=rs("cod_cliente")
  Set rs=nothing
  Call FechaConexao

  UserExists = cod_cliente
end function

'adicionar utilizador, retorna o código do utilizador criado
private function AddUser(varUsername, varPassword, varNome, varSexo, varMorada, varCP, varLocalidade, varBI, varTelefone, varDataNascimento)
  Call AbreConexao

  dim cod_cliente, strIns, rs
  cod_cliente=-1

  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 &"')"

  Call AbreConexao
  Set rs = conexaoDataBase.Execute(strIns)
  strIns = "Select max(Cod_cliente) as cod from Cliente"
  Set rs = conexaoDataBase.Execute(strIns)
  if not rs.EOF then cod_cliente = rs("cod")  
  Set rs=nothing
  Call FechaConexao

  AddUser = cod_cliente
end function

'adicionar login
private function AddLogin(cod_cliente, username, password)
  dim strIns, rs

  strIns = "INSERT INTO Login "
  strIns = strIns & "(Username, Password, cod_cliente)"
  strIns = strIns & " VALUES ('" & username & "',"
  strIns = strIns & "'" & password &"', " & cod_cliente & ")"
  Call AbreConexao
  Set rs = conexaoDataBase.Execute(strIns)
  Set rs=nothing
  Call FechaConexao
end function


if UserExists(Req("txtusername"))>0 then 'verificar se o utilizador já existe
  response.Redirect("criarconta.asp") 'já existe, redireccionar para outra página
else
  dim cod_cliente
  cod_cliente=AddUser(Req("txtusername"), Req("txtpass"),Req("txtnome"),Req("txtsexo"), Req("txtmorada"),Req("txtcp"), Req("txtlocalidade"),Req("txtbi"),Req("txttelefone"), Req("txtData"))

  'se existir vamos adicionar então o login
  if cod_cliente>0 then  AddLogin cod_cliente, Req("txtusername"), Req("txtpass")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" 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="http://localhost/Myweb/clientes.asp">Clientes</a></li>
    <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>
 
luistojo disse:
desde ja agradeco a ajuda.

Ja da para inserir os registos na BD mas infelizmente o aviso do username ja inserido nao aparece :S
Clicar para expandir...

Não aparece porque no código que exemplifiquei, tirei :D

Substitui isto

Código: 
response.Redirect("criarconta.asp")

Por isto

Código: 
dim msg
msg="<script type=""text/javascript"">"  _
& "alert (""O Username em questao já está a ser utlizado"");"  _
& " window.history.go(-1); "  _
& "</script>"
response.write(msg)

Não te esqueças que se o utilizador tiver o javascript desactivo essa mensagem não aparece, nem muda de página; tem cuidado com o sql injection :p
 
Ja da tudo =D

Obrigado p3dro x)

E ja agora senao for pedir muito tenho um ligeiro problema tipo coloco uma data de nascimento da caixa de texto mas na BD aparece uma qq, deve ser uma por defeito nao? :O
 
luistojo disse:
Ja da tudo =D

Obrigado p3dro x)

E ja agora senao for pedir muito tenho um ligeiro problema tipo coloco uma data de nascimento da caixa de texto mas na BD aparece uma qq, deve ser uma por defeito nao? :O
Clicar para expandir...

:x2:


Em relação às datas, tenta alterar estas 2 linhas

Código: 
strIns = strIns & "'" & varSexo & "',"
strIns = strIns & varDataNascimento & ","

para isto

Código: 
strIns = strIns & "'" & varSexo & "',#"
strIns = strIns & FormatDateTime(varDataNascimento,2) & "#,"
 
Inicie sessão ou registe-se para poder participar.
Back
Topo