title: Update and insert MySQL using Classic ASP
body: <p>I'm trying to update on a database in MySQL using Classic ASP, but it's not working. Could someone tell me what might be wrong in my code?</p>
  
  <pre><code>IDCliSession = Session("usuarioident")
  
  if IDCliSession &lt;&gt; "" then
     IDCliSession = IDCliSession
  else
      IDCliSession = 0
  end if
  
  set cli = conexao.execute("SELECT * FROM clientes WHERE id_cliente = "&amp; IDCliSession &amp;"")
  
  senha_S = request.form("senha")
  senha_C = request.form("confsenha")
  senha =  request.form("confsenha")
  
  if senha1 &amp; "" &lt;&gt; "" or senha2 &amp; "" &lt;&gt; "" then
      if senha_S &lt;&gt; senha_C then
          response.redirect "Registro.asp?msg=A Senha e a Confirmação de Senha não são iguais. Por favor, preencha novamente!"
      end if
  end if
  
  loja = "1062"
  tipoPe = request.Form("tipo")
  email = request.Form("email")
  fone1 = request.Form("fonefixo")
  fone2 = request.Form("fonecel")
  cep = request.Form("cep")
  tipo_residencia = request.Form("tipo_residencia")
  endereco = request.Form("endereco")
  numero = request.Form("numero")
  bairro = request.Form("bairro")
  complemento = request.Form("complemento")
  cidade = request.Form("cidade")
  fk_estado = request.Form("estado")
  fk_pais = request.Form("pais")
  data = Date()
  
  if request.Form("newsletter") = "1" then
      newsletter = 1
  else 
      newsletter = 0
  end if
  
  conhecimento = request.Form("tipo")
  modalidade = request.Form("modalidade")
  modalidade_ativa = "0"
  comentarios = ""
  
  if not cli.eof then
      query = "SELECT * FROM clientes WHERE email='"&amp; Session("mail") &amp;"'"
      Set rsCliente = Server.CreateObject("ADODB.RecordSet")
      rsCliente.Open query, conexao, 2, 3
  
      rsCliente("tipo") = tipoPe
      rsCliente("email") = email
      rsCliente("senha") = senha
      rsCliente("fone1") = fone1
      rsCliente("fone2") = fone2
      rsCliente("cep") = cep
      rsCliente("tipo_residencia") = tipo_residencia
      rsCliente("endereco") =endereco
      rsCliente("numero") = numero
      rsCliente("fk_pais") = fk_pais
      rsCliente("newsletter") = newsletter
      rsCliente("conhecimento") = conhecimento
      rsCliente("modalidade") =   modalidade
  
      rsCliente.Update
  
      rsCliente.Close
      Set rsCliente = Nothing
  end if
  </code></pre>