Solved

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

Posted on 2004-09-02
2
1,324 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

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…
Introduction This article shows how to use the open source plupload control to upload multiple images. The images are resized on the client side before uploading and the upload is done in chunks. Background I had to provide a way for user…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

864 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

24 Experts available now in Live!

Get 1:1 Help Now