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]

[url]http://www.aspfaq.com/5002[/url]

Ray at work

"Graham James Campbell CS2000" <gjcampbe+usenet@cis.strath.ac.uk> wrote in
message news:3f7d6a83$1@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
[url]http://rtfm.atrax.co.uk/[/url]

newsflash : Atrax.Richedit 1.0 now released.
[url]http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/[/url]

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
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
[url]http://rtfm.atrax.co.uk/[/url]

newsflash : Atrax.Richedit 1.0 now released.
[url]http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/[/url]

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
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" <gjcampbe+usenet@cis.strath.ac.uk> wrote in
message news:3f7d6a83$1@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" <atrax@dontspamatrax.co.uk> wrote in message
news:OTeUuzbiDHA.3832@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
> [url]http://rtfm.atrax.co.uk/[/url]
>
> newsflash : Atrax.Richedit 1.0 now released.
> [url]http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/[/url]
>
> *** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
> 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