Mensagem com data e hora

<html>
<body>
<%
nome = Request.Form("nome")
email = Request.Form("email")
telefone = Request.Form("telefone")
empresa = Request.Form("empresa")
mensagem = Request.Form("mensagem")
dataatual = date
horaatual = time

Set CONEX = Server.CreateObject("ADODB.Connection")
CONEX.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mapPath ("databaseanco.mdb")
CONEX.open
if (nome = "") Then
%>
<center>
É obrigatório o preenchimento do campo Nome!
<a href = "index.html">Voltar</a>
</center>
<%
Else
SQL = "Insert into contato (data, hora, nome, email, telefone, empresa, mensagem) "
SQL = SQL + " values ('"+dataatual+"', '"+horaatual+"', '"+nome+"','"+email+"','"+telefone+"','"+empresa+"','"+mensagem+"')"
CONEX.Execute(SQL)
%>
<center>Parabéns Sr. <%=nome%>, sua mensagem foi enviada com sucesso!</center> 
<%
End if
%>
</body></html>
-------------------------

msg de erro

Erro de tempo de execução do Microsoft VBScript error '800a000d'

Tipos incompatíveis: '[string: "Insert into contato "]'

/insere.asp, line 25

o q estou fazendo errado????