Set fso = CreateObject("Scripting.FileSystemObject") Set htmfile = fso.OpenTextFile(Server.Mappath("a.htm"),1) Do While not htmfile.AtEndOfStream a = a&htmfile.ReadLine&VbCrLf Loop htmfile.Close Set htmfile = Nothing Set fso = Nothing
hmm... har lige tjekket, og det virker perfekt der :S
Hvad for en fejlmeddelse helt exact få du?
<%Set fso = CreateObject("Scripting.FileSystemObject") Set htmfile = fso.OpenTextFile(Server.Mappath("1databaseupgrades.html"),1) Do While not htmfile.AtEndOfStream a = a&htmfile.ReadLine&VbCrLf Loop htmfile.Close Set htmfile = Nothing Set fso = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.