Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Link12

Excluir registro automaticamente com a data vencida

Por , em ASP Clássico

Recommended Posts

Link12    0

Link12
Postado

Fiz o seguinte codigo através do Dreamweaver, que exibe numa página mais ou menos assim:

 

DATA EVENTOS

 

DD/MM/AAAA 1 ENCONTRO VER

DD/MM/AAAA 2 ENCONTRO VER

 

Quando a pessoa clica em ver exibe uma página com todos os detalhes, até ai tudo bem, coloquei a data em orde decrescente.

 

Mas preciso de ajuda no seguinte gostaria de acrescentar algo que quando chegasse no dia do evento o registro fosse excluido automaticamente.

 

 

ai vai o codigo

 

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% session.LCID = 1046 %><!--#include file="../Connections/DADOS_IPVC.asp" --><%Dim EventosDim Eventos_numRowsSet Eventos = Server.CreateObject("ADODB.Recordset")Eventos.ActiveConnection = MM_DADOS_IPVC_STRINGEventos.Source = "SELECT * FROM EVENTOS ORDER BY DATA DESC"Eventos.CursorType = 0Eventos.CursorLocation = 2Eventos.LockType = 1Eventos.Open()Eventos_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0Eventos_numRows = Eventos_numRows + Repeat1__numRows%><%Dim MM_paramName %><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") ThenMM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryStringMM_nextItem = "&" & MM_item & "="If (InStr(1,MM_removeList,MM_nextItem,1) = 0) ThenMM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.FormMM_nextItem = "&" & MM_item & "="If (InStr(1,MM_removeList,MM_nextItem,1) = 0) ThenMM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") ThenMM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") ThenMM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem)If (firstItem <> "") ThenMM_joinChar = "&"ElseMM_joinChar = ""End IfEnd Function%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--.style4 {font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold; }.style5 {font-size: 12px;font-family: Geneva, Arial, Helvetica, sans-serif;}.style6 {color: #9A9A9A;font-weight: bold;}--></style></head><body><table width="468" border="0" cellspacing="0" cellpadding="0"><tr><td width="100"><div align="center" class="style4">DATA</div></td><td width="338"><div align="center" class="style4">EVENTO</div></td><td width="30"><div align="center" class="style4"></div></td></tr><tr><td colspan="3"><% While ((Repeat1__numRows <> 0) AND (NOT Eventos.EOF)) %><table width="468" border="0" cellspacing="2" cellpadding="2"><tr><td width="100" class="style5"><strong><%=(Eventos.Fields.Item("DATA").Value)%></strong></td><td width="338" class="style5 style6"><%=(Eventos.Fields.Item("EVENTO").Value)%></td><td width="30" class="style5"><div align="center"><strong><A HREF="Exibir.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "ID=" & Eventos.Fields.Item("ID").Value %>">VER</A></strong></div></td></tr></table><% Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1Eventos.MoveNext()Wend%><span class="style5"></span></td></tr></table></body></html><%Eventos.Close()Set Eventos = Nothing%>

Qualquer ajuda será muito bem aceita......

 

 

* Por favor utilize a TAG 

 (botão  do editor) quando for postar códigos, isso formata e facilita a leitura de seu código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado 

sql="delete * from tabela where data < datevalue('"&now()-1&"')"rs.open sql,conexao
eu uso assim para bd access.
No codigo acima onde eu colocaria esse script ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

Pessoal muito obrigado pela ajuda, estão sendo muit util para mim ..............

como o lucas tinha dito pode colocar no inicio da sua página

Amigo coloquei no inicio da página e apresentou o seguinte erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'rs'/EVENTOS/AGENDA/Default.asp, line 7

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

tenta assim:em asp limpo seria assim, mas eu tentei adaptar ai pro dream....

dim apagarapagar = "delete * from tabela where data < datevalue('"&now()-1&"')"eventos.execute(apagar)
O erro ainda persiste:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: ''/EVENTOS/AGENDA/Default.asp, line 8

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

desculpa cara.. nao é eventos..eventos é o nome do seu recordset... posta ae sua conexao pra eu ver o nome certo...

Creio que o nome da conexão seja essa MM_DADOS_IPVC_STRING, pois foi o que o dreamweaver forneceu como no codigo acima...Não sei se isso ajuda mas é o código que está na página de conexão.<%' FileName="Connection_ado_conn_string.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_DADOS_IPVC_STRINGMM_DADOS_IPVC_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\eventos\Basedados\dbipvc.mdb"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

isso..tenta assim:

dim apagarapagar = "delete * from tabela where data < datevalue('"&now()-1&"')"MM_DADOS_IPVC_STRING.execute(apagar)
qq cosia tu posta ae
lucasBR, desculpa te encomodar tanto mas é que preciso dessa força.mudei conforme você postou só que apresentou o seguinte erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'Driver={Microsoft Ac'/EVENTOS/AGENDA/Default.asp, line 10seondo a linha 10 essa: MM_DADOS_IPVC_STRING.execute(apagar)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

codigo feito no dream é f***..rsrs...bom vamos tentar assim:

dim apagarSet Apagar = Server.CreateObject("ADODB.Recordset")Apagar.ActiveConnection = MM_DADOS_IPVC_STRINGApagar.Source = "delete * from tabela where data < datevalue('"&now()-1&"')"Apagar.CursorType = 0apagar.CursorLocation = 2apagar.LockType = 1apagar.Open()apagar.Close()Set apagar = Nothing
você esta colocando o codigo abaixo do include de conexao né?
Sim estou colocando logo abaixo,Esse funcionou, ufa !!!, mas só passou a funcionar sem o seguinte trecho:apagar.Close()Set apagar = NothingEua havia colocado ele depois do codigo da mesma forma que aparece acima, não funcionou ai coloquei depois da tag </html> deu o mesmo erro ai resolvi tirar e funcionou, tem algum problema ?Mas fora isso tem umproblema mas esse eu acho que é facil, ele exclui todos os eventos anteriores mas não o dia anterior.exemplo hoje é dia 22então cadastrei quatros eventosnos dias:22/06/200621/06/200620/06/200619/06/2006ele excluiu dos dias 19 e 20 mas deixou o dia 21mas de resto está funcionando...Se for possivel me ajudar socmente nisso ficarei muito grato, mas mesmo assim já estou muito feliz com o resultado..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

troca essa linha:

Apagar.Source = "delete * from tabela where data < datevalue('"&now()-1&"')"
por essa:
Apagar.Source = "delete * from tabela where data < datevalue('"&now()&"')"
e veja se da certo.Bom, o lance q você tirou, fecha o recordset q criamos..o correto é destruir ele apos o uso..
Obrigado!! Agora ta funcionado que é uma beleza !!!!Valeu .................

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito