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 : QueryList.aspx.vb

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections.Generic
Partial Class Admin_QueryList
    Inherits System.Web.UI.Page
    Dim ds, dsUser, dsFran As New DataSet
    Dim st, st1, st2, stUser, stFran, pass, userId, loginType, user_name, usId, type, topicId, Order_No, Pro_Code, weight, show_date, curr_date, start_date, end_date, compare_date, last_month_name, ToProfileId, ImagePath, CurrUserName As String
    Dim Max_SNo, Max_SNo1, Bill_Id, result, pass_SNo, count, count1, NoOfClients, NoOfNewClients, NoOfContacts, NoOfNewContacts, total_count, curr_month, curr_year, max_limit, left_mar, tempCount As Integer
    Dim price, sale_price, pass_price As Decimal
    Dim obj As New clsdatabase
    Dim obj1 As New clscommon
    Dim Return_Temp_Code, return_text, prev_date, temp_date, ClientName As String
    Dim PicPath As String()
    Dim Today, PrevDay As DateTime
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        check_login_menu()

If IsPostBack = False Then
            FillQueryList()
        End If
    End Sub
    Sub check_login_menu()
        Return_Temp_Code = Request.QueryString("u")
        obj1.getClientName(Return_Temp_Code, userId, ClientName, loginType)

If userId = "" Then
            Response.Redirect("index.aspx")
        Else
            logo_place.HRef = "Dashboard.aspx?u=" & Return_Temp_Code
            Admin_Name1.InnerHtml = ClientName & "<i class=""caret""></i>"
            Admin_Name2.InnerHtml = ClientName
            Admin_Name3.InnerHtml = ClientName
            Main_Heading.InnerHtml = "Query List <small>Queries To Admin</small>"

return_text = ""
            obj1.getAdminMenu(Return_Temp_Code, loginType, 6, return_text)
            SideMenu.InnerHtml = return_text

breadcrumb_link1.HRef = "Dashboard.aspx?u=" & Return_Temp_Code
            logout_link.HRef = "Logout.aspx?u=" & Return_Temp_Code
        End If
    End Sub
    Sub FillQueryList()
        Return_Temp_Code = Request.QueryString("u")
        obj1.getClientName(Return_Temp_Code, userId, ClientName, loginType)

st = "select CQ.QueryId, CQ.Subject, CQ.SubmitDate, CQ.Status, CQ.IsRecent, CD.ClientId, CD.FileNo, CD.Name from ClientQuery CQ INNER JOIN ClientDetail CD ON CQ.CLientId=CD.ClientId where CQ.ClientId=" & userId & " Order By CQ.QueryId DESC"
        ds = obj.getDataSet(st)
        st1 = ""
        st1 += "    <div class=""box-body no-padding"">"
        st1 += "        <table class=""table table-striped"">"
        st1 += "            <tr>"
        st1 += "                <th>SNo</th>"
        st1 += "                <th>Subject</th>"
        st1 += "                <th>Submit Date</th>"
        st1 += "                <th>Status</th>"
        st1 += "                <th>Command</th>"
        st1 += "            </tr>"
        If ds.Tables(0).Rows.Count > 0 Then
            For i = 0 To ds.Tables(0).Rows.Count - 1

If ds.Tables(0).Rows(i)("Status") = "0" Then
                    st1 += "            <tr class=""bg-green"">"
                Else
                    st1 += "            <tr class=""bg-red"">"
                End If

obj1.calculate_string(ds.Tables(0).Rows(i)("QueryId"), pass_SNo)
                If ds.Tables(0).Rows(i)("Status") = "0" Then
                    st1 += "                <td>" & (i + 1) & "</td>"
                    st1 += "                <td>" & ds.Tables(0).Rows(i)("Subject") & "</td>"
                    st1 += "                <td>" & Format(CDate(ds.Tables(0).Rows(i)("SubmitDate")), "dd MMM, yyyy") & "</td>"
                    st1 += "                <td>Settled</td>"
                    st1 += "                <td><a href=""QueryDetail.aspx?u=" & Return_Temp_Code & "&a=" & pass_SNo & """ class=""text-lime"">View Detail</a></td>"
                Else
                    st1 += "                <td><b>" & (i + 1) & "<b></td>"
                    st1 += "                <td><b>" & ds.Tables(0).Rows(i)("Subject") & "<b></td>"
                    st1 += "                <td><b>" & Format(CDate(ds.Tables(0).Rows(i)("SubmitDate")), "dd MMM, yyyy") & "<b></td>"
                    st1 += "                <td><b>Unsettled</b></td>"

If ds.Tables(0).Rows(i)("IsRecent") = "1" Then
                        st1 += "                <td><b><a href=""QueryDetail.aspx?u=" & Return_Temp_Code & "&a=" & pass_SNo & """ class=""text-teal"">View Detail</a><b></td>"
                    Else
                        st1 += "                <td><b><a href=""QueryDetail.aspx?u=" & Return_Temp_Code & "&a=" & pass_SNo & """ class=""text-maroon"">View Detail</a><b></td>"
                    End If

End If

st1 += "            </tr>"
            Next
        End If
        st1 += "        </table>"
        st1 += "    </div>"
        QueryListBox.InnerHtml = st1
    End Sub
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2024-08-04 03:24:07
..	dir	-	0/0	0555	2025-07-24 01:07:03
Upload	dir	-	0/0	0777	2024-08-04 03:24:20
ajax	dir	-	0/0	0777	2024-08-04 03:23:30
css	dir	-	0/0	0777	2024-08-04 03:26:44
fonts	dir	-	0/0	0777	2024-08-04 03:23:41
img	dir	-	0/0	0777	2024-08-04 03:26:48
js	dir	-	0/0	0777	2024-08-04 03:30:46
less	dir	-	0/0	0777	2024-08-04 03:24:04
pages	dir	-	0/0	0777	2024-08-04 03:27:04
ChangePassword.aspx	text/html	10.84 KB	0/0	0666	2024-08-04 01:49:39
ChangePassword.aspx.vb	text/plain	4.46 KB	0/0	0666	2024-08-04 01:49:39
ContactAdmin.aspx	text/html	10.57 KB	0/0	0666	2024-08-04 01:49:42
ContactAdmin.aspx.vb	text/plain	3.99 KB	0/0	0666	2024-08-04 01:49:39
Dashboard.aspx	text/html	10.54 KB	0/0	0666	2024-08-04 01:49:39
Dashboard.aspx.vb	text/plain	3.99 KB	0/0	0666	2024-08-04 01:49:42
DocumentList.aspx	text/html	9.51 KB	0/0	0666	2024-08-04 01:49:42
DocumentList.aspx.vb	text/html	3.86 KB	0/0	0666	2024-08-04 01:49:42
Logout.aspx	text/html	323 B	0/0	0666	2024-08-04 01:49:42
Logout.aspx.vb	text/plain	732 B	0/0	0666	2024-08-04 01:49:45
QueryDetail.aspx	text/html	13.38 KB	0/0	0666	2024-08-04 01:49:42
QueryDetail.aspx.vb	text/html	6.47 KB	0/0	0666	2024-08-04 01:49:42
QueryList.aspx	text/html	9.22 KB	0/0	0666	2024-08-04 01:49:42
QueryList.aspx.vb	text/html	4.96 KB	0/0	0666	2024-08-04 01:49:42
TaxDetail.aspx	text/html	9.89 KB	0/0	0666	2024-08-04 01:49:42
TaxDetail.aspx.vb	text/html	6.56 KB	0/0	0666	2024-08-04 01:49:45
UploadDocument.aspx	text/html	10.97 KB	0/0	0666	2024-08-04 01:49:45
UploadDocument.aspx.vb	text/plain	6.69 KB	0/0	0666	2024-08-04 01:49:45
UploadList.aspx	text/html	9.5 KB	0/0	0666	2024-08-04 01:49:45
UploadList.aspx.vb	text/html	3.82 KB	0/0	0666	2024-08-04 01:49:45
ViewProfile.aspx	text/html	11.08 KB	0/0	0666	2024-08-04 01:49:48
ViewProfile.aspx.vb	text/html	7.78 KB	0/0	0666	2024-08-04 01:49:45

Team Anon Force

https://t.me/Professor6T9x