<%
If Session("logged") <> "1" Then
Response.Redirect("login.asp")
End If
%>
View/Edit Part
<%
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")
%>
Here You can view and edit OEM and UC parts
| OEM Part: | UC Part: | |
<%
Set cnUpd = Server.CreateObject("ADODB.Connection")
cnUpd.Open ConnectionString
Set recParts = Server.CreateObject("ADODB.Recordset")
recParts.Open "Select * From tblOEMParts INNER JOIN tblUCParts ON tblUCParts.OEMID = " & _
"tblOEMParts.OEMID", cnUpd, adForwardOnly
If Not recParts.EOF Then
While Not recParts.EOF
%>
| <%=recParts("OEMPart")%> | <%=recParts("UCPart")%> | ">Edit |
<%
recParts.MoveNext
Wend
End If
recParts.Close
cnUpd.Close
Set cnUpd = Nothing
Set recParts = Nothing
Set upl = Nothing
%>