køre site

Står der flere linjer i filen, så man skal søge i den til man finder RunDate??

nej der er KUN éen linje i min text fil og det er linje 1.

Noget i denne stil:

newline = ""
set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(txtpath, 1, Create)
If not ObjNewFile.AtEndOfStream Then
  newline = ObjNewFile.ReadLine
end if
ObjNewFile.Close
dato = trim(replace(newline,"RunDate =",""))
if datediff("d",dato, date) <> 0 then
  'Gør ikke noget
else
  response.redirect("runconfig.asp")
end if

runconfig.asp
set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(txtpath, 1, Create)
ObjNewFile.WriteLine "RunDate = "& date()
ObjNewFile.Close

txtpath er stien til filen. F.eks:
txtpath = "c:\webmappe\dinfil.txt"

eller
txtpath = server.mapPath("dinfil.txt")

kan ikke få den til at opdaterer update.txt

**** global.asa ****
<script language="VBScript" Runat="server">

txtpath = "d:\web\localuser\xxxxxxxx\update.txt"
newline = ""
set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(txtpath, 1, Create)
If not ObjNewFile.AtEndOfStream Then
  newline = ObjNewFile.ReadLine
end if
ObjNewFile.Close
dato = trim(replace(newline,"RunDate =",""))
if datediff("d",dato, date) <> 0 then
  'Gør ikke noget
else
  response.redirect("update_main.asp")
end if

</script>


**** update_main.asp ****
kode bla. bla.
...
..
.
txtpath = "d:\web\localuser\xxxxxxxxx\update.txt"
set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(txtpath, 1, Create)
ObjNewFile.WriteLine "RunDate = "& date()
ObjNewFile.Close

Response.Redirect("http://www.xxxxxxxxx.dk")
%>


**** update.txt (første linje)****
RunDate = 04-04-2006

når lukker intet svar