<%
If Session("logged") <> "1" Then
Response.Redirect("login.asp")
End If
%>
Parts Management
<%
Dim DateID, ConnectionString
Dim cnUpd, recParts
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db1.mdb") & ";"
Set upl = Server.CreateObject("SoftArtisans.FileUp")
If upl.Form("sended") = "1" Then
Dim updated
updated = 0
Set cnUpd = Server.CreateObject("ADODB.Connection")
cnUpd.Open ConnectionString
If Request.QueryString("del") = "1" Then
Set recParts = Server.CreateObject("ADODB.Recordset")
recParts.Open "Select * From tblOEMParts INNER JOIN tblUCParts ON tblOEMParts.OEMID = tblUCParts.OEMID WHERE tblOEMParts.OEMID IN (" & Upl.Form("OEMIDs") & _
")", cnUpd, 1, 3
While Not recParts.EOF
If upl.Form("d" & recParts("tblOEMParts.OEMID")) <> "" Then
If recParts("Image") <> "" Then
On Error Resume Next
Set objFile = Server.CreateObject("SoftArtisans.FileManager")
objFile.DeleteFile Server.MapPath("../") & "\" & recParts("Image"), True
Set objFile = Nothing
End If
recParts.Delete
recParts.UpdateBatch
updated = 1
End If
recParts.MoveNext
Wend
recParts.Close
Set recParts = Nothing
If updated = 1 Then
Response.Write("")
End If
ElseIf Request.QueryString("upd") = "1" And Upl.Form("OEMIDs") <> "" Then
Set recParts = Server.CreateObject("ADODB.Recordset")
recParts.Open "Select * From tblOEMParts INNER JOIN tblUCParts ON tblOEMParts.OEMID = tblUCParts.OEMID WHERE tblOEMParts.OEMID IN (" & Upl.Form("OEMIDs") & _
")", cnUpd, 1, 3
While Not recParts.EOF
If Upl.Form("up" & recParts("tblOEMParts.OEMID")) <> "" And Trim(Upl.Form("oem" & recParts("tblOEMParts.OEMID"))) <> "" Then
recParts("OEMPart") = Trim(Upl.Form("oem" & recParts("tblOEMParts.OEMID")))
recParts("Abb") = Upl.Form("m" & recParts("tblOEMParts.OEMID"))
recParts("UCPart") = Trim(Upl.Form("ucp" & recParts("tblOEMParts.OEMID")))
If IsNumeric(Trim(Upl.Form("or" & recParts("tblOEMParts.OEMID")))) = True Then
recParts("Order") = CLng(Trim(Upl.Form("or" & recParts("tblOEMParts.OEMID"))))
End If
'recParts("Image") = Trim(Upl.Form("i" & recParts("tblOEMParts.OEMID")))
If upl.Form("i" & recParts("tblOEMParts.OEMID")).IsEmpty = False Then
If recParts("Image") <> "" Then
On Error Resume Next
Set objFile = Server.CreateObject("SoftArtisans.FileManager")
objFile.DeleteFile Server.MapPath("../") & "\" & recParts("Image"), True
Set objFile = Nothing
End If
upl.Path = Server.MapPath("../images")
Dim NewFileNameU
NewFileNameU = "Pa" & recParts("tblOEMParts.OEMID") & _
Mid(upl.Form("i" & recParts("tblOEMParts.OEMID")).UserFilename, InstrRev(upl.Form("i" & recParts("tblOEMParts.OEMID")).UserFilename, "\") + 1)
upl.Form("i" & recParts("tblOEMParts.OEMID")).SaveAs upl.Path & "\" & NewFileNameU
recParts("Image") = "images/" & NewFileNameU
End If
recParts("Usage") = Trim(Upl.Form("us" & recParts("tblOEMParts.OEMID")))
recParts("TipSize") = Trim(Upl.Form("t" & recParts("tblOEMParts.OEMID")))
recParts("BaseStamp") = Trim(Upl.Form("b" & recParts("tblOEMParts.OEMID")))
recParts("Amp") = Trim(Upl.Form("a" & recParts("tblOEMParts.OEMID")))
recParts("Notes") = Trim(Upl.Form("n" & recParts("tblOEMParts.OEMID")))
recParts.UpdateBatch
updated = 1
End If
recParts.MoveNext
Wend
recParts.Close
Set recParts = Nothing
If updated = 1 Then
Response.Write("")
End If
End If
cnUpd.Close
Set cnUpd = Nothing
Set recParts = Nothing
End If
Dim strManufacturers
Set cnUpd = Server.CreateObject("ADODB.Connection")
cnUpd.Open ConnectionString
Set recABBs = Server.CreateObject("ADODB.Recordset")
recABBs.Open "Select * From tblABB", cnUpd, adForwardOnly
strManufacturers = ""
While Not recABBs.EOF
strManufacturers = strManufacturers & ""
recABBs.MoveNext
Wend
recABBs.Close
cnUpd.Close
Set recABBs = Nothing
Set cnUpd = Nothing
%>
Here You can find part and then You can delete it or update founded part
Enter OEMPart or UCPart:
<% If (Request.QueryString("find") = "1" Or Request.QueryString("pg") <> "" Or upl.Form("pg") <> "") And _
( (Trim(Request.QueryString("findTerm")) <> "") Or (Trim(upl.Form("findTerm")) <> "")) Then
Dim iPos, lgID, pageNumber, strFindTerm
If Trim(Request.QueryString("findTerm")) <> "" Then
strFindTerm = Trim(Request.QueryString("findTerm"))
Else
strFindTerm = Trim(upl.Form("findTerm"))
End If
Set cnUpd = Server.CreateObject("ADODB.Connection")
cnUpd.Open ConnectionString
Set recParts = Server.CreateObject("ADODB.Recordset")
recParts.CursorLocation = 3
recParts.Open "Select * From tblOEMParts INNER JOIN tblUCParts ON tblUCParts.OEMID = " & _
"tblOEMParts.OEMID WHERE tblOEMParts.OEMPart LIKE '%" & _
Replace(strFindTerm, "'", "''") & "%' OR " & _
"tblUCParts.UCPart LIKE '%" & Replace(strFindTerm, "'", "''") & "%'", cnUpd, adForwardOnly
recParts.PageSize = 10
If Request.QueryString("pg") <> "" Then
pageNumber = CInt(Request.QueryString("pg"))
ElseIf upl.Form <> "" Then
pageNumber = CInt(upl.Form("pg"))
Else
pageNumber = 1
End If
If Not recParts.EOF Then
recParts.AbsolutePage = pageNumber
End If
%>