<%
dim vfecha, vtitulo, vnoticia, vfuente
vfecha=request.form("fecha")
vtitulo=request.form("titulo")
vnoticia=request.form("noticia")
vfuente=request.form("fuente")
Set Conn=Server.CreateObject("ADODB.connection") Conn.open "miservidor.mdb"
sql = "insert into noticias (fecha, titulo, noticia, fuente) values ('"&vfecha&"','"&vtitulo&"','"&vnoticia&"','"&vf ue nte&"')"
conn.execute sql
%>
'aqui deverias de manejar un control de errores, busca informacion sobre
'on resume next
'si el insert se produce correctamente
'tenemos que colocar una SQL en donde podamos lograr retraer el valor anterior
'si guardaras el codigo de usuario que esta creandola fuera perfecto
'pero no lo veo en el insert
'entonces con lo que tenemos podrias ser
sql = "select * from noticias where fecha = '"&vfecha &"' and titulo = '"&vtitulo&"'"
'ejecutamos RS y asignamos el valor a tu id
id_noticia = rs("id_noticia")
'limpiamos rs
'ahora que si tenemos el id podemos usar esta instrucción.
<a href="administrador/noticias/anexos.asp?id_noticia="<%=("id_noticia")%>>Si desea agregar archivos al documento</a>"
<%
Conn.close
Set Conn=nothing
%>