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 System.Net
Imports System.IO

Partial Class dillners_add_new_license
    Inherits System.Web.UI.Page

    Dim _licenseId As String = ""
    Public Property LicenseId As String 
        Get
            Return _licenseId
        End Get
        Set(ByVal value As String)
            _licenseId = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            Dim ws As WebWS = New WebWS()
            Dim _currentLicenseNumber As String = Request("license").ToString().TrimEnd().TrimStart()

            Dim _ds As System.Data.DataSet = ws.GetDillnerLicense(_currentLicenseNumber)
            If (_ds.Tables(0).Rows.Count > 0) Then
                LicenseId = _ds.Tables(0).Rows(0)("id").ToString()
                Cache("LicenseId") = LicenseId
                licenseNumberTxt.Value = _ds.Tables(0).Rows(0)("DilnerLicense").ToString().TrimStart().TrimEnd()
                clientNameTxt.Value = _ds.Tables(0).Rows(0)("ClientName").ToString()
            End If
        End If
    End Sub

    Protected Sub CreateLicenseBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateLicenseBtn.Click
        LicenseId = Cache("LicenseId")

        Dim ws As WebWS = New WebWS()

        ws.UpdateDillnerLicense(Convert.ToInt32(LicenseId), licenseNumberTxt.Value, clientNameTxt.Value + "")

        Dim httpUtil As com.racadtech.Framework.Util.Http.HttpUtil = New com.racadtech.Framework.Util.Http.HttpUtil()

        Dim URL As String = "http://services.racadtech.com/RacadService/DilnerVOAPI.aspx?key=432haz8-3jz82zdklxk-42-zm032k3&dKey=" & licenseNumberTxt.Value

        'Response.Write("URL = " & URL )
        Dim _request As HttpWebRequest = HttpWebRequest.Create(URL)
        _request.Method = WebRequestMethods.Http.Post
        _request.ContentLength = 0
        Dim _response As HttpWebResponse = _request.GetResponse()
        Dim _reader As New StreamReader(_response.GetResponseStream())
        Dim _tmp As String = _reader.ReadToEnd()
        _response.Close()
        'Response.Write(_tmp)

        stylized.Visible = False

        workingDiv.Visible = True

        Response.AddHeader("REFRESH", "90;URL=admin.aspx")
    End Sub

End Class