<% set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.RecordSet") set rst2 = Server.CreateObject("ADODB.RecordSet") Cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clients\argentina-hosting.com\intertournet.com.ar\data\clasificados.mdb") sql2 = "SELECT * FROM clasificados" rst2.Open sql2,cnn,3,3 do while not rst2.eof if rst2("dia_venc") = day(now) and rst2("mes_venc") = month(now) and rst2("ano_venc") = year(now) Then rst2("habilitado") = False rst2.update end if rst2.movenext loop rst2.Close set rst2 = Nothing if request.Form("ingresar") = "Ingresar" Then dim nombre, email, categoria, clasificado, fecha_ini, fecha_venc, aux, aux2, direccion, telefono, dni, pais, localidad, provincia dim erro, erron, errodni, errod, errot, errop, erropro, errol, errom, erroc, errocla if request.Form("nombre") = "" Then erro = "si" erron = "si" else nombre = request.form("nombre") end if if request.Form("dni") = "" Then erro = "si" errodni = "si" else dni = request.form("dni") end if if request.Form("direccion") = "" Then erro = "si" errod = "si" else direccion = request.form("direccion") end if if request.Form("telefono") = "" Then erro = "si" errot = "si" else telefono = request.form("telefono") end if if request.Form("pais") = "" Then erro = "si" errop = "si" else pais = request.form("pais") end if if request.Form("provincia") = "" Then erro = "si" erropro = "si" else provincia = request.form("provincia") end if if request.Form("localidad") = "" Then erro = "si" errol = "si" else localidad = request.form("localidad") end if if request.Form("email") = "" Then erro = "si" errom = "si" else email = request.form("email") end if if request.Form("categoria") = "" Then erro = "si" erroc = "si" else categoria = request.form("categoria") end if if request.Form("clasificado") = "" Then erro = "si" errocla = "si" else clasificado = request.form("clasificado") end if if erro <> "si" Then fecha_ini = day(now) & "/" & month(now) & "/" & year(now) if month(now) = 10 Then aux = 1 aux2 = year(now) + 1 elseif month(now) = 11 Then aux = 2 aux2 = year(now) + 1 elseif month(now) = 12 Then aux = 3 aux2 = year(now) + 1 else aux = month(now) + 3 aux2 = year(now) end if sql = "SELECT * FROM clasificados" rst.Open sql,cnn,3,3 rst.AddNew rst("nombre") = nombre rst("dni") = dni rst("direccion") = direccion rst("telefono") = telefono rst("pais") = pais rst("provincia") = provincia rst("localidad") = localidad rst("email") = email rst("clasificado") = clasificado rst("fecha_ini") = fecha_ini rst("dia_venc") = day(now) rst("mes_venc") = aux rst("ano_venc") = aux2 rst("categoria") = categoria rst("habilitado") = True rst.update rst.Close set rst = Nothing cnn.close set cnn = nothing end if end if %> Clasificados Gratuitos CLASIFICADOS GRATUITOS


Publique su Clasificado en forma GRATUITA por 3 meses

Tu Clasificado Destacado por 6 meses

1 Profesionales de Internet
Páginas web, Diseño, hosting, mantenimiento, publicidad, email marketing, portal@intertournet.com.ar
2 SE BUSCA IDONEOS EN TURISMO, CAPACIDAD Y DESENVOLVIMIENTO, PARA EMPRESA NACIONAL, POSIBILIDADES DE TRASLADO, VIAJES, Tel.: 011-47852147
3 ALQUILO CABAÑA EN ZONA MONTAÑOSA, ENTORNO NATURAL, VERDE, TURISMO AVENTURA. 4 - PERSONAS, COCHERA, PISCINA. Tel.: 0261-4201371
   
1  Aviso con Logo o Fotografía, texto resaltado y tamaño mayor, en las primeras 5 posiciones: $ 150.- 
2  Aviso con Texto resaltado en las primeras 5 posiciones: $ 100.- 
3  Aviso en las primeras 10 posiciones con texto tamaño mayor: $ 50.-


NOTA:
NO se publicarán Clasificados con contenidos xenofobos, sexo, violencia o discriminatorios de cualquier tipo ni de MARKET 2000.

ENTRAR

« Publicidad - Privacidad - Aviso Legal - Titularidad - Servicios - Clasificados - Registrate - Trabaja con Intertournet® »

® © 2000-2004 by Intertournet®