Login, comentario e cadastro atravez de asp

[gih_vianna]

Oii

esse é meu primeiro post no forum : )

eu to tentando fazer um site q tenha o login para usuarios , caixa de comentario , e o cadastro logicamente , mas ta dando erros e eu nao sei onde

pode ser

então gostaria q alguem q manjasse de asp ae

pra me dar umas dicas

porq só falta isso por meu site ir pro ar o/

vou colar aqui os codigos

>> parte de login.asp

<!--#include virtual="/site/includes/conexao.asp"-->
<%
Dim  rsemail, rssenha, SQL , rsConsulta
rsemail = request.form ("email")
rssenha = request.form ("senha")


Call AbreConexao

set rsConsulta = server.createobject("adodb.recordset") 

SQL = "SELECT * FROM cadastro WHERE email ='" & rsemail & "' AND senha = '" & rsSenha & "';"

rsConsulta.Open SQL, conexaodb

Set rsConsulta = conexao.execute(SQL)
if not rsConsulta.EOF then 
        if rsConsulta ("email") = rsemail and rsConsulta ("senha") = rssenha then 
            Session("logado") = rsConsulta("email")
            Response.redirect "index2.html"
        else 
            response.write "Senha ou email inválidos !!!"
        end if 
    else  
    response.write "Usuário nao encontrado!!!"
end if 
%>

parte de cadastro.asp

<!--#include virtual="/site/includes/conexao.asp"-->
<%
'funçao para ver se o usuario já está cadastrado 
function existeUser (email)
Dim retorno,rsConsulta
retorno = false

if email <> "" then
    set rsConsulta = conexao.execute ("Select * from cadastro where email='"& email &"'")

    if not rsConsulta.EOF then 
       retorno = true
    end if 
end if 
set rsConsulta = Nothing
existeUser = retorno
end function


Dim semail, smsg, snome ,SQL, rsinclui

'capturando o email inserido
semail = request.form("email")

'verifica se o usuario ja está cadastrado
snome = existeUser (semail)

'se o usuario ja for cadastrado
if (snome) then
  smsg = "E-mail já cadastrado no banco"
else ' se nao ele vai cadastrar 
'Montando a SQL (codigo para inserir o usuario)
SQL = "Insert into cadastro (nome, email, senha, confirmasenha, idade, sexo)" &_
      "Values (" &_
      "'" & request.form("nome") & "'," &_ 
      "'" & request.form("email") & "'," &_
      "'" & request.form("senha") & "'," &_
      "'" & request.form("confirmasenha") & "'," &_
      "'" & request.form("idade") & "'," &_
      "'" & request.form("sexo") & "')"

'executando a SQL de inclusao      
'response.write SQL
'response.end

Set rsinclui = Server.CreateObject("ADODB.Recordset")
rsinclui.Open SQL, conexao

Set rsinclui = Nothing
Set conexao = Nothing

smsg = "Usuário cadastrado com sucesso!"
end if 
%>

parte de comentario.asp

<!--#include virtual="/site/includes/conexao.asp"-->
<%
Dim scmt, semail, snome ,SQL, rsinclui

'Montando a SQL (codigo para inserir o usuario)
SQL = "Insert into comentario (nome, email, comentario)" &_
      "Values (" &_
      "'" & request.form("nome") & "'," &_ 
      "'" & request.form("email") & "'," &_
      "'" & request.form("comentario") & "')"

'executando a SQL de inclusao      
'response.write SQL
'response.end

Set rsinclui = Server.CreateObject("ADODB.Recordset")
rsinclui.Open SQL, conexao

Set rsinclui = Nothing
Set conexao = Nothing

%>

e a conexao.asp

<%
Dim banco, conexao
banco = Server.MapPath("/dados/cliente.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DBQ="& banco &_
             ";Driver={Microsoft Access Driver (*.mdb)};"
%>

Nao sei se podia colar os codigos assim

qualquer coisa me desculpem