ciao io sto usando questo script:
<%
numero = datediff("D",CDate("01/05/2005"),(day1-primog+x))
Apre file
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set InStream=FileObject.OpenTextFile(Server.MapPath("d ate.txt"),1,False,False)
Legge riga per riga
Do While not InStream.AtEndOfStream
testo2=InStream.ReadLine
if numero = testo2 then
response.write "c'è la data"
end if
Loop
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing
%>
Dentro al file date c'è scritto 13, quando day1-primog+x è uguale a 14/05/2005 la differenza delle dati è 13 quindi
numero=13
testo = 13
però il response.write non funzia. Qualcuno mi spiega perchè? Grazie
Rispondi quotando
