Insert com condição where

Não existe where em insert , você insere apenas isto .

ID é autoincrement ?

O que pretendia com o where ?

vc pode fazer um SELECT antes de executar o INSERT. Ex: antes de inserir, verifique através de uma consulta, se os dados já existem no banco, caso exista, redirecione o user para a pagina de formulário novamente, com uma mensagem de erro

<% ‘incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
‘no BD através de SQL Select if not rs.eof then

‘redireciono para incluir_form.asp?msgeof=1 else ‘incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1 ‘e lá receberá um mensagem de sucesso Option explicit ‘declaro as var dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert ‘recupero todos os dados varlogin=trim(request.form(“login”)) varsenha=trim(request.form(“senha”)) varemail=trim(request.form(“email”)) ‘crio a conexao %> <!–#include file=”conn/conexao1.asp”–> <% ‘abrir a conexao call abreconexao ‘crio o rsselect para verificar se os dados jah estaun cadastrados set rsselect=server.createobject(“ADODB.Recordset”) ‘crio o SQLselect SQLselect=”SELECT login FROM login WHERE login=’”&varlogin&”‘” rsselect.open SQLselect,conexao,1,3 if not rsselect.eof then response.redirect(“incluir_form_treina.asp?msgeof=1″) set rsselect=nothing else ‘crio o rsinsert para inseiri os dados no bd set rsinsert=server.createobject(“ADODB.Recordset”) ‘crio o SQLinsert pra incluir no bd SQLinsert=”INSERT INTO login(login,senha,email) values(‘”&varlogin&”‘,’”&varsenha&”‘,’”&varemail&”‘)” rsinsert.open SQLinsert,conexao,1,3 response.redirect(“administracao_treina.asp?msg=1″) set rsinsert=nothing end if call fechaconexao %>