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 includes_package_details_inc
Inherits System.Web.UI.UserControl
Private _user As MembershipUser
Private _userProfile As ProfileCommon
Private _webWS As New WebWS
Public _selectedLanguage As String = ""
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.QueryString("lang") IsNot Nothing Then
_selectedLanguage = Request.QueryString("lang").ToString
Else
If Session("lang") IsNot Nothing Then
_selectedLanguage = Session("lang").ToString
Else
If Request.Cookies("lang") IsNot Nothing Then
_selectedLanguage = Request.Cookies("lang").Value.ToString
End If
End If
End If
WebDiv.Visible = "false"
Session("lang") = _selectedLanguage
If Session("EditUserFromAdmin") Or Session("EditUserFromManagement") Then
Dim _guid As Guid = New Guid(Request.QueryString("uid"))
_user = Membership.GetUser(_guid)
Else
_user = Membership.GetUser()
End If
_userProfile = Profile.GetProfile(_user.UserName)
Dim _storeId As Integer = _userProfile.StoreId
'_storeId = 600
Dim _dataSet As New System.Data.DataSet
_dataSet = _webWS.GetStorePackagesByStoreId(_storeId)
Dim _CountPckg As Integer = _dataSet.Tables(0).Rows.Count 'quantaty of StorePackages for current Store
'If store has any packages
If _CountPckg > 0 Then
BasePrintDriverEmptyDiv.Visible = False
Dim _currency As String = ""
Select Case _userProfile.Country ' curruncy should be change according the Country not language
Case "Argentina", "Uruguay"
_currency = "u$s"
Case "Canada"
_currency = "CAD"
Case Else
_currency = "USD"
End Select
Dim _message As String = "" 'create table for Base Module Packages
'General Info about Base Module and Free Submission
_message = "<table border='0' cellspacing='0' cellpadding='0'>" _
& "<tr><td>" & GetLocalResourceObject("PackageType") & _dataSet.Tables(0).Rows(0).Item("PackageName") & "</td></tr>" _
& "<tr><td>" & GetLocalResourceObject("PackageDescription") & _dataSet.Tables(0).Rows(0).Item("PackageDescription") & "</td></tr>" _
& "<tr><td>" & GetLocalResourceObject("FreeJobsSubmissions") & _dataSet.Tables(0).Rows(0).Item("FreeJobDescription") & "</td></tr>" _
& " </table> </br>"
'Create Header for Base Module Package Table
_message = _message & "<table width='100%' border='0' cellspacing='0' cellpadding='3' style='background-color: White; border: solid 1px #7AC141;' >" _
& "<tr bgcolor='#7AC141'><td align='left' valign='top' style='color:#ffffff; padding:5px; font-size:14px' width='70% ' >" _
& GetLocalResourceObject("PrintDriverPackagesLabel") _
& "</td><td align='center' valign='top' style='color:#ffffff; padding:5px' width='30%'>" _
& GetLocalResourceObject("MonthlyFeeLabel") _
& "</td></tr>"
Dim i As Integer ' number of row in dataSet
Dim _totalPriceMessage As String = "" 'Table content for TotalPriceLabel
Dim _totalMonthlyFee As Double = 0
Dim _maximumMonthlyFee As Double = 0 'check
Dim _maxMonthlyBool As Boolean = False
For i = 0 To 1
_message = _message & "<tr bgcolor='#e7f8c2'><td align='left' valign='top' style='color:#71950d; background-color:#ffffff' width='70%'>" _
& _dataSet.Tables(0).Rows(i).Item("ModuleName") _
& "</td><td align='center' valign='top' style='color:#4a4a4a; border-left: solid 1px #7AC141; border-right: solid 1px #7AC141;' width='30%'>" _
& _currency & " " & String.Format("{0:n}", _dataSet.Tables(0).Rows(i).Item("PackagePrice")) _
& "</td></tr>"
_totalMonthlyFee = _totalMonthlyFee + _dataSet.Tables(0).Rows(i).Item("PackagePrice")
If _dataSet.Tables(0).Rows(i).Item("MaxMonthlyFee") > 0 Then
_maximumMonthlyFee = _dataSet.Tables(0).Rows(i).Item("MaxMonthlyFee")
_maxMonthlyBool = True
Else
_maximumMonthlyFee = _maximumMonthlyFee + _dataSet.Tables(0).Rows(i).Item("PackagePrice")
End If
Next i
_message = _message & "</table>"
BasePrintDriverTable.Text = _message
'Check if Store has WebSubmission Package
If _CountPckg > 2 Then
WebDiv.Visible = True
Dim _messageweb As String = ""
Dim _dataSetDomainName As New System.Data.DataSet
_dataSetDomainName = _webWS.GetDomainName(_storeId)
_messageweb = _messageweb & "<table width='100%' border='0' cellspacing='0' cellpadding='3' style='background-color: White; border: solid 1px #7AC141;' >" _
& "<tr bgcolor='#7AC141'><td align='left' valign='top' style='color:#ffffff; padding:5px; font-size:14px' width='70%'>" _
& GetLocalResourceObject("WebPackagesLabel") _
& "</td><td align='center' valign='top' style='color:#ffffff; padding:5px' width='30%'>" _
& GetLocalResourceObject("MonthlyFeeLabel") _
& "</td></tr>"
Do While i < _CountPckg
_messageweb = _messageweb & "<tr bgcolor='#e7f8c2'><td align='left' valign='top' style='color:#71950d; background-color:#ffffff' width='70%'>" _
& _dataSet.Tables(0).Rows(i).Item("ModuleName") & "</br>"
If _dataSet.Tables(0).Rows(i).Item("ModuleId") = 4 Then
_messageweb = _messageweb & "<font color='#4a4a4a'>(http://" & _dataSetDomainName.Tables(0).Rows(0).Item("DomainName") & ".goprint2.com)</font>"
End If
_messageweb = _messageweb & "</td><td align='center' valign='top' style='color:#4a4a4a; border-left: solid 1px #7AC141; border-right: solid 1px #7AC141;' width='30%'>" _
& _currency & " " & String.Format("{0:n}", _dataSet.Tables(0).Rows(i).Item("PackagePrice")) _
& "</td></tr>"
_totalMonthlyFee = _totalMonthlyFee + _dataSet.Tables(0).Rows(i).Item("PackagePrice")
_maximumMonthlyFee = _maximumMonthlyFee + _dataSet.Tables(0).Rows(i).Item("PackagePrice").ToString()
i = i + 1
Loop
_messageweb = _messageweb & "</table>"
WebModuleTable.Text = _messageweb
End If
Dim _totalMonthlyFeeStr As String = String.Format("{0:n}", _totalMonthlyFee)
Dim _maximumMonthlyFeeStr As String = String.Format("{0:n}", _maximumMonthlyFee)
_totalPriceMessage = "<table width='60%' border='0' cellspacing='0' cellpadding='3' style='border: solid 1px #7AC141;' align='right'>" _
& "<tr bgcolor='#e7f8c2'><td align='right' style='color:#4a4a4a'> " & GetLocalResourceObject("TotalMonthlyFee") _
& "</td> <td align='left' style='color:#4a4a4a'>" & _currency & " " & _totalMonthlyFeeStr _
& "</td> <tr bgcolor='#e7f8c2'><td align='right' style='color:#4a4a4a'> " & GetLocalResourceObject("PricePerSubmission") _
& "</td> <td align='left' style='color:#4a4a4a'>" & _currency & " " & String.Format("{0:n}", _dataSet.Tables(0).Rows(0).Item("PricePerClick")) _
& "</td></tr>"
If _maxMonthlyBool = True Then
_totalPriceMessage = _totalPriceMessage & "<tr bgcolor='#e7f8c2'><td align='right' style='color:#4a4a4a'> " & GetLocalResourceObject("MaximumMonthlyFee") _
& "</td> <td align='left' style='color:#4a4a4a'>" & _currency & " " & _maximumMonthlyFeeStr _
& "</td> "
End If
_totalPriceMessage = _totalPriceMessage & "</table>"
TotalPriceLabel.Text = _totalPriceMessage
Else
BasePrintDriverEmptyDiv.Visible = True
BasePrintDriverDiv.Visible = False
WebDiv.Visible = False
TotalPriceDiv.Visible = False
End If
End Sub
End Class