1 reply to this topic

[Maxi]

Olá observem o seguinte código:

<% 
Set Conexao = CreateObject("ADODB.CONNECTION")
ConexaoAberta = FALSE
Sub AbreConexao()
	if not ConexaoAberta then
	Conexao.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","senha"
	ConexaoAberta = True
	end if
end sub
Sub FechaConexao()
	if ConexaoAberta then
	Conexao.close
	ConexaoAberta = False
	end if
end sub 
%>

<%

Dim objConn,objConn1,stringSQL1,stringSQL,strConnection1,strConnection,id,id1
idlogin = Request.QueryString("idlogin")
Set objConn =  Server.CreateObject("ADODB.Connection")
Set objRS =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","senha"
stringSQL = "SELECT * FROM chamados WHERE idlogin = "&idlogin
Set objRS = objConn.Execute(stringSQL)
%>

Bom.. nessa tabela 'chamados' é listado os pedidos, que possuem o mesmo número do "idlogin" Request.QueryString("idlogin") da página anterior .. nesta tabela tem a data certim no dia do cadastro, usei o seguinte código ao cadastrar para coletar a data:

<%
Dim hoje, dia, mes, ano
dia = Day(now())
mes = Month(now())
ano = Year(now())
hoje = dia & "/" & mes & "/" & ano
%>

agora eu quero que esses dados sejam excluídos em 30 dias...
como eu faço isso???
valew :ok:

[danilo.max]

Bom Broder.
Se você conhece o ASP bem a melhor forma seria estar colcaondo um GLOBAL.ASA na raiz do seu server e fazer com ele faça isso para você vou ar uma explicação para você de como funciona ai se vc tiver duvidas na hora de desenvolver o seu codigo poste ai ok.

Bom é o seguinte o GLOBAL.ASA é uma rquivo que fica na raiz do server ele é executado automaticamente sem ninguem mandar ele ser executado.

A melhor forma é fazer um código que deelete os dados que você quer e colocar esse codigo dentro do global.asa

Ai ele faria assim:

Você mdanria ele verificar se a data do DADO que etsá no seu banco de dados é maisor que 30 dias se for ele pega e exclui do banco de dados se não for ele permanece normal.

Se não der para ender faça uma busca no fórum por global.asa que você vai ver muitas coisas sobre esse assunto.

Se precisar de ajuda estamos ao.
OK