16 replies to this topic

[Agente Linhares]

hehe. bem interessante isso. tp eu nunca precisei e portanto nunc atentei ou usei loop pra fazer inserts..mas em caso de muitos campos msm, economiza um bom trampo..

[leanjo]

eu faco assim:
depois de abrir a conexao e definir os campos do form...

Else
Dim SQLCadastra, Sexo, Nome, Login, Senha, Senha2, sql, con
Nome = Trim(Replace(Request.Form("Nome"), "'", "''"))
Sexo = Trim(Replace(Request.Form("Sexo"), "'", "''"))
Login = Trim(Replace(Request.Form("Login"), "'", "''"))
Senha = Trim(Replace(Request.Form("Senha"), "'", "''"))
Senha2 = Trim(Replace(Request.Form("Senha2"), "'", "''"))

If (Senha = Senha2) Then
If (Nome <> "" And Sexo <> "" And Senha = Senha2) Then

BDCon()
SQL = "select login from usuario where login = '" & login & "'"
set rs = Con.Execute(SQL)
if rs.eof then
SQLCadastra = "Insert Into usuario(Nome, login, Sexo) Values('"&Nome&"', '"&login&"', '"&Sexo&"')"
Set SQLCadastra = Con.Execute(SQLCadastra)
BDescon()
Set SQLCadastra = Nothing
Response.write "<font face=""verdana"" size=""1"">"
Response.write "Cadastro realizado com sucesso!!! <br>"
Response.write "Obrigado por se cadastrar!"
Response.write "</font>"
else
response.write "<font face=""verdana"" size=""2"">"
response.write "Este login ja encontra-se em uso... <br>"
response.write "<a href=""java script:history.back(-1)"">[ Voltar ] </a>"&VbCrlf
response.write "</font>"
end if
else
response.write "<font face=""verdana"" size=""2"">"
response.write "Alguns dados encontram-se em branco... <br>"
response.write "</font>"
End If
else
response.write "<font face=""verdana"" size=""2"">"
response.write "Sua senha não confere... <br>"
response.write "</font>"
End If
End If