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_convert_to_pdf_step2
Inherits System.Web.UI.Page
Public isTicketComplete As Boolean = False
Private pdfConverterWS As New com.racadtech.services.PDFConverter()
Private ticket As New com.racadtech.services.Ticket()
Public isAllTicketComplete = False
Public isThumbnailCreated As Boolean
Public ReadOnly Property JobFilesDirectory() As String
Get
Return ConfigurationManager.AppSettings.Get("JobFilesPath").ToString()
'JobFilesDirectory = "L:\Sites\beta.goprint2.com\jobFiles"
End Get
End Property
Public ReadOnly Property BaseImageURL() As String
Get
If Not Session("BaseImageURL") Is Nothing Then
Return Session("BaseImageURL")
Else
Return "themes/orange/"
End If
End Get
End Property
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Try
Dim _arrTicketsConv As New ArrayList
_arrTicketsConv = Session("AllTickets")
Dim _text As String = ""
Dim i As Integer
If Not _arrTicketsConv Is DBNull.Value Then
For i = 0 To _arrTicketsConv.Count - 1
' Reconstruct ticket object from session values.
' We need todo this because web service requires ticket object, and we can not store
' objects in session unless we serialize them.
ticket.TicketId = CType(_arrTicketsConv(i), ArrayList)(0)
ticket.StoreId = CType(_arrTicketsConv(i), ArrayList)(1)
ticket.OriginalDocument = CType(_arrTicketsConv(i), ArrayList)(2)
ticket.NewDocument = CType(_arrTicketsConv(i), ArrayList)(3)
ticket.NewDocumentThumbnail = CType(_arrTicketsConv(i), ArrayList)(4)
ticket.Timeout = CType(_arrTicketsConv(i), ArrayList)(5)
ticket.QueuePosition = CType(_arrTicketsConv(i), ArrayList)(6)
ticket.IsComplete = CType(_arrTicketsConv(i), ArrayList)(7)
' Check to see if ticket is completed.
' ( Passing newly created ticket object based on previous session data. )
ticket = pdfConverterWS.IsTicketComplete(ticket)
' Storing new ticket object information into session, overwriting the previous data.
CType(_arrTicketsConv(i), ArrayList)(0) = ticket.TicketId
CType(_arrTicketsConv(i), ArrayList)(1) = ticket.StoreId
CType(_arrTicketsConv(i), ArrayList)(2) = ticket.OriginalDocument
CType(_arrTicketsConv(i), ArrayList)(3) = ticket.NewDocument
CType(_arrTicketsConv(i), ArrayList)(4) = ticket.NewDocumentThumbnail
CType(_arrTicketsConv(i), ArrayList)(5) = ticket.Timeout
CType(_arrTicketsConv(i), ArrayList)(6) = ticket.QueuePosition
CType(_arrTicketsConv(i), ArrayList)(7) = ticket.IsComplete
Dim _label As Label = New Label()
_label.Font.Name = "Arial"
_label.Font.Size = 10
Dim _img As Image = New Image()
Dim _table As New Table
Dim _tr As TableRow = New TableRow
If (ticket.IsComplete) Then
isAllTicketComplete = True
Dim _td As TableCell = New TableCell
_td.HorizontalAlign = HorizontalAlign.Left
_td.VerticalAlign = VerticalAlign.Top
_label.Text = _arrTicketsConv(i)(8) & " "
_td.Controls.Add(_label)
_tr.Cells.Add(_td)
_td = New TableCell
_td.HorizontalAlign = HorizontalAlign.Left
_td.VerticalAlign = VerticalAlign.Top
_img.ImageUrl = "~/images/icon_check.png"
_td.Controls.Add(_img)
_tr.Cells.Add(_td)
Else
isAllTicketComplete = False
If _arrTicketsConv(i)(6) < 1 Then
Dim _td As TableCell = New TableCell
_td.HorizontalAlign = HorizontalAlign.Left
_td.VerticalAlign = VerticalAlign.Top
_label.Text = _arrTicketsConv(i)(8) & " "
_td.Controls.Add(_label)
_tr.Cells.Add(_td)
_td = New TableCell
_td.HorizontalAlign = HorizontalAlign.Left
_td.VerticalAlign = VerticalAlign.Top
_img.ImageUrl = "~/RadControls/Ajax/Skins/Default/loading2.gif"
_td.Controls.Add(_img)
_tr.Cells.Add(_td)
Else
Dim _td As TableCell = New TableCell
_td.HorizontalAlign = HorizontalAlign.Left
_td.VerticalAlign = VerticalAlign.Top
_label.Text = _arrTicketsConv(i)(8)
_td.Controls.Add(_label)
_tr.Cells.Add(_td)
End If
End If
_table.Rows.Add(_tr)
PlaceHolder1.Controls.Add(_table)
Next
Session("AllTickets") = _arrTicketsConv
End If
Catch ex As Exception
Session.Remove("AllTicket")
End Try
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Session("AllTickets") Is DBNull.Value Then
Dim _jobId As Integer = Convert.ToInt32(Session("JobId"))
Dim _storeId As Integer = Convert.ToInt32(Session("StoreId"))
Dim _directoryPart As String = JobFilesDirectory
Dim _jobIdPart As String = _jobId.ToString()
Dim _arrTickets As ArrayList = Session("AllTickets")
'define queue position for the first file in session array
Dim _queuePosition As Integer = CType(_arrTickets(0), ArrayList)(6)
If _queuePosition > 0 Then 'there are files before my file(s)
_queuePosition = _queuePosition - 1 + CType(_arrTickets, ArrayList).Count
Me.ticketLbl.Text = Me.GetLocalResourceObject("ticketLblText1") & _queuePosition & Me.GetLocalResourceObject("ticketLblText2")
Else 'my file(s) are being processed
Me.ticketLbl.Text = Me.GetLocalResourceObject("ticketLblText3")
End If
If (isAllTicketComplete) Then
Me.METAREFRESH.Text = "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=convert_to_pdf_step3.aspx?JobId=" & Request.QueryString("JobId") & "'>"
Else
Me.METAREFRESH.Text = "<META HTTP-EQUIV='Refresh' CONTENT='5; URL=convert_to_pdf_step2.aspx?JobId=" & Request.QueryString("JobId") & "'>"
End If
Else
Me.METAREFRESH.Text = "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=thank_you.aspx'>"
End If
End Sub
End Class