Problemas Para Inserir Dados Na Tabela De Dados

[www.XmlBR.com.br]

Olá galera, eu sou programador PHP e estou começando a programar ASP, e estou tendo os meus problemas pelo caminho, podem me ajudar?

Eu tenho a seguinte página:

<!--#include file="inc/config.asp"-->
<%
'Recuperando os valores do formulário
data_cadastro = date
nome = Request.Form("txtNome")
email = Request.Form("txtEmail")
login = Request.Form("txtLogin")
senha = Request.Form("txtSenha")
total = 0
'Verificando se esse usuário já está cadastrado no sistema
Set rsUser1 = Server.CreateObject("ADODB.Recordset")
sqlUser1 = "SELECT * FROM usuarios WHERE login = '"&login&"'"
rsUser1.Open sqlUser1,Conn
[B]while not rsUser1.Eof
	total = total+1
	rsUser1.Movenext
wend[/B]
if total > 0 then
	msg = "Este login "&login&" já está cadastrado no banco de dados.<br>"
else
	Set rsUser2 = Server.CreateObject("ADODB.Recordset")
	sqlUser2 = "INSERT INTO usuarios (id,nome,email,login,senha) VALUES ('','"&nome&"','"&email&"','"&login&"','"&senha&"')"
	[B]rsUser2.Open sqlUser2,Conn[/B]

	msg = "Cadastro realizado com sucesso.<br>"
end if
'Redirecionando
Response.Redirect("index.asp?msg="&msg)
%>

As linhas em negrito são as que eu tenho dúvidas.

No primeiro NEGRITO, onde conte o While, eu estou querendo saber como faezr para retornar o total de registro encontrado pelo SELECT na tabela. No php eu uso (mysql_num_rows() -> para o MySql). Como eu faço para retonar da mesma forma no asp, sem ter que usar um contador e um loop.

No segundo negrito é onde contem o erro do código, quando eu vou executar o script o browser me retorna esse erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Data type mismatch in criteria expression.

/site/cad.asp, line 23

Linha 23: rsUser2.Open sqlUser2,Conn

Qual é o problema aí???

[Victor]

Tipo.. Voc~e tem que fazer uma autonumeração no banco de dados de preferencia ID, ai no site você fazer um link com uma querystring, e acha assim:

<a href="pagina.asp?id=<%=RecSet("id")%>"><%=registro%><a>

, ai no select assim:

RecSet.open "select ........ where id = "&request.querystring("id")&"", conn

Ai é só uma lógica que estou tentando te dar, pois eu não vou sair por ai, fazendo codigos e distrinuindo, se não eu saio perdendo, mas está ai o que você deve fazer!!!! Caso tenha mais dúvidas sobre esse sistema, ou não saiba nem como fazer, fala ai que tento te ajudar melhor!!!!

[]'s

Victor

[www.XmlBR.com.br]

Acredito que você não tenha entendido a minha dúvida, mas sem problemas, já consegui a solução.

Aqui está a solução...

[Guest Carlos Seiji]

primeira parte

while not rsUser1.Eof 'inicia um laço enquanto não for fim da busca. eof = end of file traduzindo fim de arquivo
total = total+1 'variavel de nome total e o valor da variavel é ela mesma mais um
rsUser1.Movenext 'move para o proximo registro da consulta
wend

'finaliza o laço segunda parte e erro

sqlUser2 = "INSERT INTO usuarios (id,nome,email,login,senha) VALUES ('','"&nome&"','"&email&"','"&login&"','"&senha&"')" 'inserindo dados na tabela usuario
rsUser2.Open sqlUser2,Conn

soluçao do erro

sqlUser2 = "INSERT INTO usuarios (id,nome,email,login,senha) VALUES (1,'"&nome&"','"&email&"','"&login&"','"&senha&"')" 'é o seguinte id provavelmente é um campo numerico entaum você não precisa dos apostrofos ' que para o sql indica campo texto, caso o campo id seja auto numerico pode arrancar o campo id do sql
rsUser2.Open sqlUser2,Conn

[]'s