Just nu i M3-nätverket
Gå till innehåll

Fel på kod


Starre

Rekommendera Poster

Hej!

 

Någon som vet varför jag får följande felmeddelande:

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/tester/hoppasdetfunkar.asp, line 13

 

("http://www.abc.com/Tester/textstream.txt")

^

när jag kör hoppasdetfunkar.asp:

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
	<title>Untitled</title>
</head>

<body>
<% 
Dim C, O
Set C = CreateObject("Scripting.FileSystemObject")
Set O = C.CreateTextFile_
("http://www.abc.com/Tester/textstream.txt") 

O.WriteLine "Rubrik 1"
O.WriteLine "Nyhet 1"
O.WriteLine "Författare 1" 

O.WriteLine "Rubrik 2"
O.WriteLine "Nyhet 2"
O.WriteLine "Författare 2" 

O.WriteLine "Rubrik 3"
O.WriteLine "Nyhet 3"
O.WriteLine "Författare 3" 

O.Close %> 

<% 
Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile_
("http://www.abc.com/Tester/textstream.txt") 

Do Until T.AtEndOfLine 

Rubrik = T.ReadLine
Text = T.ReadLine
Forfattare = T.ReadLine %> 

<B><%=Rubrik%></B><BR>
<%=Text%><BR>
<%=Forfattare%><P> 

<% Loop %>
<% T.Close %>


</body>
</html>

Poäng till den som hjälper mig!

 

Tack på förhand!

 

[inlägget ändrat 2002-08-31 12:46:27 av Starre]

[inlägget ändrat 2002-08-31 12:46:43 av Starre]

[inlägget ändrat 2002-08-31 12:47:24 av Starre]

Länk till kommentar
Dela på andra webbplatser

Hallå Starre!

_ skall inte vara med. _ betyder radbyte i IDG Webstudios ASP-kurs.

Raden skall alltså vara Set O = C.CreateTextFile("http://www.abc.com/Tester/textstream.txt")

Ligger textstream.txt på din egen server eller på en annan server?

I såfall kan du istället skriva Server.MapPath(textstream.txt). Korrekt rad blir alltså:

Set O = C.CreateTextFile(Server.MapPath("textstream.txt"))

Hela din kod blir alltså:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>
<% 
Dim C, O
Set C = CreateObject("Scripting.FileSystemObject")
Set O = C.CreateTextFile(Server.MapPath("textstream.txt"))

O.WriteLine "Rubrik 1"
O.WriteLine "Nyhet 1"
O.WriteLine "Författare 1" 

O.WriteLine "Rubrik 2"
O.WriteLine "Nyhet 2"
O.WriteLine "Författare 2" 

O.WriteLine "Rubrik 3"
O.WriteLine "Nyhet 3"
O.WriteLine "Författare 3" 

O.Close %> 

<% 
Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile(Server.MapPath("textstream.txt"))
Do Until T.AtEndOfLine 

Rubrik = T.ReadLine
Text = T.ReadLine
Forfattare = T.ReadLine %> 

<B><%=Rubrik%></B><BR>
<%=Text%><BR>
<%=Forfattare%><P> 

<% Loop %>
<% T.Close %>


</body>
</html>

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[inlägget ändrat 2002-08-31 14:21:48 av Kristianstad]

[inlägget ändrat 2002-08-31 14:39:04 av Kristianstad]

Länk till kommentar
Dela på andra webbplatser

Textstream.txt skall inte ligga där från början.

Jag testade koden på min egen webserver och koden skall fungera. Har du verkligen skrivit som det står nedan. Kopiera det!

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>
<% 
Dim C, O
Set C = CreateObject("Scripting.FileSystemObject")
Set O = C.CreateTextFile(Server.MapPath("textstream.txt"))

O.WriteLine "Rubrik 1"
O.WriteLine "Nyhet 1"
O.WriteLine "Författare 1" 

O.WriteLine "Rubrik 2"
O.WriteLine "Nyhet 2"
O.WriteLine "Författare 2" 

O.WriteLine "Rubrik 3"
O.WriteLine "Nyhet 3"
O.WriteLine "Författare 3" 

O.Close %> 

<% 
Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile(Server.MapPath("textstream.txt"))
Do Until T.AtEndOfLine 

Rubrik = T.ReadLine
Text = T.ReadLine
Forfattare = T.ReadLine %> 

<B><%=Rubrik%></B><BR>
<%=Text%><BR>
<%=Forfattare%><P> 

<% Loop %>
<% T.Close %>


</body>
</html>

Kör du det på din egen dator (IIS/PWS) eller använder du något webhotell på internet?

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...