Inserir Dados

[Fábio freitas]

Olá Amigos,

Estou como uma pequena dúvida, será que alguém pode me salvar?

Abaixo está o código, aonde:

Nome do banco = noticias.mdb

tabela = news

campos da tabela = chamada,noticia e link

Aparece o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

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

/fabiofreitas/inserir.asp, line 41

Ficarei grato pela ajuda..

<%

set db = server.CreateObject("ADODB.connection")

dim caminho

caminho = server.MapPath("noticias.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

chamada = request.form("chamada")

noticia = request.form("noticia")

link = request.Form("link")

sql = "INSERT INTO news (chamada, noticia, link)"

sql = sql & "VALUES"

sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')"

set rs = db.execute(sql)

response.redirect "conecta_noticias.asp"

rs.close

db.close

set rs = nothing

set db = nothing

%>

<form action="conecta_noticias.asp" method="post" name="dados" id="dados" >

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">

<tr >

<td colspan="2">&nbsp;</td>

</tr>

<tr >

<td colspan="2"><div align="center"><strong>Inserir Noticias</strong></div></td>

</tr>

<tr>

<td width="6%" height="31" ><font size="-1" face="Arial, Helvetica, sans-serif">Chamada

:</font></td>

<td width="88%" ><font size="2" face="Arial, Helvetica, sans-serif">

<input name="chamada" type="text" class="input2" id="chamada" size="40">

</font></td>

</tr>

<tr>

<td height="185" valign="top" >Noticia:</td>

<td ><p>

<textarea name="noticia" cols="70" rows="10" id="textarea" class="input2" ></textarea>

<font size="-1" face="Arial, Helvetica, sans-serif"> </font></p></td>

</tr>

<tr>

<td > <div align="right"></div>

<div align="left">Link:</div></td>

<td ><input name="link" type="text" class="input2" id="resumo2" size="100"></td>

</tr>

<tr align="left" valign="top" >

<td colspan="2"> <p align="center">pp</p></td>

</tr>

<tr>

<td colspan="2" > <div align="center">7p 77</div>

<div align="center">

<input type="submit" name="Submit" value="Enviar">

<input type="reset" name="Submit2" value="Limpar">

7</div>

</td>

</tr>

</table>

</form>

[bareta]

faz assim:

<% 
if request.form("enviado")="sim" then 

set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("noticias.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

chamada = request.form("chamada")
noticia = request.form("noticia")
link = request.Form("link")
sql = "INSERT INTO news (chamada, noticia, link)"
sql = sql & "VALUES"
sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')"
set rs = db.execute(sql)
response.redirect "conecta_noticias.asp"
rs.close
db.close
set rs = nothing
set db = nothing
response.write "inserido na tabela"
end if
%>
<form action="conecta_noticias.asp" method="post" name="dados" id="dados" >
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">
<tr > 
<td colspan="2">&nbsp;</td>
</tr>
<tr > 
<td colspan="2"><div align="center"><strong>Inserir Noticias</strong></div></td>
</tr>
<tr> 
<td width="6%" height="31" ><font size="-1" face="Arial, Helvetica, sans-serif">Chamada 
:</font></td>
<td width="88%" ><font size="2" face="Arial, Helvetica, sans-serif"> 
<input name="chamada" type="text" class="input2" id="chamada" size="40">
<input name="enviado" type="hidden" value="sim">
</font></td>
</tr>
<tr> 
<td height="185" valign="top" >Noticia:</td>
<td ><p> 
<textarea name="noticia" cols="70" rows="10" id="textarea" class="input2" ></textarea>
<font size="-1" face="Arial, Helvetica, sans-serif"> </font></p></td>
</tr>
<tr> 
<td > <div align="right"></div>
<div align="left">Link:</div></td>
<td ><input name="link" type="text" class="input2" id="resumo2" size="100"></td>
</tr>
<tr align="left" valign="top" > 
<td colspan="2"> <p align="center">pp</p></td>
</tr>
<tr> 
<td colspan="2" > <div align="center">7p 77</div>
<div align="center"> 
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Limpar">
7</div>
</td>
</tr>
</table>
</form>