Na Hora De Inserir Dá Erro

[marcos_804]

bem assim está o meu codigo

<%

SET marcos = CreateObject("ADODB.connection")
meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};"
meuLivro = meulivro &"DBQ="& Server.MapPath("livro.mdb")
marcos.open meuLivro

'Variveis do Livro de Visitas

nome = request.form("nome")
site = request.form("site")
email = request.form("email")
mensagem = request.form("mensagem")
ip = request.servervariables("remote_addr")
data = date
hora = time

%>

<%

SQL = "INSERT INTO livro (nome ,site ,email ,mensagem ,ip ,data ,hora)"
SQL1 = SQL &"VALUES('"& nome &"', '"& site& "', '"& email &"', '"& mensagem &"', '"& ip &"', '"& data &"', '"& hora &"')"
Set grava = marcos.Execute(SQL1)
%>
<%
marcos.close
%>

<% response.redirect "default.asp"%>

ESTE É O ERRO

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver] Field 'livro.site' cannot be a zero-length string. 

/teajudo/TESTE ASP/meulivro/inseredados.asp, line 24 

MAS NÃO CONSEGUI DECIFRÁ-LO

[Graymalkin]

[Microsoft][ODBC Microsoft Access Driver] Field 'livro.site' cannot be a zero-length string.

Traduzindo:

O campo 'livro.site' não pode ser uma cadeia de caracteres de comprimento zero. Ou seja, o campo livro.site deve estar ficando vazio quando não pode.

[dark0]

Abra seu banco de dados em modo ESTRUTURA, e clique neste campo, e coloque a OPÇÂO Permitir Comprimento 0 em SIM