ERRO NO UPDATE E INSERT

<%@LANGUAGE='VBSCRIPT' CODEPAGE='1252'%>
<!--#include file="conexao.asp"-->
<% 
atividade = Request.Form("atividade")
empresa = Request.Form("empresa")
endereco = Request.Form("ende")
bairro = Request.Form("bairro")
cidade = Request.Form("cidade")
uf = Request.Form("uf")
telefone = Request.Form("telefone")
email = Request.Form("email")
site = Request.Form("site")
apresentacao = Request.Form("apresentacao")
'apresentacao = Replace(apresentacao,vbcrlf,"<br/>")
obs = Request.Form("apresentacao")
'obs = Replace(obs,vbcrlf,"<br/>")
msn = Request.Form("msn")
skype = Request.Form("skype")
ativo = Request.Form("ativo") 
if ativo = true then
	ativo = 1
else
	ativo = 0
end if
apresentacao = Replace(apresentacao,vbcrlf,"<br/>")
obs = Replace(obs,vbcrlf,"<br/>")
sql = "INSERT INTO td_parceiros (id_atividade, cidade, uf, empresa, endereco, bairro, telefone, email, site, apresentacao, obs, ativo, msn, skype) VALUES (" & atividade & ", '" & cidade & "', '" & uf & "', '" & empresa & "', '" & endereco & "', '" & bairro & "', '" & telefone & "', '" & email& "', '" & site & "', " & apresentacao & ", " & obs & ", " & ativo & ", '" & msn & "', '" & skype & "')"

conexao.Execute(sql)
Response.Write(sql)
'alerta = "Atividade Cadastrada com sucesso!"
'Response.Redirect("parceiros.asp")
%>

<%@LANGUAGE='VBSCRIPT' CODEPAGE='1252'%>
<!--#include file="conexao.asp"-->
<% 
id_parceiro = Request.Form("id_parceiro")

atividade = Request.Form("id_atividade")
empresa = Request.Form("empresa")
endereco = Request.Form("ende")
bairro = Request.Form("bairro")
cidade = Request.Form("cidade")
uf = Request.Form("uf")
telefone = Request.Form("telefone")
email = Request.Form("email")
site = Request.Form("site")
apresentacao = Request.Form("apresentacao")
'apresentacao = Replace(apresentacao,vbcrlf,"<br/>")
obs = Request.Form("apresentacao")
'obs = Replace(obs,vbcrlf,"<br/>")
msn = Request.Form("msn")
skype = Request.Form("skype")
ativo = Request.Form("ativo") 
if ativo = true then
	ativo = 1
else
	ativo = 0
end if

sql = "UPDATE TD_parceiros set id_atividade = " & atividade & ", empresa = '" & empresa & "', endereco = '" & endereco & "', bairro = '" & bairro & "', cidade = '" & cidade & "', uf = '" & uf & "', telefone = '" & telefone & "', email = '" & email & "', site = '" & site & "', apresentacao = '" & apresentacao & "', obs = '" & obs & "', msn = '" & msn & "', skype = '" & skype & "', ativo = '" & ativo & "'  Where id_parceiro = " & id_parceiro & ""

'sql = Replace(sql,null," ")
conexao.Execute(sql)
Response.Write(sql)
'Response.Redirect("atividades.asp")
%>