Erro de Type mismatch ????

[nspriscila 0]

Tenho uma página de update que está dando o seguinte erro...

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch

 

/pw2you/sistema/cipa/up_cipa1.asp, line 42

 

 

segue o cod. e em vermelho a linha 42

 

<% option explicit if Session("autorizado_acesso") <> "correto" then 	Response.Redirect "index.asp"end if %><!-- #include file="../../includes/conexao.asp" --><%if session("alterar") <> true then 	Response.Redirect "index1.asp" end if  Response.Buffer = trueResponse.Expires = 0 Dim tituloDim descricaoDim codDim data_inclusaoDim data_venctoDim statusDim varcurrentdateDim getdatetitulo        = request("titulo")descricao    = request("descricao")cod 	 = request("cod")data_inclusao        = request("data_inclusao")data_vencto     	 = request("data_vencto")status     	 = request("status")varcurrentdate  = Year(Now) & "/" &  Month(Now) & "/" & Day(Now)sql = "select * from cipa1" &_   " where titulo = " & "'"  & titulo & "'"   &_      " and cod <> " & "'"  & cod & "'"         call Executa_sql(sql,0) sql = "update cipa1 set "  sql = sql & "titulo = " & "'"  & titulo & "'" &","sql = sql & "descricao =  " & "'"  & descricao & "'" &","''''linha 42'''''' sql = sql & "data_inclusao =  " & "'"  & getdate() & "'," sql = sql & "data_vencto =  " & "'"  & getdate()+30 & "',"sql = sql & "status =  " & "'N'"sql = sql & " where cod = " & "'"  & cod & "'"  	 	call executa_sql(sql,0)  		session("alterar") = false	Response.Redirect "index1.asp"%>

Algué sabe como arrumar ?

[gastao 0]

sql = "update cipa1 set " sql = sql & "titulo = " & "'" & titulo & "'" &","sql = sql & "descricao = " & "'" & descricao & "'" &","''''linha 42'''''' sql = sql & "data_inclusao = " & "'" & getdate() & "',"sql = sql & "data_vencto = 'getdate()+30' ,"sql = sql & "status = " & "'N'"sql = sql & " where cod = " & "'" & cod & "'"acho q assim da jeito, tenta ae

[nspriscila 0]

não mudou nada, tem outra solução ?

[nspriscila 0]

já resolvi....Era problema de incluir data