DisDate
DisTime
DisDispatcher
DisCustomer
DisOrderdBy
DisChargeCode
DisHowManyTrucks
DisTruckType
DisAirRide
DisPermit
DisWinch
DisTruckCompany
DisPickupDate
DisPickupTime
DisFromVendorbase
DisToVendorbase
DisReqDelDate
DisReqDelTime
DisEstMiles
DisStopoversYN
DisPlacards
DisEquipment
DisInbound
DisOutbound
DisVen2Ven
DisBackhaul
DisLoadNgo

DisDate = Replace(Request.Form("DisDate"),"'", "''")
DisTime = Replace(Request.Form("DisTime"),"'", "''")
DisDispatcher = Replace(Request.Form("DisDispatcher"),"'", "''")
DisCustomer = Replace(Request.Form("DisCustomer"),"'", "''")
DisOrderdBy = Replace(Request.Form("DisOrderdBy"),"'", "''")
DisChargeCode = Replace(Request.Form("DisChargeCode"),"'", "''")
DisHowManyTrucks = Replace(Request.Form("DisHowManyTrucks"),"'", "''")
DisTruckType = Replace(Request.Form("DisTruckType"),"'", "''")
DisAirRide = Replace(Request.Form("DisAirRide"),"'", "''")
DisPermit = Replace(Request.Form("DisPermit"),"'", "''")
DisWinch = Replace(Request.Form("DisWinch"),"'", "''")
DisTruckCompany = Replace(Request.Form("DisTruckCompany"),"'", "''")
DisPickupDate = Replace(Request.Form("DisPickupDate"),"'", "''")
DisPickupTime = Replace(Request.Form("DisPickupTime"),"'", "''")
DisFromVendorbase = Replace(Request.Form("DisFromVendorbase"),"'", "''")
DisToVendorbase = Replace(Request.Form("DisToVendorbase"),"'", "''")
DisReqDelDate = Replace(Request.Form("DisReqDelDate"),"'", "''")
DisReqDelTime = Replace(Request.Form("DisReqDelTime"),"'", "''")
DisEstMiles = Replace(Request.Form("DisEstMiles"),"'", "''")
DisStopoversYN = Replace(Request.Form("DisStopoversYN"),"'", "''")
DisPlacards = Replace(Request.Form("DisPlacards"),"'", "''")
DisEquipment = Replace(Request.Form("DisEquipment"),"'", "''")
DisInbound = Replace(Request.Form("DisInbound"),"'", "''")
DisOutbound = Replace(Request.Form("DisOutbound"),"'", "''")
DisVen2Ven = Replace(Request.Form("DisVen2Ven"),"'", "''")
DisBackhaul = Replace(Request.Form("DisBackhaul"),"'", "''")
DisLoadNgo = Replace(Request.Form("DisLoadNgo"),"'", "''")


STRINSERT = "INSERT INTO InputTable(DispatchNumber,Date,Time,Dispatcher,Customer,OrderedBy,AFE,NumberofTrucks,TypeTruckRequested,AirRide,Permit,Winch,TruckingCompany,PickupDate,PickupTime,"
STRINSERT = STRINSERT & "VendorPickUp,VendorDestination,ReqDelDate,ReqDelTime,Mileage,Stopovers,Placards,Remarks,Inbound,Outbound,VendortoVendor,Backhaul,LoadNGo)"
STRINSERT = STRINSERT & "VALUES"
STRINSERT = STRINSERT & "('" & DisDate & "','" & DisTime & "','" & DisDispatcher & "','" & DisCustomer & "','" & DisOrderdBy & "','" & DisChargeCode & "','" & DisHowManyTrucks & "'," 
STRINSERT = STRINSERT & "'" & DisTruckType & "','" & DisAirRide & "','" & DisPermit & "','" & DisWinch & "','" & DisTruckCompany & "','" & DisPickupDate & "','" & DisPickupTime & "',"
STRINSERT = STRINSERT & "'" & DisFromVendorbase & "','" & DisToVendorbase & "','" & DisReqDelDate & "','" & DisReqDelTime & "','" & DisEstMiles & "','" & DisStopoversYN & "',"
STRINSERT = STRINSERT & "'" & DisPlacards & "','" & DisEquipment & "','" & DisInbound & "','" & DisOutbound & "','" & DisVen2Ven & "','" & DisBackhaul & "','" & DisLoadNgo & "')"


STRSELECT = "SELECT DispatchNumber,Date,Time,Dispatcher,Customer,OrderedBy,AFE,NumberofTrucks,TypeTruckRequested,AirRide,Permit,Winch,TruckingCompany,PickupDate,PickupTime,"
STRSELECT = STRSELECT & "VendorPickUp,VendorDestination,ReqDelDate,ReqDelTime,Mileage,Stopovers,Placards,Remarks,Inbound,Outbound,VendortoVendor,Backhaul,LoadNGo FROM InputTable WHERE Dispatchnumber = '" & DispatchNumber & "'"

DisDate = rsSELECTDispatch("Date")
DisTime = rsSELECTDispatch("Time")
DisDispatcher = rsSELECTDispatch("Dispatcher")
DisCustomer = rsSELECTDispatch("Customer")
DisOrderedBy = rsSELECTDispatch("OrderedBy")
DisChargeCode = rsSELECTDispatch("AFE")
DisHowManyTrucks = rsSELECTDispatch("NumberofTrucks")
DisTruckType = rsSELECTDispatch("TypeTruckRequested")
DisAirRide = rsSELECTDispatch("AirRide")
DisPermit = rsSELECTDispatch("Permit")
DisWinch = rsSELECTDispatch("Winch")
DisTruckCompany = rsSELECTDispatch("TruckingCompany")
DisPickupDate = rsSELECTDispatch("PickupDate")
DisPickupTime = rsSELECTDispatch("PickupTime")
DisFromVendorbase = rsSELECTDispatch("VendorPickup")
DisToVendorbase = rsSELECTDispatch("VendorDestination")
DisReqDelDate = rsSELECTDispatch("ReqDelDate")
DisReqDelTime = rsSELECTDispatch("ReqDelTime")
DisEstMiles = rsSELECTDispatch("Mileage")
DisStopoversYN = rsSELECTDispatch("Stopovers")
DisPlacards = rsSELECTDispatch("Placards")
DisEquipment = rsSELECTDispatch("Remarks")
DisInbound = rsSELECTDispatch("Inbound")
DisOutbound = rsSELECTDispatch("Outbound")
DisVen2Ven = rsSELECTDispatch("VendortoVendor")
DisBackhaul = rsSELECTDispatch("Backhaul")
DisLoadNgo = rsSELECTDispatch("LoadNgo")