underlig Type mismatch: string: fejl

Hvad er indholdet af variablen thedate?

<%
Dim objFSO
Dim objStream
Dim intLine
Dim thedate

Const ForReading = 1
Const ForWriting = 2

Set objFSO=Server.CreateObject("Scripting.FileSystemObject")

Set objStream=objFSO.OpenTextFile(Server.MapPath("update.txt"), ForReading)
thedate = Trim(Replace(intLine, "RunDate = ", ""))
thisdate = DateDiff("d", CDate(thedate), Date)
if thisdate = 0 then
  response.redirect("www.eksperten.dk")
else
  Response.Write("test")
end if
objStream.Close

Set objStream=Nothing
Set objFSO=Nothing
%>

Prøv sådan...

//>Rune

Det vile givetvis ikke fungere, hvis thedate ikke indeholder en valid dato (hvilket noget kunne tyde på), men det skal jo ikke afholde dig fra at prøve...

Jeg ville mene at du skulle lave et check på om thedate rent faktisk indeholder en dato inden du bruger den og hvis ikke den gør det, så melde en fejl.

<%
Dim objFSO
Dim objStream
Dim intLine
Dim thedate

Const ForReading = 1
Const ForWriting = 2

Set objFSO=Server.CreateObject("Scripting.FileSystemObject")

Set objStream=objFSO.OpenTextFile(Server.MapPath("update.txt"), ForReading)
thedate = Trim(Replace(intLine, "RunDate = ", ""))
if isdate(thedate) then
  thisdate = DateDiff("d", thedate, Date)
  if thisdate = 0 then
    response.redirect("www.eksperten.dk")
  else
    Response.Write("test")
  end if
else
  Response.Write("RunDate er ikke en gyldig dato. Check om den er specificeret korrekt")
end if
objStream.Close

Set objStream=Nothing
Set objFSO=Nothing
%>