Just nu i M3-nätverket
Jump to content

Fel på kod


Starre

Recommended Posts

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]

Link to comment
Share on other sites

Kristianstad

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]

Link to comment
Share on other sites

Kristianstad

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...