Neebie - Compiler Error

[Clive-S]

Hi,

I am trying to learn ASp.Net.

My page, connecting to SQL Server (ECTSERVER\SQLEXPRESS) has the
following
line continuation error?????

I do not understand the error & solution. Any help is appreciated.

Does anyone know a link to Server-Side Javascript examples????

Thanks

Clive

Compiler Error Message: BC32035: Attribute specifier is not a complete
statement.
Use a line continuation to apply the attribute to the following
statement.

Source Error:

Line 9:
Line 10: <WebService(Namespace := "http://localhost/coursework/")>
_
Line 11:
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
Line 12: 'Public Class DBConnect
Line 13: 'Inherits System.Web.Services.WebService

Source File: D:\wwwroot\coursework\DBConnect.asmx Line: 11


'********************************************************************
<%@ WebService Language="VB" Class="DBConnect" %>

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Services

Public Class DBConnect : Inherits WebService

<WebService(Namespace := "http://localhost/coursework/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
'Public Class DBConnect
'Inherits System.Web.Services.WebService

'<WebMethod()> _
'Public Function HelloWorld() As String
' Return "Hello World"
'End Function

'*** <WebMethod()>
Private Function GetDataSet(ByVal strSQl As String) As DataSet

'** Dim MyConnection As SqlConnection = New
SqlConnection("server=(local)
\NetSDK;database=pubs;Trusted_Connection=yes")
'** Dim MyCommand1 As SqlDataAdapter = New
SqlDataAdapter("select * from Authors", MyConnection)
'** Dim MyCommand2 As SqlDataAdapter = New
SqlDataAdapter("select * from Titles", MyConnection)

Dim myConnection As New SqlConnection("Data Source=ECTSERVER
\SQLEXPRESS; Initial Catalog=lab; Integrated Security=True")
Dim myCommand As New SqlCommand(strSQl, myConnection)
myConnection.Open()

Dim myDataAdapter As New SqlDataAdapter()
myDataAdapter.SelectCommand = myCommand

'** Dim DS As New DataSet
'** MyCommand1.Fill(DS, "Authors")
'** MyCommand2.Fill(DS, "Titles")

Dim myDataSet As New DataSet
myDataAdapter.Fill(myDataSet)
myConnection.Close()

'Return DS
Return myDataSet

End Function

<WebMethod()> Public Function GetTelDir() As DataSet
Return GetDataSet("SELECT LastName + ', ' FirstName AS Name,
Extension FROM Employees ORDER BY Name ASC")
End Function

End Class