Meu insert não funciona

Tenho o código abaixo, sempre utilizei ele, mas agora não está funcionando, o porblema é que não parece erro, simplesmente não insere o registro, ja verifiquei a conexão com o BD, está ok, pois consigor ler os registros existentes. alguém me ajude.

CODE
<%
vr_nome = request.Form("nome")

vr_email = request.Form("email")

vr_telefone = request.Form("telefone")

vr_cidade = request.Form("cidade")

vr_assunto = request.Form("assunto")

vr_texto = request.Form("texto")

strSQL ="insert into TB_CONTATOS (CONT_TITULO,CONT_NOME,CONT_EMAIL,CONT_TEL,CONT_CIDADE,CONT_TEXTO) values ('"&vr_assunto&"','"&vr_nome&"','"&vr_email&"','"&vr_telefone&"','"&vr_cidade&"','"&vr_texto&"')"

ConnStr.Execute(strSQL)

set conn = Server.CreateObject("ADODB.Connection")

conn.open "con_rei_01","",""

set rs = conn.execute(strSQL)

set rs=nothing

%>