
<%
Set Rss=Server.CreateObject("ADODB.RecordSet")
'se recogen los datos del formulario, declarando las diferentes variables
titulo=request.form("titulo")
descripcion=request.form("descripcion")
categoria=request.form("categoria")
subcategoria=request.form("subcategoria")
email=request.form("email")
ciudad=request.form("ciudad")
ssqls="select * from anuncios"
Rss.Open Ssqls,Cons,1,2
%>
<%
if titulo="" or descripcion="" or categoria="" or subcategoria="" or email="" or ciudad="" then
error = "Debe completar todos los datos del anuncio"
Response.write error
end if
if not titulo="" or not descripcion="" or not categoria="" or not subcategoria="" or not email="" or not ciudad="" then
Rss.AddNew
Rss("titulo")=titulo
Rss("descripcion")=descripcion
Rss("categoria")=categoria
Rss("subcategoria")=subcategoria
Rss("correo")=email
Rss("ciudad")=ciudad
Rss("fecha")= Date()
rss.update
%>
 
 




 en la única en la que discrepo es en la de limitar el número de post por ip
en la única en la que discrepo es en la de limitar el número de post por ip 
