Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : tracking.aspx.vb

Imports System.Data.SqlClient
Imports System.Data
Partial Class tracking
    Inherits System.Web.UI.Page
    Dim conStr As String = ConfigurationManager.ConnectionStrings("EUROConnectionString").ToString
    Dim Con As New SqlConnection(conStr)

'Protected Sub btnTrack_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnTrack.Click
    '    ''Session("TrackCn") = txtcn.Text
    '    'Response.Redirect("Track.aspx")

'End Sub
    Public Function CanNull(ByVal vStr As Object) As Object
        On Error Resume Next
        If IsDBNull(vStr) = True Then
            CanNull = ""
        Else
            CanNull = vStr
        End If
    End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Session("TrackCn") = Nothing Then
            If Con.State = 1 Then Con.Close()
            Con.Open()
            Dim adapter2 As SqlDataAdapter = New SqlDataAdapter("select * from INWARD_TRNS where CONSIGMENT_NO ='" & Session("TrackCn").ToString & "'", Con)
            Dim DataTbl2 As New DataTable()
            adapter2.Fill(DataTbl2)
            If DataTbl2.Rows.Count > 0 Then
                LblAirBillNo.Text = CanNull((DataTbl2.Rows(0).Item("CONSIGMENT_NO")))
                If LblAirBillNo.Text <> "" Then LblAirBillNo1.Text = "Airway Bill No "
                LblShipmentdt.Text = CanNull((DataTbl2.Rows(0).Item("TRNSDT")))
                If LblShipmentdt.Text <> "" Then LblShipmentdt1.Text = "Shipment Dt "
                Lblcurrentst.Text = CanNull((DataTbl2.Rows(0).Item("MainStatus")))
                If Lblcurrentst.Text <> "" Then Lblcurrentst1.Text = "Current Status "
                LblShipAccNo.Text = CanNull((DataTbl2.Rows(0).Item("PARTY_CODE")))
                If LblShipAccNo.Text <> "" Then LblShipAccNo1.Text = "Shipper's Account No "
                LblDeliveredOn.Text = CanNull((DataTbl2.Rows(0).Item("RcvDt")))
                If LblDeliveredOn.Text <> "" Then LblDeliveredOn1.Text = "Delivered On "
                Lblshipper.Text = "Kolkata Office" 'CanNull((DataTbl2.Rows(0).Item("RcvDt")))
                If Lblshipper.Text <> "" Then Lblshipper1.Text = "Shipper "
                LblReceivedBy.Text = CanNull((DataTbl2.Rows(0).Item("ReceivedBy")))
                If LblReceivedBy.Text <> "" Then LblReceivedBy1.Text = "Received By "
                LblReceiver.Text = CanNull((DataTbl2.Rows(0).Item("KINDATTEN")))
                If LblReceiver.Text <> "" Then LblReceiver1.Text = "Receiver "
                LblZipCode.Text = CanNull((DataTbl2.Rows(0).Item("DESTINATION_PINCODE")))
                If LblZipCode.Text <> "" Then LblZipCode1.Text = "Zip Code "
                LblDestination.Text = CanNull((DataTbl2.Rows(0).Item("DESTINATION_NAME")))
                If LblDestination.Text <> "" Then LblDestination1.Text = "Destination Name "
                LblPieces.Text = CanNull((DataTbl2.Rows(0).Item("Qty")))
                If LblPieces.Text <> "" Then LblPieces1.Text = "Pieces "
                LblDescription.Text = CanNull((DataTbl2.Rows(0).Item("DESCRIPTIONS")))
                If LblDescription.Text <> "" Then LblDescription1.Text = "Description "
                LblWaight.Text = CanNull((DataTbl2.Rows(0).Item("PWet")))
                If LblWaight.Text <> "" Then LblWaight1.Text = "Weight"
                LblDeclareCustomsValue.Text = CanNull((DataTbl2.Rows(0).Item("CoustomValue")))
                If LblDeclareCustomsValue.Text <> "" Then LblDeclareCustomsValue1.Text = "Declare Customs value "
                LblClickhere.Text = CanNull((DataTbl2.Rows(0).Item("OvrseaNo")))
                If LblClickhere.Text <> "" Then
                    Session("Link") = CanNull((DataTbl2.Rows(0).Item("OvrseaNetwork"))) & CanNull((DataTbl2.Rows(0).Item("OvrseaNo")))
                    LblClickhere.PostBackUrl = Session("Link").ToString
                    LblClickhere1.Text = "Click here to Verify "
                End If

'""""""""""""" image """""""""""""""""""""""""""
                Dim chk As String
                chk = ""
                chk = CanNull((DataTbl2.Rows(0).Item("Status")))
                If chk <> "" Then
                    If chk = "Initiated" Then
                        Image1.ImageUrl = "~/images/initiated.png"
                        Image2.ImageUrl = "~/images/Initiated_lbl.gif"
                    ElseIf chk = "Picked up" Then
                        Image1.ImageUrl = "~/images/pickedup.png"
                        Image2.ImageUrl = "~/images/Pickedup_lbl.gif"
                    ElseIf chk = "In transit" Then
                        Image1.ImageUrl = "~/images/intransit.png"
                        Image2.ImageUrl = "~/images/Intransit_lbl.gif"
                    ElseIf chk = "Delivered" Then
                        Image1.ImageUrl = "~/images/delivered.png"
                        Image2.ImageUrl = "~/images/Delivered_lbl.gif"

End If
                End If
                '""""""""""""" image """""""""""""""""""""""""""
            Else
                Response.Redirect("trackingnotfound.aspx")

End If

Dim cmd As New SqlCommand("Select StatusDt as Date_Time,  StActivity as Activity, StLocation as Location, StDetails as Details   from INWARD_Status where CONSIGMENT_NO ='" & Session("TrackCn").ToString & "' Order By StatusDt Desc", Con)
            Dim adapter As New SqlDataAdapter(cmd)
            Dim dt As New DataTable()
            adapter.Fill(dt)
            Dim dv As DataView = dt.DefaultView

GridView1.DataSource = dv
            GridView1.DataBind()
            Con.Close()
        End If
    End Sub
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2024-08-27 02:09:04
..	dir	-	0/0	0777	2024-08-27 02:09:03
01.png	image/png	659 B	0/0	0666	2012-05-29 02:32:51
02.png	image/png	2.39 KB	0/0	0666	2012-05-29 02:32:51
03.png	image/png	4.61 KB	0/0	0666	2012-05-29 02:32:52
1.png	image/png	872 B	0/0	0666	2012-05-29 02:32:52
10.png	image/png	171 B	0/0	0666	2012-05-29 02:32:52
11.png	image/png	499 B	0/0	0666	2012-05-29 02:32:52
12.png	image/png	2.4 KB	0/0	0666	2012-05-29 02:32:53
13.png	image/png	3.05 KB	0/0	0666	2012-05-29 02:32:53
14.png	image/png	1.6 KB	0/0	0666	2012-05-29 02:32:54
15.png	image/png	752 B	0/0	0666	2012-05-29 02:32:54
16.png	image/png	1.12 KB	0/0	0666	2012-05-29 02:32:55
17.png	image/png	1.01 KB	0/0	0666	2012-05-29 02:32:55
2.png	image/png	586 B	0/0	0666	2012-05-29 02:32:55
3.png	image/png	632 B	0/0	0666	2012-05-29 02:32:56
4.png	image/png	547 B	0/0	0666	2012-05-29 02:32:56
5.png	image/png	943 B	0/0	0666	2012-05-29 02:32:56
6.png	image/png	312 B	0/0	0666	2012-05-29 02:32:57
7.png	image/png	709 B	0/0	0666	2012-05-29 02:32:57
8.png	image/png	958 B	0/0	0666	2012-05-29 02:32:58
9.png	image/png	524 B	0/0	0666	2012-05-29 02:32:58
Delivered_lbl.gif	image/gif	2.85 KB	0/0	0666	2012-05-29 02:33:05
Initiated_lbl.gif	image/gif	1.07 KB	0/0	0666	2012-05-29 02:33:07
Intransit_lbl.gif	image/gif	2.29 KB	0/0	0666	2012-05-29 02:33:08
Pickedup_lbl.gif	image/gif	1.78 KB	0/0	0666	2012-05-29 02:33:11
all_slider.gif	image/gif	88.9 KB	0/0	0666	2012-05-29 02:33:00
bar.png	image/png	241 B	0/0	0666	2012-05-29 02:32:59
bar1.png	image/png	307 B	0/0	0666	2012-05-29 02:33:00
bar2.png	image/png	269 B	0/0	0666	2012-05-29 02:33:01
bg1.png	image/png	326 B	0/0	0666	2012-05-29 02:33:01
bg2.png	image/png	1.64 KB	0/0	0666	2012-05-29 02:33:01
botton.png	image/png	1.36 KB	0/0	0666	2012-05-29 02:33:02
bottonReset.png	image/png	4.26 KB	0/0	0666	2012-05-29 02:33:02
bottonTrack.png	image/png	4.16 KB	0/0	0666	2012-05-29 02:33:03
bullet.png	image/png	720 B	0/0	0666	2012-05-29 02:33:03
cal.png	image/png	7.37 KB	0/0	0666	2012-05-29 02:33:04
delivered.png	image/png	15.25 KB	0/0	0666	2012-05-29 02:33:05
enter.png	image/png	4.58 KB	0/0	0666	2012-05-29 02:33:06
enter1.png	image/png	4.64 KB	0/0	0666	2012-05-29 02:33:06
facebook.png	image/png	2.44 KB	0/0	0666	2012-05-29 02:33:06
initiated.png	image/png	13.84 KB	0/0	0666	2012-05-29 02:33:07
intransit.png	image/png	14.18 KB	0/0	0666	2012-05-29 02:33:08
link.png	image/png	2.65 KB	0/0	0666	2012-05-29 02:33:09
logo.png	image/png	10.24 KB	0/0	0666	2012-05-29 02:33:10
p01.png	image/png	2.75 KB	0/0	0666	2012-05-29 02:33:10
p10.png	image/png	2.78 KB	0/0	0666	2012-05-29 02:33:10
pickedup.png	image/png	17.88 KB	0/0	0666	2012-05-29 02:33:11
sup.png	image/png	4.91 KB	0/0	0666	2012-05-29 02:33:12
tracking.aspx	text/html	24.97 KB	0/0	0666	2012-05-29 02:33:13
tracking.aspx.vb	text/plain	5.71 KB	0/0	0666	2012-05-29 02:33:13
twitter.png	image/png	2.58 KB	0/0	0666	2012-05-29 02:33:13
user.png	image/png	20.26 KB	0/0	0666	2012-05-29 02:33:15

Team Anon Force

https://t.me/Professor6T9x