Updated your DLL?

I have a post build script that copies the bin file and ascx file accross upon a successfull build, i've doubled checked this is happening, which it is.

Its strange that its not even adding the "Please Select" item....just getting an empty drop down list.

S

Everything ALWAYS has a reason so I doubt its "strange" :)  Can you post the full code behind and ascx page?

Option Strict Off

Option Explicit On

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'  Page Title       :               '

'  Description      : Quote form             ' 

'  Author           : Stephen Davidson                  '

'  Creation Date    : 16th August 2011                  '

'  Version No       : 1                                 '

'  Revision         :                                   '

'  Revision Reason  :                              '

'  Revisor          :                  '

'  Date Revised     :                         '  

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Imports System

Imports System.Web

Imports System.Data

Imports System.Data.SqlClient

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Imports System.Net

Imports System.IO

Imports System.Configuration

Imports System.Net.Mail

Imports Microsoft.VisualBasic

Imports createsend_dotnet

Imports System.Collections.Generic

Imports umbraco.BusinessLogic

Imports umbraco.cms.businesslogic.web

Imports umbraco.presentation.masterpages

Imports umbraco.ui

Imports umbraco.interfaces

Imports umbraco.cms

Imports umbraco.presentation.nodeFactory

Public Class gpQuote

    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(sender As Object, e As EventArgs)

        If Not IsPostBack Then

            cboService.Items.Add(New ListItem("--- Please Select ---", ""))

            cboService.Items.Add(New ListItem("Other (Please detail in aditional info)", "Other"))

            Dim specificNode = New Node(1788)

            'Get the children as a Nodes collection

            Dim childNodes = specificNode.Children

            For Each childNode As Node In childNodes

                cboService.Items.Add(New ListItem(childNode.Name, childNode.Id))

            Next

            Dim sb As New StringBuilder()

            ' Get current page

            Dim currentPage As Node = Node.GetCurrent()

            ' Loop through all the children of the currentpage

            For Each page As Node In currentPage.Children

                sb.Append([String].Format("{0} updated {1}<br />", page.Name, page.UpdateDate.ToShortDateString()))

            Next

            ' Update the literal

            nodeOutput.Text = sb.ToString()

        End If

    End Sub

    Protected Sub btnSubmit_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles btnSubmit.Click

        Dim Result As Integer = 0

        'Updates and existing member

        Dim ContactTel As String = ""

        Dim Newsletter As String = ""

        If txtTel.Text = "" Then

            ContactTel = "None"

        Else

            ContactTel = txtTel.Text

        End If

        'Now we need to deal with the user communication settings

        'Dim apiKey As String = "0bfc35e57fe9eac0ebc26a3d5d4b7e11"

        'Dim listID As String = "5e6fa1410939f9a9d70c6383a38ec41e"

        'Dim subscriber As New Subscriber(listID)

        'Dim resultMessage As String = ""

        'Dim Name As String

        'Name = txtFirstname.Text & " " & txtSurname.Text

        'lets deal with Campaign monitor

        'If chkNewsletter.Checked Then

        'Newsletter = "Yes"

        'Try

        'Dim newSubscriberID As String = Subscriber.Add(txtEmail.Text, Name, Nothing, False)

        'Console.WriteLine(newSubscriberID)

        'Catch ex As CreatesendException

        'Dim [error] As ErrorResult = DirectCast(ex.Data("ErrorResult"), ErrorResult)

        'Console.WriteLine([error].Code)

        'Console.WriteLine([error].Message)

        'handle some other failure

        'Catch ex As Exception

        'litInfoErrorMessage.Text = "<p>We cannot communicate with Campaign Monitor, you're newsletter subscription has NOT been captured.<p>"

        'End Try

        'Else

        'Newsletter = "No"

        'End If

        'Now lets update umbraco so the client can view the enquiries

        Try

            'Get the type you would like to use by its alias 

            'and the user who should be the creator of the document 

            Dim dt As DocumentType = DocumentType.GetByAlias("gpQuoteResponse")

            Dim author As User = User.GetUser(0)

            'create a document with a name, a type, an umbraco user, and the ID of the document's parent page. 

            'To create a document at the root of umbraco, use the id -1 

            Dim doc As Document = Document.MakeNew("Response - " & txtFirstname.Text & " " & txtSurname.Text, dt, author, 1480)

            'Now enter the stuff we need to capture

            ' the value is saved in the database instantly!

            doc.getProperty("name").Value = txtFirstname.Text & " " & txtSurname.Text

            doc.getProperty("enquiryDate").Value = DateTime.Now

            doc.getProperty("contactTel").Value = txtTel.Text

            doc.getProperty("emailAddress").Value = txtEmail.Text

            doc.getProperty("enquiryDetails").Value = txtDetails.Text

            'after creating the document, prepare it for publishing 

            doc.Save()

            'doc.Publish(author)

            'Tell umbraco to publish the document

            'umbraco.library.UpdateDocumentCache(doc.Id)

        Catch ex As Exception

            panFeedbackSucess.Visible = False

            panFeedback.Visible = False

            litInfoErrorMessage.Text = "<p>Sorry there was an error we did not manage to capture your details to the database but they may have been sent by email.</p>"

        End Try

        'Now go do the emails..

        Try

            Dim MyMailer As New MailMessage

            Dim MySmtpClient As New SmtpClient()

            MyMailer = New MailMessage

            MyMailer.From = New MailAddress("www.glasgowplastering.co.uk", "[email protected]")

            MyMailer.To.Add(New MailAddress("Mick Geraghty", "[email protected]"))

            MyMailer.CC.Add(New MailAddress("Mick Geraghty", "[email protected]"))

            MyMailer.Bcc.Add(New MailAddress("Stephen Davidson", "[email protected]"))

            MyMailer.Subject = "Site quote enquiry"

            MyMailer.Body = "A site user has submitted site quote enquiry." & vbCrLf & vbCr & _

            "The details are set out below:" & vbCrLf & vbCr & _

            "Name: " & txtFirstname.Text & " " & txtSurname.Text & vbCrLf & _

            "Email Address: " & txtEmail.Text & vbCrLf & vbCrLf & _

            "Telephone: " & txtTel.Text & vbCrLf & vbCrLf & _

            "Selected Service: " & cboService.SelectedItem.Text & vbCrLf & _

            "Comments: " & txtDetails.Text & vbCrLf & _

            "Thank you," & vbCrLf & vbCr & _

            "www.glasgowplastering.co.uk"

            MySmtpClient.Send(MyMailer)

            panFeedbackSucess.Visible = True

            panFeedback.Visible = False

        Catch

            panFeedbackSucess.Visible = False

            panFeedback.Visible = False

            litInfoErrorMessage.Text = "<p>Sorry there was an error with your mail to us, we were unable to send the comments.</p>"

        End Try

    End Sub

End Class

<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="gpQuote.ascx.vb" Inherits="umbracoUserControls.gpQuote" %>
<div class="contactformWrapper">
<div class="contactform">
<asp:Literal ID="litInfoErrorMessage" runat="server" />
<asp:Panel ID="panFeedback" runat="server">
<p>Enter you details for a free no obligation quote and click the submit button. Items marked with a * are required.</p>
          <p><label>* First name: </label>
          <asp:TextBox ID="txtFirstname" runat="server" />
              <br />
          <asp:RequiredFieldValidator ID="rfvFirstname" runat="server" ErrorMessage="Please enter your first name" ControlToValidate="txtFirstname" Display="Dynamic" ValidationGroup="feedback" />
          </p>
            <p><label>* Surname: </label>
            <asp:TextBox ID="txtSurname" runat="server" />
                <br />
            <asp:RequiredFieldValidator ID="rfvSurname" runat="server" ErrorMessage="Please enter your surname" ControlToValidate="txtSurname" Display="Dynamic" ValidationGroup="feedback" />
            </p>
            <p><label>Contact Tel: </label>
            <asp:TextBox ID="txtTel" runat="server" />
            </p>
            <p><label>* Email Address: </label>
            <asp:TextBox ID="txtEmail" runat="server" Columns="40" />
                <br />
            <asp:RequiredFieldValidator ID="rfvEmail" runat="server" ErrorMessage="Please enter your Email Address" ControlToValidate="txtEmail" Display="Dynamic" ValidationGroup="feedback" />
            </p>
            <p>
           <label>Output:</label> <asp:Literal ID="nodeOutput" runat="server"></asp:Literal>
            </p>
            <p>
                <label>* Service Required:</label>
                <asp:DropDownList ID="cboService" runat="server" />
            </p>
            <p><label>* Enquiry details: </label>
            <asp:TextBox ID="txtDetails" runat="server" TextMode="MultiLine" Columns="30" Height="70" />
                <br />
            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ErrorMessage="Please enter your enquiry details" ControlToValidate="txtDetails" Display="Dynamic" ValidationGroup="feedback" />

            </p>

  <p>
      <asp:ImageButton ID="btnSubmit" runat="server" ImageAlign="Right" ImageUrl="/images/btnSubmit.png" ValidationGroup="feedback" /></p>
  </asp:Panel>
  <asp:Panel ID="panFeedbackSucess" runat="server" Visible="false">
  <h2>Thank you for your enquiry</h2>
  <p>If you're enquiry requires a response we aim to respond within 72 hours.  If you're enquiry requires our attenion sooner why not get in touch using the contact telelphone number opposite.</p>
      <p>
          Many thanks,</p>
      <p>
          MG Plastering</p>
  </asp:Panel>
      <br class="clearfloat" />
    </div>
</div>

That actually looks fine to me.  Try a rebuild instead of a build... triple check the DLL is being updated.  Make sure you are referencing the right usercontrol in umbraco.  Create a new macro in umbraco and see if that helps.

thanks Skiltz, appreciate your input, I'll go try what you suggested and report back,

S

Ok checked everything and still the same result.  I'm now going to try and use one of the examples from umrbaco TV to see if that works....

S

it gets stranger...i managed to get the control working using the sample from umbraco but its in C#, so i converted the code to VB to let me do my other stuff and it no longer works....wtf am I doing wrong?

S

Jez...i got it at last...all to do with the page load...

i had

ProtectedSubPage_Load(sender AsObject, e AsEventArgs)

and  it should be

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

dont know how the feck i missed it but at least i've confirmed that I'm not officially mental!

Thanks again..

S

Hello,

Nice to see it's fixed. If you want to databind children here might be some useful examples: http://our.umbraco.org/wiki/reference/code-snippets/databind-node-children.

Jeroen

is working on a reply...