Current Directory:
                \\10.5.0.10\iis\Sites\goprint2.com\www\
            
            

                Contents:
                Directories:
App_Code
App_Data
App_GlobalResources
App_LocalResources
App_WebReferences
articles
aspnet_client
Bin
common
designer
dillners
images
img
includes
kwikkopy
order_centre
printthree
RadControls
update
WebServices
Files:
about_us.aspx | Download
about_us.aspx.vb | Download
contact_us.aspx | Download
contact_us.aspx.vb | Download
create_user.aspx | Download
create_user.aspx.vb | Download
Default.aspx | Download
Default.aspx.vb | Download
discount.aspx | Download
discount.aspx.vb | Download
domain_activation.aspx | Download
domain_activation.aspx.vb | Download
downloadPD.aspx | Download
downloadPD.aspx.vb | Download
download_error.aspx | Download
download_error.aspx.vb | Download
email_policy.aspx | Download
email_policy.aspx.vb | Download
error_page.aspx | Download
error_page.aspx.vb | Download
faq.aspx | Download
faq.aspx.vb | Download
favicon.ico | Download
FileNotFound.htm | Download
generate_print_driver_step1.aspx | Download
generate_print_driver_step1.aspx.vb | Download
generate_print_driver_step2.aspx | Download
generate_print_driver_step2.aspx.vb | Download
generate_print_driver_step3.aspx | Download
generate_print_driver_step3.aspx.vb | Download
Global.asax | Download
header.fla | Download
header.swf | Download
home.aspx | Download
home.aspx.vb | Download
jsincluding.js | Download
login.aspx | Download
login.aspx.vb | Download
marcelito.txt | Download
packages.aspx | Download
packages.aspx.vb | Download
password_recovery.aspx | Download
password_recovery.aspx.vb | Download
PrintIt.master | Download
PrintIt.master.vb | Download
PrintIt.sitemap | Download
PrintItEs.sitemap | Download
PrintItFr.sitemap | Download
PrintIt_CreateUser.master | Download
PrintIt_CreateUser.master.vb | Download
PrintIt_OutSide.master | Download
PrintIt_OutSide.master.vb | Download
privacy_policy.aspx | Download
privacy_policy.aspx.vb | Download
proba.aspx | Download
proba.aspx.vb | Download
robots.txt | Download
sample.txt | Download
show_sess_par.aspx | Download
show_sess_par.aspx.vb | Download
site_map.aspx | Download
site_map.aspx.vb | Download
site_map.xml | Download
sRacadUploader.jar | Download
sRacadUploader_last.jar | Download
terms_and_conditions.aspx | Download
terms_and_conditions.aspx.vb | Download
terms_of_service.aspx | Download
terms_of_service.aspx.vb | Download
test.txt | Download
testimonials.aspx | Download
testimonials.aspx.vb | Download
TextDraw.html | Download
udraw-designer-widescreen-ui.zip | Download
web.config | Download
websites-for-printers.aspx | Download
websites-for-printers.aspx.vb | Download

            
            

                File Preview:
                
Partial Class order_centre_customer_contact_info_carters
    Inherits System.Web.UI.Page

    Private _webAdapter As New WebWS()
    Private _goPrint2Adapter As New com.racadtech.services.GoPrint2Client()
    Private _customerDetails As New com.racadtech.services.CustomerDetailsCarters()

    Public ReadOnly Property WebAdapter() As WebWS
        Get
            Return _webAdapter
        End Get
    End Property
    Public ReadOnly Property GoPrint2Adapter() As com.racadtech.services.GoPrint2Client
        Get
            Return _goPrint2Adapter
        End Get
    End Property
    Public Property CustomerInformation() As com.racadtech.services.CustomerDetailsCarters
        Get
            Return _customerDetails
        End Get
        Set(ByVal value As com.racadtech.services.CustomerDetailsCarters)
            _customerDetails = value
        End Set
    End Property
    Public ReadOnly Property MasterKey() As String
        Get
            Return "877k31hg333-d03423332wq-312dkazlfs-433398j543"
        End Get
    End Property
    Public ReadOnly Property CurrentUser() As String
        Get
            Return System.Web.HttpContext.Current.User.Identity.Name.ToString()
        End Get
    End Property
    Public ReadOnly Property CurrentUserId() As String
        Get
            Return Membership.GetUser(CurrentUser).ProviderUserKey.ToString()
        End Get
    End Property
    Public ReadOnly Property CurrentCustomerId() As String
        Get
            Return WebAdapter.GetCustomerIdByUserId(CurrentUserId)
        End Get
    End Property
    Public ReadOnly Property CurrentActivationId() As String
        Get
            Return WebAdapter.GetActivationIdByStoreId(Session("StoreId")).ToString()
        End Get
    End Property

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

        'Dim _customerId As String = WebAdapter.GetCustomerIdByUserId(CurrentUserId)
        'Dim _customId As String = "27fa33e4-7a8d-4e63-9873-1d8e580240f9"
        If Not Page.IsPostBack Then
            If (Not System.Web.HttpContext.Current.User.Identity.IsAuthenticated()) Then
                Response.Redirect("~/order_centre/login.aspx")
            End If

            If (Not CurrentCustomerId Is Nothing) Then
                CustomerInformation = GoPrint2Adapter.GetCustomerDetailsCarters(MasterKey, CurrentCustomerId)
                FirstnameTextBox.Text = CustomerInformation.Firstname
                LastNameTextBox.Text = CustomerInformation.Lastname
                CompanyNameTextBox.Text = CustomerInformation.CompanyName
                AddressTextBox1.Text = CustomerInformation.Address1
                AddressTextBox2.Text = CustomerInformation.Address2
                CityTextBox.Text = CustomerInformation.City
                ZipTextBox.Text = CustomerInformation.PostalCode
                EmailTextBox.Text = CustomerInformation.Email
                PhoneTextBox.Text = CustomerInformation.Phone
                FaxTextBox.Text = CustomerInformation.Fax

                ' Carters Mod.
                HomeBranchDDL.ClearSelection()
                Try
                    HomeBranchDDL.SelectedValue = CustomerInformation.HomeBranch
                    CartersAccountNoTextBox.Text = CustomerInformation.CartersAccountNumber
                    SuburbTextBox.Text = CustomerInformation.Suburb
                Catch ex As Exception

                End Try
            End If
        End If
        'Response.Write(Session("StoreId"))
    End Sub

    'Protected Sub NextImageButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles NextImageButton.Click
    '    Dim _customerId As String = ""
    '    Dim _storeId As String = Session("StoreId")
    '    If (Not CurrentCustomerId Is Nothing) Then
    '        _customerId = CurrentCustomerId
    '    End If
    '    GoPrint2Adapter.UpdateCustomerDetailsWithUserId(_customerId, CurrentUserId, CurrentActivationId, _
    '                                                    FirstnameTextBox.Text, LastNameTextBox.Text, _
    '                                                    AddressTextBox1.Text, AddressTextBox2.Text, _
    '                                                    CityTextBox.Text, StateTextBox.Text, ZipTextBox.Text, _
    '                                                    CountryDropDownList.SelectedValue, PhoneTextBox.Text, _
    '                                                    FaxTextBox.Text, EmailTextBox.Text, MasterKey)

    '    Response.Redirect("job_options.aspx")
    'End Sub
    ' 
    ' 

    ' 

    Protected Sub NextButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NextButton.Click
        Dim _customerId As String = ""
        Dim _storeId As String = Session("StoreId")
        If (Not CurrentCustomerId Is Nothing) Then
            _customerId = CurrentCustomerId
        End If

        GoPrint2Adapter.UpdateCustomerDetailsWithUserId_Carters(HomeBranchDDL.SelectedValue.ToString(), CartersAccountNoTextBox.Text, SuburbTextBox.Text, _
                                                        _customerId, CurrentUserId, CurrentActivationId, _
                                                        FirstnameTextBox.Text, LastNameTextBox.Text, CompanyNameTextBox.Text, _
                                                        AddressTextBox1.Text, AddressTextBox2.Text, _
                                                        CityTextBox.Text, "", ZipTextBox.Text, _
                                                        "New Zealand", PhoneTextBox.Text, _
                                                        FaxTextBox.Text, EmailTextBox.Text, MasterKey)

        Response.Redirect("job_options.aspx")
    End Sub
End Class