I have a basic web form site running. Nothing out of the ordinary. It is frequently crashing the application pool.
The error code I got from the logs is '8007006d'. Googling this does not come up with the usual bevy of results.... I do get a few people with a similar problem. Any the advise seems to be that the error is related to registry permissions.
Can anyone confirm / disconfirm this theory. That if I get error 8007006d it is definately a reg permissions problem?
Here is the code from my page. I'm not seeing anything that would cause a memory leak or make this happen. It is basically just one big insert command with many parameters?
Imports System.Web.Configuration
Imports System.Data.SqlClient
Imports System.Net.Mail
Imports System.IO
Imports System.Globalization
Partial Class _Default
Inherits System.Web.UI.Page
Public Sub WriteError(ByVal errorMessage As String)
Try
Dim path As String = "~/Error/" & DateTime.Today.ToString("dd-mm-yy") & ".txt"
If (Not File.Exists(System.Web.HttpContext.Current.Server.MapPath(path))) Then
File.Create(System.Web.HttpContext.Current.Server.MapPath(path)).Close()
End If
Using w As StreamWriter = File.AppendText(System.Web.HttpContext.Current.Server.MapPath(path))
w.WriteLine(Constants.vbCrLf & "Log Entry : ")
w.WriteLine("{0}", DateTime.Now.ToString(CultureInfo.InvariantCulture))
Dim err As String = "Error in: " & System.Web.HttpContext.Current.Request.Url.ToString() & ". Error Message:" & errorMessage
w.WriteLine(err)
w.WriteLine("__________________________")
w.Flush()
w.Close()
End Using
Catch ex As Exception
WriteError(ex.Message)
End Try
End Sub
Protected Sub Page_PreLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreLoad
otherlanguagespecify.Text = "Language: Speaking: Reading: Writing:"
'Show / hide 'other' panels
ProvincePanel.Visible = False
If Province.SelectedValue = "Other" Then
ProvincePanel.Visible = True
End If
languagespanel.Visible = False
If OtherLanguage.Checked Then
languagespanel.Visible = True
End If
End Sub
Protected Sub Submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim areasexpertise As String = String.Empty
Dim areasli As ListItem
Dim english As String = String.Empty
Dim connstring As String = WebConfigurationManager.ConnectionStrings("Str").ToString()
Dim c As SqlConnection = New SqlConnection(connstring)
Dim s As String = ("INSERT INTO [MBA_EOI]") & _
("([subdate],[surname], [name], [dob], [nationality], [postaladdress],") & _
("[province],[city], [postcode], [worktelephone],") & _
("[hometelephone], [mobile], [email],[fax], [institution1],") & _
("[institution2], [institution3], [institution4], [institutiondate1], [institutiondate2],") & _
("[institutiondate3], [institutiondate4],[institutionquals1], [institutionquals2], [institutionquals3],") & _
("[institutionquals4],[profdates1], [profdates2],") & _
("[profdates3], [profdates4], [profdates5], [profdates6], [profdates7], ") & _
("[profloc1], [profloc2], [profloc3], [profloc4], [profloc5],") & _
("[profloc6], [profloc7], [profcomp1], [profcomp2], [profcomp3],") & _
("[profcomp4], [profcomp5], [profcomp6], [profcomp7], [profpos1],") & _
("[profpos2], [profpos3], [profpos4], [profpos5], [profpos6],") & _
("[profpos7], [profdesc1], [profdesc2], [profdesc3], [profdesc4],") & _
("[profdesc5],[profdesc6],[profdesc7], [company1], [company2],") & _
("[company3], [company4], [company5], [nature1], [nature2],") & _
("[nature3], [nature4], [nature5], [workdate1], [workdate2],") & _
("[workdate3], [workdate4], [workdate5], [contactname1], [contactname2],") & _
("[contactname3], [contactname4], [contactname5], [wtelephone1], [wtelephone2],") & _
("[wtelephone3],[wtelephone4], [wtelephone5], [philosophy], [publications],") & _
("[english], [otherlanguage], [areasofexpertise], [otherareasofexpertise],") & _
("[assessortrue], [coordinatortrue], [facilitatortrue], [moderatortrue], [productdevelopertrue],") & _
("[projectmanagertrue], [assessorexp], [coordinatorexp], [facilitatorexp], [moderatorexp],") & _
("[productdeveloperexp], [projectmanagerexp], [assessorlvl], [coordinatorlvl], [facilitatorlvl],") & _
("[moderatorlvl], [productdeveloperlvl], [projectmanagerlvl], [assessorpref], [coordinatorpref],") & _
("[FacilitatorPref], [ModeratorPref], [ProductDeveloperPref], [ProjectManagerPref], [designation], [professortrue],") & _
("[professorlvl], [professorexp], [professorpref], [lecturertrue], [lecturerpref], [lecturerlvl], [lecturerexp], [affiliations], [educationmore], ") & _
("[wemail1], [wemail2], [wemail3], [wemail4], [wemail5])") & _
("VALUES") & _
("(@subdate, @surname, @name, @dob, @nationality, @postaladdress,") & _
("@province,@city, @postcode, @worktelephone,") & _
("@hometelephone, @mobile, @email, @fax, @inst1,") & _
("@inst2, @inst3, @inst4, @instdate1, @instdate2,") & _
("@instdate3, @instdate4, @instquals1, @instquals2, @instquals3,") & _
("@instquals4, @profdates1, @profdates2,") & _
("@profdates3, @profdates4, @profdates5, @profdates6, @profdates7,") & _
("@profloc1, @profloc2, @profloc3, @profloc4, @profloc5,") & _
("@profloc6, @profloc7, @profcomp1, @profcomp2, @profcomp3,") & _
("@profcomp4, @profcomp5, @profcomp6, @profcomp7, @profpos1,") & _
("@profpos1, @profpos1, @profpos4, @profpos5, @profpos6,") & _
("@profpos7, @profdesc1, @profdesc2, @profdesc3, @profdesc4,") & _
("@profdesc5, @profdesc6, @profdesc7, @company1, @company2,") & _
("@company3, @company4, @company5,@nature1, @nature2,") & _
("@nature3, @nature4, @nature5, @workdate1, @workdate2,") & _
("@workdate3, @workdate4, @workdate5, @contactname1, @contactname2,") & _
("@contactname3, @contactname4, @contactname5, @wtelephone1, @wtelephone2,") & _
("@wtelephone3,@wtelephone4, @wtelephone5, @philosophy, @publications,") & _
("@english, @otherlanguage, @areasofexpertise, @otherareasofexpertise,") & _
("@assessor, @coordinator, @facilitator, @moderator, @productdeveloper,") & _
("@projectmanager, @assessorexp, @coordinatorexp, @facilitatorexp, @moderatorexp,") & _
("@productdeveloperexp, @projectmanagerexp, @assessorlvl, @coordinatorlvl, @facilitatorlvl,") & _
("@moderatorlvl, @productdeveloperlvl, @projectmanagerlvl, @assessorpref, @coordinatorpref,") & _
("@facilitatorpref, @moderatorpref, @productdeveloperpref, @projectmanagerpref, @designation, @professor, @professorlvl, @professorexp, @professorpref,") & _
("@lecturer, @lecturerpref, @lecturerlvl, @lecturerexp, @affiliations, @educationmore, ") & _
("@wemail1, @wemail2, @wemail3, @wemail4, @wemail5)")
'Setup birthday
Dim birthdaystring As String = MonthBirth.SelectedValue.ToString & "/" & DayBirth.SelectedValue.ToString & "/" & YearBirth.SelectedValue.ToString
Dim birthday As DateTime = Convert.ToDateTime(birthdaystring)
Try
Dim x As New SqlCommand(s, c)
x.Parameters.AddWithValue("@subdate", DateTime.Now())
x.Parameters.AddWithValue("@surname", Surname.Text)
x.Parameters.AddWithValue("@name", Name.Text)
x.Parameters.AddWithValue("@dob", birthday)
x.Parameters.AddWithValue("@nationality", Nationality.Text)
x.Parameters.AddWithValue("@postaladdress", Postaladdress.Text)
x.Parameters.AddWithValue("@designation", Designation.SelectedItem.ToString)
'to control whether or not 'other' province is selected
If Province.SelectedValue = "Other" Then
x.Parameters.AddWithValue("@province", Otherprovince.Text)
Else
x.Parameters.AddWithValue("@province", Province.SelectedValue.ToString)
End If
x.Parameters.AddWithValue("@city", City.Text)
x.Parameters.AddWithValue("@postcode", Postcode.Text)
x.Parameters.AddWithValue("@worktelephone", Worktelephone.Text)
x.Parameters.AddWithValue("@hometelephone", Hometelephone.Text)
x.Parameters.AddWithValue("@mobile", Mobile.Text)
x.Parameters.AddWithValue("@email", Email.Text)
x.Parameters.AddWithValue("@fax", Fax.Text)
'Add education params to x command
x.Parameters.AddWithValue("@inst1", Institution1.Text)
x.Parameters.AddWithValue("@inst2", Institution2.Text)
x.Parameters.AddWithValue("@inst3", Institution3.Text)
x.Parameters.AddWithValue("@inst4", Institution4.Text)
x.Parameters.AddWithValue("@instdate1", Institutiondates1.Text)
x.Parameters.AddWithValue("@instdate2", Institutiondates2.Text)
x.Parameters.AddWithValue("@instdate3", Institutiondates3.Text)
x.Parameters.AddWithValue("@instdate4", Institutiondates4.Text)
x.Parameters.AddWithValue("@instquals1", Institution1quals.Text)
x.Parameters.AddWithValue("@instquals2", Institution2quals.Text)
x.Parameters.AddWithValue("@instquals3", Institution3quals.Text)
x.Parameters.AddWithValue("@instquals4", Institution4quals.Text)
'Add checkbox params to x command
Dim eli As ListItem
For Each eli In EnglishSkills.Items
If eli.Selected Then
english += eli.Text + " | "
End If
Next
x.Parameters.AddWithValue("@english", english)
For Each areasli In Expertiselist.Items
If areasli.Selected Then
areasexpertise += " ; " & areasli.Text
End If
Next
x.Parameters.AddWithValue("@areasofexpertise", areasexpertise)
If OtherLanguage.Checked.ToString Then
x.Parameters.AddWithValue("@otherlanguage", otherlanguagespecify.Text)
Else
x.Parameters.AddWithValue("@otherlanguage", DBNull.Value)
End If
'Add competencies params to x command
x.Parameters.AddWithValue("@assessor", AssessorTrue.Checked)
x.Parameters.AddWithValue("@coordinator", CoordinatorTrue.Checked)
x.Parameters.AddWithValue("@facilitator", FacilitatorTrue.Checked)
x.Parameters.AddWithValue("@moderator", ModeratorTrue.Checked)
x.Parameters.AddWithValue("@productdeveloper", ProductDeveloperTrue.Checked)
x.Parameters.AddWithValue("@projectmanager", ProjectManagerTrue.Checked)
x.Parameters.AddWithValue("@assessorexp", Assessorexp.Text)
x.Parameters.AddWithValue("@coordinatorexp", coordinatorexp.Text)
x.Parameters.AddWithValue("@facilitatorexp", facilitatorexp.Text)
x.Parameters.AddWithValue("@moderatorexp", moderatorexp.Text)
x.Parameters.AddWithValue("@productdeveloperexp", productdeveloperexp.Text)
x.Parameters.AddWithValue("@projectmanagerexp", projectmanagerexp.Text)
x.Parameters.AddWithValue("@assessorlvl", Assessorlevel.Text)
x.Parameters.AddWithValue("@coordinatorlvl", Coordinatorlevel.Text)
x.Parameters.AddWithValue("@facilitatorlvl", Facilitatorlevel.Text)
x.Parameters.AddWithValue("@moderatorlvl", Moderatorlevel.Text)
x.Parameters.AddWithValue("@productdeveloperlvl", Productdeveloperlevel.Text)
x.Parameters.AddWithValue("@projectmanagerlvl", Projectmanagerlevel.Text)
x.Parameters.AddWithValue("@assessorpref", AssessorPref.Text)
x.Parameters.AddWithValue("@coordinatorpref", CoordinatorPref.Checked)
x.Parameters.AddWithValue("@facilitatorpref", FacilitatorPref.Checked)
x.Parameters.AddWithValue("@moderatorpref", ModeratorPref.Checked)
x.Parameters.AddWithValue("@productdeveloperpref", ProductDeveloperPref.Checked)
x.Parameters.AddWithValue("@projectmanagerpref", ProjectManagerPref.Checked)
x.Parameters.AddWithValue("@professorpref", ProfessorPref.Checked)
x.Parameters.AddWithValue("@professorlvl", Professorlevel.Text)
x.Parameters.AddWithValue("@professor", ProfessorTrue.Checked)
x.Parameters.AddWithValue("@professorexp", professorexp.Text)
x.Parameters.AddWithValue("@lecturerpref", LecturerPref.Checked)
x.Parameters.AddWithValue("@lecturerlvl", Lecturerlevel.Text)
x.Parameters.AddWithValue("@lecturer", LecturerTrue.Checked)
x.Parameters.AddWithValue("@lecturerexp", lecturerexp.Text)
'Add professional experience params to x command
x.Parameters.AddWithValue("@profdates1", ProfDates1.Text)
x.Parameters.AddWithValue("@profdates2", ProfDates2.Text)
x.Parameters.AddWithValue("@profdates3", ProfDates3.Text)
x.Parameters.AddWithValue("@profdates4", ProfDates4.Text)
x.Parameters.AddWithValue("@profdates5", ProfDates5.Text)
x.Parameters.AddWithValue("@profdates6", ProfDates6.Text)
x.Parameters.AddWithValue("@profdates7", ProfDates7.Text)
x.Parameters.AddWithValue("@profloc1", ProfDates1.Text)
x.Parameters.AddWithValue("@profloc2", ProfDates2.Text)
x.Parameters.AddWithValue("@profloc3", ProfDates3.Text)
x.Parameters.AddWithValue("@profloc4", ProfDates4.Text)
x.Parameters.AddWithValue("@profloc5", ProfDates5.Text)
x.Parameters.AddWithValue("@profloc6", ProfDates6.Text)
x.Parameters.AddWithValue("@profloc7", ProfDates7.Text)
x.Parameters.AddWithValue("@profcomp1", ProfCompany1.Text)
x.Parameters.AddWithValue("@profcomp2", ProfCompany2.Text)
x.Parameters.AddWithValue("@profcomp3", ProfCompany3.Text)
x.Parameters.AddWithValue("@profcomp4", ProfCompany4.Text)
x.Parameters.AddWithValue("@profcomp5", ProfCompany5.Text)
x.Parameters.AddWithValue("@profcomp6", ProfCompany6.Text)
x.Parameters.AddWithValue("@profcomp7", ProfCompany7.Text)
x.Parameters.AddWithValue("@profpos1", Profpos1.Text)
x.Parameters.AddWithValue("@profpos2", Profpos2.Text)
x.Parameters.AddWithValue("@profpos3", Profpos3.Text)
x.Parameters.AddWithValue("@profpos4", Profpos4.Text)
x.Parameters.AddWithValue("@profpos5", Profpos5.Text)
x.Parameters.AddWithValue("@profpos6", Profpos6.Text)
x.Parameters.AddWithValue("@profpos7", Profpos7.Text)
x.Parameters.AddWithValue("@profdesc1", ProfDesc1.Text)
x.Parameters.AddWithValue("@profdesc2", ProfDesc2.Text)
x.Parameters.AddWithValue("@profdesc3", ProfDesc2.Text)
x.Parameters.AddWithValue("@profdesc4", ProfDesc4.Text)
x.Parameters.AddWithValue("@profdesc5", ProfDesc5.Text)
x.Parameters.AddWithValue("@profdesc6", ProfDesc6.Text)
x.Parameters.AddWithValue("@profdesc7", ProfDesc7.Text)
'Add references parameters to x command
x.Parameters.AddWithValue("@company1", company1.Text)
x.Parameters.AddWithValue("@company2", company2.Text)
x.Parameters.AddWithValue("@company3", company3.Text)
x.Parameters.AddWithValue("@company4", company4.Text)
x.Parameters.AddWithValue("@company5", company5.Text)
x.Parameters.AddWithValue("@nature1", natureofwork1.Text)
x.Parameters.AddWithValue("@nature2", natureofwork2.Text)
x.Parameters.AddWithValue("@nature3", natureofwork3.Text)
x.Parameters.AddWithValue("@nature4", natureofwork4.Text)
x.Parameters.AddWithValue("@nature5", natureofwork5.Text)
x.Parameters.AddWithValue("@workdate1", workdate1.Text)
x.Parameters.AddWithValue("@workdate2", workdate2.Text)
x.Parameters.AddWithValue("@workdate3", workdate3.Text)
x.Parameters.AddWithValue("@workdate4", workdate4.Text)
x.Parameters.AddWithValue("@workdate5", workdate5.Text)
x.Parameters.AddWithValue("@contactname1", ContactName1.Text)
x.Parameters.AddWithValue("@contactname2", ContactName2.Text)
x.Parameters.AddWithValue("@contactname3", ContactName3.Text)
x.Parameters.AddWithValue("@contactname4", ContactName4.Text)
x.Parameters.AddWithValue("@contactname5", ContactName5.Text)
x.Parameters.AddWithValue("@wtelephone1", Telephone1.Text)
x.Parameters.AddWithValue("@wtelephone2", Telephone2.Text)
x.Parameters.AddWithValue("@wtelephone3", Telephone3.Text)
x.Parameters.AddWithValue("@wtelephone4", Telephone4.Text)
x.Parameters.AddWithValue("@wtelephone5", Telephone5.Text)
x.Parameters.AddWithValue("@wemail1", Email1.Text)
x.Parameters.AddWithValue("@wemail2", Email2.Text)
x.Parameters.AddWithValue("@wemail3", Email3.Text)
x.Parameters.AddWithValue("@wemail4", Email4.Text)
x.Parameters.AddWithValue("@wemail5", Email5.Text)
'Add other areas of expertise parameter
x.Parameters.AddWithValue("@otherareasofexpertise", Otherareasofexpertise.Text)
'Add philosophy / pubs / affils comands to x command
x.Parameters.AddWithValue("@philosophy", learningphilosophy.Text)
x.Parameters.AddWithValue("@publications", publicationdetails.Text)
x.Parameters.AddWithValue("@affiliations", affiliations.Text)
x.Parameters.AddWithValue("@educationmore", educationmore.Text)
c.Open()
x.ExecuteNonQuery()
c.Close()
Catch ex As Exception
WriteError(ex.ToString)
End Try
'If everyone is happy, redirect to thank you page
If (Page.IsValid) Then
Response.Redirect("Thanks.aspx")
End If
End Sub
End Class
