Solved

ASP/VB.NET Sub Routine running twice

Posted on 2009-04-01
6
574 Views
Last Modified: 2012-05-06
Can anyone tell me why my sub routine would all of a sudden start running 2 times?

Protected Sub Submitbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submitbtn.Click

        Dim con As New System.Data.OleDb.OleDbConnection

        Dim myPath As String

        Dim Today

        Dim TodayDate
 

        Today = Now()

        TodayDate = FormatDateTime(Today, 2)
 

        myPath = Server.MapPath("App_Data/Visions_DB.mdb")

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & myPath & ";"
 

        Dim insCmd As New System.Data.OleDb.OleDbCommand
 

        insCmd.CommandText = "insert into Data (MDY,Employee,Department,Vision_Type,Critical_Success,Present_Method,Proposed_Method,Ats_Number,Drawing_Number,MO_Number,Status,Add_Emp1,Add_Emp2,Add_Emp3,Add_Emp4,Add_Emp5,Add_Emp6,Add_Emp7,Add_Emp8) values('" & _

        TodayDate & "','" & Replace(txtName.SelectedValue, "'", "''") & "','" & Replace(txtdept.Text, "'", "''") & "','" & ddtype.SelectedValue & "','" & ddfactor.SelectedValue & "','" & _

        Replace(txtapres.Text, "'", "''") & "','" & Replace(txtapros.Text, "'", "''") & "','" & Replace(txtats.Text, "'", "''") & "', '" & Replace(txtdrawing.Text, "'", "''") & "','" & _

        Replace(txtmo.Text, "'", "''") & "','" & Replace(txtstatus.Text, "'", "''") & "','" & Replace(emp1.SelectedValue, "'", "''") & "','" & Replace(emp2.SelectedValue, "'", "''") & "','" & Replace(emp3.SelectedValue, "'", "''") & "','" _

        & Replace(emp4.SelectedValue, "'", "''") & "','" & Replace(emp5.SelectedValue, "'", "''") & "','" & Replace(emp6.SelectedValue, "'", "''") & "','" & Replace(emp7.SelectedValue, "'", "''") & "','" & Replace(emp8.SelectedValue, "'", "''") & "')"
 

        insCmd.Connection = con
 

        Dim idCmd As New System.Data.OleDb.OleDbCommand

        'Captures Vision Number

        idCmd.CommandText = "select @@IDENTITY"
 

        idCmd.Connection = con

        con.Open()

        insCmd.ExecuteNonQuery()

        Dim newid As Integer = idCmd.ExecuteScalar()

        con.Close()
 

        Response.Write("<div id=""hideprint"">")

        Response.Write("<h1><font color = Red>Your Vision form has been successfully submitted!!</font></h1>")

        Response.Write("<h2><font color = Red>Your Vision number is " & (newid.ToString) & " </font></h2>")

        Response.Write("<h2><font color = Red>Please print this page for your records.</font></h2>")

        Response.Write("</div>")
 

        'sets Vision # value after clicking submit

        lblvisnum.Text = newid.ToString
 

        'Makes print and close button visible after clicking submit

        btnprint.Visible = True

        btnclose.Visible = True

    End Sub

Open in new window

0
Comment
Question by:ITHelper80
  • 3
  • 2
6 Comments
 
LVL 15

Expert Comment

by:oobayly
ID: 24039365
The event handler's running twice? Have you manually hooked the event handler as well as using the designer?

ie. does your code contain this:
AddHandler Submitbtn.Click, AddressOf Submitbtn_Click
0
 
LVL 8

Expert Comment

by:JRockFL
ID: 24039386
You can add a break point at Protected Sub to verify that it is actually be hit twice.
Then you can step through the code and see why. You can also check the call stack to what called that method.

Also,
idCmd.CommandText = "select @@IDENTITY"
@@IDENTITY is a SQL Server variable.
In access, you would need to use MAX() or TOP() ?
0
 
LVL 6

Author Comment

by:ITHelper80
ID: 24039391
No it doesnt...Ive stepped through the code and once it hits the end sub command it starts over and I dont see anything that is causing it.
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 8

Accepted Solution

by:
JRockFL earned 500 total points
ID: 24039454
Another option would be to copy all that code to notepage. Delete the button.
Add a new button, double click on it and paste back the code.
0
 
LVL 6

Author Comment

by:ITHelper80
ID: 24039516
Thanks JRockFL that did it.

I wonder why it did that....very frustrating.
0
 
LVL 8

Expert Comment

by:JRockFL
ID: 24039550
No problem. I had to do that when converted a 1.1 web site to 2.0
None of the button click events were hooked up.

I found that recreating it solved the problem.
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

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…
Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
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.
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

747 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

11 Experts available now in Live!

Get 1:1 Help Now