Si, al administrador le llegan todos los campos, pero cuando acepta, se pierde el del nombre... mira:
response.expires=0
Response.CacheControl="no-cache"
dim directorio
dim barradir
'barradir="../"
barradir="/"
directorio=barradir&"fpdb/"
if session("user")=0 then
Response.Redirect "index.asp"
end if
if session("user")=1 then
dim acciones'recupera el valor de main.asp para ver que se va a hacer
dim mostrar_acciones'true si puede mostrar los botones de activar y borrar
acciones=trim(Request.Form("acciones"))
mostrar_acciones=false
dim accion'recupera el valor de doit.asp si hay que borrar, activar, prolongar o continuar
dim cid'recupera el valor de los cuadro seleccionados
accion=trim(Request.Form("accion"))
cid=trim(Request.Form("cid"))
dim numpagina'numero de pagina
numpagina=trim(request.form("pnum"))
if numpagina="" then
numpagina=1
else
if not isnumeric(numpagina) then
numpagina=1
else
numpagina=cint(numpagina)
end if
end if
if acciones="salir" then
Response.Redirect "logout.asp"
'elseif acciones="exportar" then
' response.Redirect "exportaremails.asp"
elseif acciones="activar" then
db_sql = "SELECT * FROM avisos WHERE mostrar = false ORDER BY id ASC"
if accion="continuar" then
Response.Redirect "main.asp"
end if
elseif acciones="depurar" then
db_sql="SELECT * FROM avisos WHERE mostrar = true AND fecha_alta < DATE()-15 ORDER BY id ASC"
if accion="continuar" then
Response.Redirect "main.asp"
end if
elseif acciones="listado" then
db_sql="SELECT * from avisos WHERE mostrar = true ORDER BY id ASC"
if accion="continuar" then
Response.Redirect "main.asp"
end if
end if
'INICIO apertura DBs
set db_sitio=server.CreateObject("ADODB.recordset")
db_sitio.cursortype= 1
db_sitio.locktype=3
db_sitio.PageSize=25
'db_sql = "SELECT * FROM avisos WHERE mostrar = false ORDER BY id ASC"
'e="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath(directorio&"dbavisos.mdb")
e="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=I:\FerozoWebHosting\clasificadosglobo .com.ar\public_html\fpdb\dbavisos.mdb"
db_sitio.open db_sql, e
if not db_sitio.BOF and not db_sitio.EOF then
db_sitio.AbsolutePage=numpagina
end if
'FIN apertura DBs
dim msg'texto si fue todo ok o no
msg=""
if acciones="activar" then
'INICIO acciones
if accion="activar" then
call proceder(accion)
elseif accion="borrar" then
call proceder(accion)
end if
'FIN acciones
elseif acciones="depurar" then
'INICIO depurar
if accion="prolongar" then
call proceder(accion)
elseif accion="borrar" then
call proceder(accion)
end if
'FIN depurar
elseif acciones="listado" then
'INICIO listado
if accion="borrar" then
call proceder(accion)
end if
'FIN listado
end if
end if
sub proceder(action)
if cid <> "" then
dim long_cid
dim id
dim ultimo'si es el ultimo numero de aviso que hay en la variable
ultimo=false
id=""
long_cid=len(cid)
do until instr(1,cid,",")<0
if instr(1,cid,",")=0 then
id=cid
if ultimo then
exit do
end if
ultimo=true
else
id=left(cid,instr(1,cid,",")-1)
cid=right(cid,long_cid-instr(1,cid,",")-1)
long_cid=len(cid)
end if
db_sitio.MoveFirst()
do until db_sitio.EOF
if clng(db_sitio("id"))=clng(right(id,len(id)-3)) then
if accion="activar" then
db_sitio("fecha_alta")=date()
db_sitio("mostrar")=true
db_sitio.Update()
exit do
elseif accion="prolongar" then
db_sitio("fecha_alta")=date()
db_sitio.Update()
exit do
elseif accion="borrar" then
db_sitio.Delete
db_sitio.Update()
exit do
end if
end if
db_sitio.MoveNext()
loop
loop
msg="La acción se ha completado con Exito."
else
msg="No se han seleccionado ningún Aviso."
end if
end sub
No pude cargar la pagina entera xq era muy largo... dime como hago para pasarte el archivo completo...
Gracias!
campo en blanco en aviso clasificado... 
... el problema es que tiene un formulario que se llena, algo parecido a esto:
, se publica, para lo cual el mensaje va a parar a una base acces y otra pagina lo muestra... el problema es que en esta ultima pagina no muestra el campo nombre, y por lo que pude ver el mismo aparece vacio en la base de datos... y no se donde esta la falla 
