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"> </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>