Solved

error Statement cannot appear within a method body. End of method assumed.

Posted on 2004-09-02
2
1,318 Views
Last Modified: 2008-02-26
i get this error anyone help?

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

Line 102:        #End ExternalSource
Line 103:        
Line 104:        Public Sub New()
Line 105:            MyBase.New
Line 106:            Dim dependencies As System.Collections.ArrayList


Source File: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\connectinglondon\61230c6b\282ab1ea\xgmmli6w.0.vb    Line: 104




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>

<script language="VB" runat="server">

             Sub Submit_Click(Sender as Object, e as EventArgs)
             Dim cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=" & server.mappath("cl.mdb"))
                    Dim cmd As New OleDb.OleDbCommand
              Dim dr As Oledb.OleDbDataReader
 
 
 
  cmd.Connection = cnn
       cmd.CommandText = "SELECT email, pass FROM members WHERE email = " & email.Value & "AND pass = " & pass.Value

        cnn.Open()
        dr = cmd.ExecuteReader(commandbehavior.closeconnection)
        While dr.read
        Session("email") = dr.item("email")
        Session("pass") = dr.item("pass")
        End While
If Not IsDBNull(Session("email")) Then
    'You found a match do whatever
   Else
    'you didn't find a match do whatever
End If
     
        cnn.Close()

        cmd.Dispose()
        cnn.Dispose()
 
 
 
 
     </script>


<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form runat="server">
<table width="auto"  border="0">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Email Address: </td>
    <td><input type="text" ID="email" value="" runat="server"></td>
  </tr>
  <tr>
    <td>Password:</td>
    <td><input type="password" ID="pass" value="" runat="server"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" OnServerClick="Submit_Click" value="Submit" runat="server"></td>
  </tr>
</table>



</form>


</body>
</html>
0
Comment
Question by:pigmentarts
2 Comments
 
LVL 9

Accepted Solution

by:
Thalox earned 500 total points
Comment Utility

I think between

...
 cnn.Dispose()
 
 and
 
   </script>

there should be an end (or endsub, I dont have much expirience in vb)

Thalox
0
 
LVL 12

Author Comment

by:pigmentarts
Comment Utility
thank you i have more error i need help with also will post when i get to them, thanks again
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Just a quick little trick I learned recently.  Now that I'm using jQuery with abandon in my asp.net applications, I have grown tired of the following syntax:      (CODE) I suppose it just offends my sense of decency to put inline VBScript on a…
IntroductionWhile developing web applications, a single page might contain many regions and each region might contain many number of controls with the capability to perform  postback. Many times you might need to perform some action on an ASP.NET po…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now