
<%
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
%>