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 : saveawb_test.asp

if session("login")=false then
		response.redirect("../default.asp")
	end if
%>

<%
	' check for existance of awb no
	mSql = "Select awbno from airwaybills where awbno = " & trim(request.form("txtawbno"))
	set mRs = oConn.Execute(mSql)
	if not mRs.eof then
		session("msg") = "Air Waybill No Already Exists"
		mRs.close
		set mRs = nothing
		response.Redirect("awbentry.asp")
	end if
	mRs.close
	set mRs = nothing	
		
	'Update AWB Record
	insertString = ""
	insertString = "Insert Into AirWayBills (AWBNo, AWBDateTime, FK_BranchID, Fk_FacilityID, AWBType, PaymentType, " & _
			       "ShipperName, ShCompany, ShAddress, ShCity, ShState, ShZipCode, ShCountry, ShPhone, ConsigneeName, " & _
				   "CnCompany, CnAddress, CnCity, CnState, CnZipCode, CnCountry, CnPhone, GoodsDesc, CustomsValue, " & _
				   "Currency, TotalPackages, TotalWeight, Dimensions, Remarks, AWBStatus, ScheduledDate, EnteredBy, " & _
				   "EntryDate) Values( " & _
				   trim(Request.Form("txtawbno")) & ", '" & _
				   trim(Request.Form("txtpickupdate")) & "', " & _
				   session("branchid") & ", " & _
				   session("fid") & ", '" & _
				   trim(Request.Form("cmbService")) & "', " & _
				   "'" & trim(Request.Form("cmbPayment")) & "', " & _
				   "'" & trim(Request.Form("txtShName")) & "', " & _
				   "'" & trim(Request.Form("txtShCompany")) & "', " & _
				   "'" & trim(Request.Form("txtShAddress")) & "', " & _
				   "'" & trim(Request.Form("txtShCity")) & "', " & _ 
				   "'" & trim(Request.Form("txtShState")) & "', " & _ 
				   "'" & trim(Request.Form("txtShZipCode")) & "', " & _
				   "'" & trim(Request.Form("cmbShCountry")) & "', " & _ 
				   "'" & trim(Request.Form("txtShPhone")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnName")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnCompany")) & "', " & _
				   "'" & trim(Request.Form("txtCnAddress")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnCity")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnState")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnZipCode")) & "', " & _ 
				   "'" & trim(Request.Form("cmbCnCountry")) & "', " & _ 
				   "'" & trim(Request.Form("txtCnPhone")) & "', " & _ 
				   "'" & trim(Request.Form("txtGoodsDesc")) & "', " & _
				   " " & trim(Request.Form("txtCustomsValue")) & ", " & _
				   "'" & trim(Request.Form("cmbCurrency")) & "', " & _ 
				   " " & trim(Request.Form("txtTotalPackages")) & ", " & _ 
				   " " & trim(Request.Form("txtTotalWeight")) & ", " & _ 
				   "'" & trim(Request.Form("txtDimension")) & "', " & _ 
				   "'" & trim(Request.Form("txtRemarks")) & "', 'EC', " & _ 
				   "'" & trim(Request.Form("txtDelDate")) & "', " & _
				   "'" & Session("username") & "', GetDate() )"
				   
			insertstring1 = ""
			insertstring1 = "Insert Into Tracking(AWBNo, FK_FacilityID, ProcessTime, ProcessDesc) Values (" & _
						   trim(Request.Form("txtawbno")) & ", " & session("fid") & ",'" & _
						   trim(Request.Form("txtpickupdate")) & "', 'Shipment Picked Up')"

response.write insertstring
			response.write "<br/><br/>"
			response.write insertstring1
			response.End()

oConn.Execute(insertString)
			oConn.Execute(insertString1)

session("msg") = "Air Waybill No:<font color=""#003399"" size=""3""> "  & _
							  trim(Request.Form("txtawbno")) & "</font>  has been updated sucessfully..."
							  
							  
							  
%>

<%
			response.Redirect("awbentry.asp")

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2024-04-07 10:09:06
..	dir	-	0/0	0777	2025-07-24 01:07:06
addawbentry.asp	text/html	19.75 KB	0/0	0666	2024-04-07 10:09:05
awbentry.asp	text/html	2.47 KB	0/0	0666	2024-04-07 10:09:05
awbmodify.asp	text/html	2.88 KB	0/0	0666	2024-04-07 10:09:05
chkawbno.asp	text/plain	560 B	0/0	0666	2024-04-07 10:09:05
editawbentry.asp	text/html	21.54 KB	0/0	0666	2024-04-07 10:09:06
saveawb.asp	text/plain	3.44 KB	0/0	0666	2024-04-07 10:09:06
saveawb_test.asp	text/plain	3.51 KB	0/0	0666	2024-04-07 10:09:06
updateawb.asp	text/plain	2.73 KB	0/0	0666	2024-04-07 10:09:06

Team Anon Force

https://t.me/Professor6T9x