<% If Session("logged") <> "1" Then Response.Redirect("login.asp") End If %> <% 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 Set cnUpd = Server.CreateObject("ADODB.Connection") cnUpd.Open ConnectionString Dim updated 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")) If IsNumeric(Trim(Upl.Form("or" & recParts("tblOEMParts.OEMID")))) = True Then recParts("Order") = CLng(Trim(Upl.Form("or" & recParts("tblOEMParts.OEMID")))) End If recParts("UCPart") = Trim(Upl.Form("ucp" & recParts("tblOEMParts.OEMID"))) '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 ElseIf Request.QueryString("new") = "1" And Trim(Upl.Form("txtNewL")) <> "" And _ Trim(Upl.Form("ucp")) <> "" Then Dim OEMID Set recParts = Server.CreateObject("ADODB.Recordset") recParts.Open "Select * From tblOEMParts WHERE OEMID = 0", cnUpd, 1, 3 recParts.AddNew recParts("OEMPart") = Trim(Upl.Form("txtNewL")) recParts("Abb") = Upl.Form("manufacturer") If IsNumeric(Trim(Upl.Form("order"))) = True Then recParts("Order") = CLng(Trim(Upl.Form("order"))) End If OEMID = recParts("OEMID") recParts.Update recParts.Close Set recParts = Nothing Set recParts = Server.CreateObject("ADODB.Recordset") recParts.Open "Select * From tblUCParts WHERE OEMID = 0", cnUpd, 1, 3 recParts.AddNew recParts("UCPart") = Trim(Upl.Form("ucp")) If upl.Form("i").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 NewFileName2 NewFileName2 = "Pa" & OEMID & _ Mid(upl.Form("i").UserFilename, InstrRev(upl.Form("i").UserFilename, "\") + 1) upl.Form("i").SaveAs upl.Path & "\" & NewFileName2 recParts("Image") = "images/" & NewFileName2 End If recParts("Usage") = Trim(Upl.Form("us")) recParts("Notes") = Trim(Upl.Form("n")) recParts("TipSize") = Trim(Upl.Form("t")) recParts("BaseStamp") = Trim(Upl.Form("b")) recParts("Amp") = Trim(Upl.Form("a")) recParts("OEMID") = OEMID recParts.Update recParts.Close Set recParts = Nothing Response.Write("") 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("Manufacturer") & "" recABBs.MoveNext Wend recABBs.Close cnUpd.Close Set recABBs = Nothing Set cnUpd = Nothing %> Here You can add, delete and update OEM and UC parts
<% Dim iPos, lgID, pageNumber 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", 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 If pageNumber > 1 And pageNumber < (recParts.PageCount + 1) Then %> <% End If %> <% If pageNumber < recParts.PageCount Then %> <% End If %> <% If Request.QueryString("pg") <> "" Then %> "> <% ElseIf upl.Form("pg") <> "" Then %> "> <% End If Dim OEMIDs If Not recParts.EOF Then Dim intRecord For intRecord = 1 To 10 %> <% OEMIDs = OEMIDs & recParts("tblOEMParts.OEMID") & ", " recParts.MoveNext If recParts.EOF Then Exit For End If Next If Len(OEMIDs) > 2 Then OEMIDs = Mid(OEMIDs, 1, Len(OEMIDs) - 2) End If End If recParts.Close cnUpd.Close Set cnUpd = Nothing Set recParts = Nothing Set upl = Nothing %>

OEM part:	Manufacturer:
	<%=strManufacturers%>
UC Part:	Tip Size:	Base Stamp:	Amp:
Usage:	Image:	Notes:	Order:
				Previous	Next
OEM Part:	Manufacturer:	Update	Delete
" id=txl type=text value="<%=recParts("OEMPart")%>">	" id=slm><%=Replace(strManufacturers, "value='" & recParts("Abb") & "'", "value='" & recParts("Abb") & "' selected")%>	" id=uc type=checkbox checked>	" id=dc type=checkbox>
UC Part:	Tip Size:	Base Stamp:	Amp:
" id=txp type=text value="<%=recParts("UCPart")%>" maxlength=50>	" id=txt type=text value="<% If Not IsNull(recParts("TipSize")) Then Response.Write(Replace(recParts("TipSize"), """", """))%>" maxlength=50>	" id=txb type=text value="<% If Not IsNull(recParts("BaseStamp")) Then Response.Write(Replace(recParts("BaseStamp"), """", """))%>" maxlength=150 size=12>	" id=txa type=text value="<%=recParts("Amp")%>" maxlength=50 size=12>
Usage:	Image:	Notes:	Order:
" type=text value="<%=recParts("Usage")%>" maxlength=50>	<% If recParts("Image") <> "" Then %> ', '_new', 'width=200, height=200,status=no,toolbar=no,menubar=no,location=no, left=300, top=300');"><%=recParts("Image")%> <% End If %> " type=file>	" value="<%=recParts("Notes")%>" type=text size=12>	" value="<%=recParts("Order")%>" type=text size=12>