2 replies to this topic

[DayWalker]

boa tarde pessoar

estou com o seguinte probleminha. fiz uma rotina onde gravo a data atual em um arquivo txt.. mas preciso conferir se a data escrita la.. é igual a de hoje.. se for igual nao faço nada.. se for diferente ele reescreve de novo a data.. e adiciona um arquivo include .. veja o codigo

<%
arquivo = server.mappath("grava_data.txt")
set objfso = server.createobject("scripting.filesystemobject")


  set objfile = objfso.opentextfile(arquivo, 2, false)
  'if objfile <> date then
  objfile.write date
  objfile.close
  'Response.Write "<!--#include file='teste.asp'-->"
  'End if
  
%>

como pode ver nas linhas com comentario..tentei fazer.. mas nao consigo.. nao tem muito destresa pro trabalho.. alguem pode me ajudar..

Edição feita por: DayWalker, 07/12/2005, 17:26.

[Agente Linhares]

condição normal.

data = aqui vc puxa do .txt após ter feito a rotina fso pra ler ele
If Data = Date Then
' data igual a data d hj
Else
 data diferente da data d hj
End If

[DayWalker]

fiz assim..

<%
Dim data, objfile

arquivo = server.mappath("grava_data.txt")
set objfso = server.createobject("scripting.filesystemobject")

 set objfile = objfso.opentextfile(arquivo, 2, false)
 data = objfile.line
 if date <> data then
 objfile.write date
 Response.Write "<!--#include file='sucesso.asp'-->"
 objfile.close
 Else
 Response.Write "Data igual a de hoje!"
 End if
%>

so que nao esta funcionado.. o que estou fazendo de errado.. ?