Solved

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

Posted on 2004-09-02
2
1,329 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
ID: 11961768

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
ID: 11961796
thank you i have more error i need help with also will post when i get to them, thanks again
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

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…
ASP.Net to Oracle Connectivity Recently I had to develop an ASP.NET application connecting to an Oracle database.As I am doing it first time ,I had to solve several problems. This article will help to such developers  to develop an ASP.NET client…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

773 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