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:
                Imports com.racadtech.Framework.Database
Imports com.racadtech.Framework.Web.Security
Imports com.racadtech.services

Partial Class proba
    Inherits System.Web.UI.Page
    Dim _ws As WebWS = New WebWS()

    Private _webUserControl As New com.racadtech.Framework.Web.Security.UserControl()
    Private _goPrint2Adapter As New com.racadtech.services.GoPrint2Client()
    Private _customerDetails As New com.racadtech.services.CustomerDetails()
    Private _webAdapter As New WebWS()


    Public goPrint2_ConnectionString As String = ConfigurationManager.ConnectionStrings("PrintItConnectionString").ConnectionString
    Public epowerSDC_ConnectionString As String = ConfigurationManager.ConnectionStrings("EpowerSDCConnectionString").ConnectionString

    Public ReadOnly Property MembershipProviderInstance() As MembershipProvider
        Get
            Return Membership.Provider
        End Get
    End Property

    Public ReadOnly Property RoleProviderInstance() As RoleProvider
        Get
            Return Roles.Provider
        End Get
    End Property

    Public ReadOnly Property WebUserControl() As com.racadtech.Framework.Web.Security.UserControl
        Get
            Return _webUserControl
        End Get
    End Property

    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.CustomerDetails
        Get
            Return _customerDetails
        End Get
        Set(ByVal value As com.racadtech.services.CustomerDetails)
            _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 Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim _allUsers As MembershipUserCollection = Membership.GetAllUsers
        'Dim _curUserProfile As ProfileCommon
        'Dim _max = 0
        'For Each _existenUser As MembershipUser In _allUsers
        '    _curUserProfile = Profile.GetProfile(_existenUser.UserName)
        '    If _curUserProfile.PaymentTypeId <> 2 Then _curUserProfile.PaymentTypeId = 1
        '    _curUserProfile.Save()
        'Next

        '---------------------------'
        '---------------------------'

        'Dim _user As MembershipUser = Membership.GetUser("amram")
        'Dim _curUserProfile As ProfileCommon = Profile.GetProfile(_user.UserName)
        '_curUserProfile.StoreId = 601
        '_curUserProfile.Save()


        '---------------------------'
        '---------------------------'

        'Dim _ws As WebWS = New WebWS()
        'Dim _string As String = "871,873,872,874,875,876,877,878,879,880,881,882,883,884,885,886,887,888,889,890,891,892,893,894,895,896,897,898,899,900,901,902,903,904,905,906,907,908,909,910,911,912,913,914,915,917,918,919,920,921,922,923,924,925,926,927,928,929,930,931,932,933,934,935,936,937,938,939,940,941,942"
        'Dim _arr() As String = _string.Split(",")

        'For i As Integer = 0 To _arr.Length - 1
        '    _ws.InsertSectionForStore(_arr(i), 1, False)
        '    '_ws.InsertSectionForStore(_arr(i), 2, False)
        '    '_ws.InsertSectionForStore(_arr(i), 3, False)
        '    '_ws.InsertSectionForStore(_arr(i), 4, False)
        '    '_ws.InsertSectionForStore(_arr(i), 5, False)
        'Next

        '---------------------------'
        '---------------------------'


        'Dim _allUsers As MembershipUserCollection = Membership.GetAllUsers
        'Dim _curUserProfile As ProfileCommon
        'For Each _user As MembershipUser In _allUsers
        '    'If _ws.GetCreditCardInformationByUserId(_user.ProviderUserKey).Tables(0).Rows.Count = 0 Then
        '    '    _curUserProfile = Profile.GetProfile(_user.UserName)
        '    '    _ws.InsertStartBillingDate(_user.ProviderUserKey, _curUserProfile.StartBillingDate, False)
        '    'End If
        '    _curUserProfile = Profile.GetProfile(_user.UserName)
        '    If _curUserProfile.StoreId = 871 Then
        '        Response.Write("UserName : " & _curUserProfile.UserName & "<br/>")
        '        Response.Write("FName : " & _curUserProfile.FName & "<br/>")
        '        Response.Write("LName : " & _curUserProfile.LName & "<br/>")
        '        Response.Write("StoreId : " & _curUserProfile.StoreId & "<br/>")
        '        Response.Write("StoreName : " & _curUserProfile.StoreName & "<br/>")
        '        Response.Write("Address : " & _curUserProfile.Address & "<br/>")
        '        Response.Write("Address1 : " & _curUserProfile.Address1 & "<br/>")
        '        Response.Write("City : " & _curUserProfile.City & "<br/>")
        '        Response.Write("Country : " & _curUserProfile.Country & "<br/>")
        '        Response.Write("Phone : " & _curUserProfile.Zip & "<br/>")
        '        Response.Write("Fax : " & _curUserProfile.Fax & "<br/>")
        '        Response.Write("PackageId : " & _curUserProfile.PackageId & "<br/>")
        '        Response.Write("StartBillingDate : " & _curUserProfile.StartBillingDate & "<br/>")

        '    End If
        'Next


        'Dim _allUsers As MembershipUserCollection = Membership.GetAllUsers
        'Dim _curUserProfile As ProfileCommon
        'Dim _max As Integer = 0
        'Dim _string As String = "871,873,872,874,875,876,877,878,879,880,881,882,883,884,885,886,887,888,889,890,891,892,893,894,895,896,897,898,899,900,901,902,903,904,905,906,907,908,909,910,911,912,913,914,915,917,918,919,920,921,922,923,924,925,926,927,928,929,930,931,932,933,934,935,936,937,938,939,940,941,942"
        ''Dim _string As String = "871"
        'Dim _arr() As String = _string.Split(",")
        'For Each _existenUser As MembershipUser In _allUsers
        '    _curUserProfile = Profile.GetProfile(_existenUser.UserName)
        '    For i As Integer = 0 To _arr.Length - 1
        '        If _curUserProfile.StoreId = _arr(i) Then
        '            _curUserProfile.ExpirationDate = CType((Now().Month.ToString() & "/" & Now().Day.ToString() & "/" & (Convert.ToInt32(Now().Year) + 3).ToString()), Date)
        '            Exit For
        '        End If
        '    Next
        '    _curUserProfile.Save()
        'Next

        'Dim _ds As System.Data.DataSet = _ws.GetAllFiles()

        'For i As Integer = 0 To _ds.Tables(0).Rows.Count - 1
        '    If _ds.Tables(0).Rows(i).Item("Filename") = "filename1" And _ds.Tables(0).Rows(i).Item("Filesize") = 302131 Then
        '        _ws.GetValue("Delete From PI_Job_Information Where JobId=" & _ds.Tables(0).Rows(i).Item("JobId"))
        '        _ws.GetValue("Delete From PI_Job_Files Where JobId=" & _ds.Tables(0).Rows(i).Item("JobId"))
        '    End If
        'Next

        'Dim _activationKey As String = (New RandomKeyGenerator()).Generate("abcdefghijklmnopqrstuvwxyz", "0123456789", 15)

        'Response.Write(Format(Now.AddDays(30), "dd/MMM/yyyy"))

        Dim _label As Label = CType(Me.FindControl("Label1"), Label)
        _label.Text = ""

        Dim _textBox As TextBox = CType(Me.FindControl("TextBox1"), TextBox)
        If _textBox.Text <> "" Then
            Dim PI_StoreId As Integer = _textBox.Text
            Session("StoreId") = PI_StoreId
            Dim SDC_StoreId As Integer = GetValue("SELECT SDC_StoreId FROM [PrintIt].[dbo].[PI_SDC_StoresMapping] Where PI_StoreId='" & PI_StoreId.ToString() & "'")

            Dim _ds As System.Data.DataSet = GetAllCustomers(SDC_StoreId)
            Dim y As Integer = _ds.Tables(0).Rows.Count - 1

            For x As Integer = 0 To _ds.Tables(0).Rows.Count - 1
                Dim _userId As Guid = _ds.Tables(0).Rows(x)("UserId")
                Dim _ds_aspnet_Users As System.Data.DataSet = Get_aspnet_Users(_userId)
                Dim _userName As String = PI_StoreId.ToString() & "_" & _ds_aspnet_Users.Tables(0).Rows(0)("UserName")
                Dim _ds_aspnet_Membership As System.Data.DataSet = Get_aspnet_Membership(_userId)
                Dim _userDetails As UserDetails = _
                            WebUserControl.CreateUser(MembershipProviderInstance, _
                            RoleProviderInstance, _
                            _userName, _
                            "whatever", _
                            _ds_aspnet_Membership.Tables(0).Rows(0)("Email").ToString(), _
                            "PrintItWebCustomer")
                If _userDetails.ErrorCode > 0 Then
                    Response.Write("User " & _userName & " has not been created due to the following reason : " & _userDetails.ErrorMessage & "<br/>")
                Else
                    Response.Write("User " & _userName & " has been created successfully <br/>")

                    Dim _userProfile As ProfileCommon
                    _userProfile = ProfileCommon.Create(_userName)
                    _userProfile.StoreId = 999999
                    _userProfile.ExpirationDate = CType("12/31/2099", Date)
                    _userProfile.Save()

                    Dim _customerDetails As com.racadtech.services.CustomerDetails = GoPrint2Adapter.UpdateCustomerDetailsWithUserId("".ToString(), _userDetails.UserId.ToString(), CurrentActivationId.ToString(), _
                                _ds.Tables(0).Rows(x)("FName").ToString(), _
                                _ds.Tables(0).Rows(x)("LName").ToString(), _
                                _ds.Tables(0).Rows(x)("Company").ToString(), _
                                _ds.Tables(0).Rows(x)("Address").ToString(), _
                                _ds.Tables(0).Rows(x)("Address1").ToString(), _
                                _ds.Tables(0).Rows(x)("City").ToString(), _
                                _ds.Tables(0).Rows(x)("State").ToString(), _
                                _ds.Tables(0).Rows(x)("Zip").ToString(), _
                                _ds.Tables(0).Rows(x)("Country").ToString(), _
                                _ds.Tables(0).Rows(x)("Phone").ToString(), _
                                _ds.Tables(0).Rows(x)("Fax").ToString(), _
                                _ds_aspnet_Membership.Tables(0).Rows(0)("Email").ToString(), _
                                MasterKey.ToString())

                    GetValue("Update [PrintIt].[dbo].[aspnet_Membership] Set Password = '" _
                    & _ds_aspnet_Membership.Tables(0).Rows(0)("Password") & _
                    "',  PasswordSalt = '" & _ds_aspnet_Membership.Tables(0).Rows(0)("PasswordSalt") & _
                    "' Where UserId='" & _userDetails.UserId.ToString() & "'")
                End If
            Next
        Else
            _label.Text = "Store Number is Empty!"
        End If

        _textBox.Text = ""

    End Sub

    Public Function GetAllCustomers(ByVal storeId As Integer) As System.Data.DataSet

        Dim _dataSet As New System.Data.DataSet
        Using _connection As New System.Data.SqlClient.SqlConnection(epowerSDC_ConnectionString)
            Dim _command As New System.Data.SqlClient.SqlCommand()
            _command.CommandType = Data.CommandType.Text
            _command.Connection = _connection
            _command.CommandText = "Select * From SDC_UserDetails Where StoreId=@StoreId"
            _command.Parameters.AddWithValue("@StoreId", storeId)
            Dim _dataAdapter As New System.Data.SqlClient.SqlDataAdapter(_command)
            _dataAdapter.Fill(_dataSet, "AllCustomers")
        End Using
        Return _dataSet

    End Function


    Public Function Get_aspnet_Users(ByVal userId As Guid) As System.Data.DataSet
        Dim _dataSet As New System.Data.DataSet
        Using _connection As New System.Data.SqlClient.SqlConnection(epowerSDC_ConnectionString)
            Dim _command As New System.Data.SqlClient.SqlCommand()
            _command.CommandType = Data.CommandType.Text
            _command.Connection = _connection
            _command.CommandText = "Select * From aspnet_Users Where UserId=@UserId"
            _command.Parameters.AddWithValue("@UserId", userId)
            Dim _dataAdapter As New System.Data.SqlClient.SqlDataAdapter(_command)
            _dataAdapter.Fill(_dataSet, "AllCustomers")
        End Using
        Return _dataSet
    End Function

    Public Function Get_aspnet_Membership(ByVal userId As Guid) As System.Data.DataSet
        Dim _dataSet As New System.Data.DataSet
        Using _connection As New System.Data.SqlClient.SqlConnection(epowerSDC_ConnectionString)
            Dim _command As New System.Data.SqlClient.SqlCommand()
            _command.CommandType = Data.CommandType.Text
            _command.Connection = _connection
            _command.CommandText = "Select * From aspnet_Membership Where UserId=@UserId"
            _command.Parameters.AddWithValue("@UserId", userId)
            Dim _dataAdapter As New System.Data.SqlClient.SqlDataAdapter(_command)
            _dataAdapter.Fill(_dataSet, "AllCustomers")
        End Using
        Return _dataSet
    End Function

    Public Function GetValue(ByVal _commandString As String)
        Using _connection As New System.Data.SqlClient.SqlConnection(epowerSDC_ConnectionString)
            _connection.Open()
            Dim _command As New System.Data.SqlClient.SqlCommand()
            _command.CommandType = Data.CommandType.Text
            _command.Connection = _connection
            _command.CommandText = _commandString
            Try
                Return _command.ExecuteScalar()
                Return 1
            Catch ex As Exception
                Return 0
            End Try
            _connection.Close()
        End Using
    End Function

End Class