Expected end of statement problem

[Graham James Campbell CS2000]

Having a nightmare problem with this and would appreciate any and all help.

The situation is I want to move from a webform and format the user
inputted text into some html I am storing in a template file on my server.

I have to admit to being entirley new to ASP and so much of what follows
is probably absolute nonsense.

<%
Option Explicit
Imports Microsoft.VisualBasic
Imports System
Imports System.IO

Class Test
Public Sub Main()
Try
' Create an instance of StreamReader to read from a ' file.
Dim sr, sw
Dim filename, openText, apologiesText, treasurerText,
secretaryText, commentsText

'creates the filename
theMonth = Request.Form("month")
theYear = Request.Form("year")
filename = ""&theMonth&""&theYear&".txt"

sr = New StreamReader("minutesTemplate.txt")
sw = New StreamWriter(filename)

Dim line As String

' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()

'this case statement is going to need some 'refining.
Select Case line
Case "---Opening Comments---"
openText=Request.Form("open")
sw.write(openText)
Case "---Apologies---"
apologiesText=Request.Form("apologies")
sw.write(apologiesText)
Case "---Treasurer Report---"
treasurerText=Request.Form("treasurer")
sw.write(treasurerText)
Case "---Secretary Report---"
secretaryText=Request.Form("secretary")
sw.write(secretaryText)
Case "---Additional Comments---"
commentsText=Request.Form("comments")
sw.write(commentsText)
Case else
break
End Select
Loop Until line Is Nothing
sr.Close()
sw.Close()
Catch E As Exception
' Let the user know what went wrong.
'Console.WriteLine("The file could not be read:")
'Console.WriteLine(E.Message)
End Try
End Sub
End Class
%>

The error message I'm getting at the moment is

Microsoft VBScript compilation error '800a0401'

Expected end of statement

sr = New StreamReader("minutesTemplate.txt")
---------------------^

As before, any help would be great!

Thanks

Graham

[Bob Barrows]

I'm not clear if this is a .NET question ("webforms", "StreamReader") or
not. If you are using .NET, then you need to post this to a dotnet newsgroup
as this group is focussed on classic ASP. I suggest
microsoft.public.dotnet.framework.aspnet
HTH,
Bob Barrows

[Ray at]

http://www.aspfaq.com/5002

Ray at work

"Graham James Campbell CS2000" <gj*************@cis.strath.ac.uk> wrote in
message news:3f********@nntphost.cis.strath.ac.uk...

Having a nightmare problem with this and would appreciate any and all help.
<%
Imports Microsoft.VisualBasic
Imports System
Imports System.IO

[Atrax]

one of the .aspnet groups wuld be more appropriate. Off the top of my
head, though, as a C# (not VB) user, don't you have to use the SET
keyword here?

________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonk...trax.RichEdit/

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Atrax]

one of the .aspnet groups wuld be more appropriate. Off the top of my
head, though, as a C# (not VB) user, don't you have to use the SET
keyword here?

hang on, I take that back. the docs say :

Dim sr As StreamReader = New StreamReader(path)


________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonk...trax.RichEdit/

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[msnews.microsoft.com]

First, you need some spaces around your ampersands:

filename = ""&theMonth&""&theYear&".txt"

should be:

filename = "" & theMonth & "" & theYear & ".txt"

Second, are you using ASP.NET or ASP? This:

sr = New StreamReader("minutesTemplate.txt")
appears to be VB.NET. If so, you should post to
microsoft.public.dotnet.aspnet group. If ASP, you cannot use Streamreaders
(1) and the syntax is wrong if you could:

Set sr = Server.CreateObject("StreamReader")

This is correct syntax, but there is no StreamReader in traditional ASP.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

************************************************** ********************
Think Outside the Box!
************************************************** ********************
"Graham James Campbell CS2000" <gj*************@cis.strath.ac.uk> wrote in
message news:3f********@nntphost.cis.strath.ac.uk... Having a nightmare problem with this and would appreciate any and all help.
The situation is I want to move from a webform and format the user
inputted text into some html I am storing in a template file on my server.

I have to admit to being entirley new to ASP and so much of what follows
is probably absolute nonsense.

<%
Option Explicit
Imports Microsoft.VisualBasic
Imports System
Imports System.IO

Class Test
Public Sub Main()
Try
' Create an instance of StreamReader to read from a ' file.
Dim sr, sw
Dim filename, openText, apologiesText, treasurerText,
secretaryText, commentsText

'creates the filename
theMonth = Request.Form("month")
theYear = Request.Form("year")
filename = ""&theMonth&""&theYear&".txt"

sr = New StreamReader("minutesTemplate.txt")
sw = New StreamWriter(filename)

Dim line As String

' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()

'this case statement is going to need some 'refining.
Select Case line
Case "---Opening Comments---"
openText=Request.Form("open")
sw.write(openText)
Case "---Apologies---"
apologiesText=Request.Form("apologies")
sw.write(apologiesText)
Case "---Treasurer Report---"
treasurerText=Request.Form("treasurer")
sw.write(treasurerText)
Case "---Secretary Report---"
secretaryText=Request.Form("secretary")
sw.write(secretaryText)
Case "---Additional Comments---"
commentsText=Request.Form("comments")
sw.write(commentsText)
Case else
break
End Select
Loop Until line Is Nothing
sr.Close()
sw.Close()
Catch E As Exception
' Let the user know what went wrong.
'Console.WriteLine("The file could not be read:")
'Console.WriteLine(E.Message)
End Try
End Sub
End Class
%>

The error message I'm getting at the moment is

Microsoft VBScript compilation error '800a0401'

Expected end of statement

sr = New StreamReader("minutesTemplate.txt")
---------------------^

As before, any help would be great!

Thanks

Graham

[msnews.microsoft.com]

It depends on whether it was dimensioned or not. Both of these are
equivalent:

Dim sr As StreamReader = New StreamReader(path)

Dim sr As StreamReader
sr = New StreamReader(path)

In C# (in case he wants to go to a real language *duck* only kidding, I code
both):

StreamReader sr = new StreamReader(path);

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

************************************************** ********************
Think Outside the Box!
************************************************** ********************
"Atrax" <at***@dontspamatrax.co.uk> wrote in message
news:OT**************@tk2msftngp13.phx.gbl...

one of the .aspnet groups wuld be more appropriate. Off the top of my
head, though, as a C# (not VB) user, don't you have to use the SET
keyword here?

hang on, I take that back. the docs say :

Dim sr As StreamReader = New StreamReader(path)


________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonk...trax.RichEdit/

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Graham Campbell]

Dang. Thought I might be in the wrong NG. Thanks for putting me right! :)

Graham

Graham James Campbell CS2000 wrote:
[snip]

Thanks

Graham

--
"This is my country, the land that begat me. These windy spaces, are
surely my own."
- Alexander Gray