<% '------------------------------------------------- ' ' (c) 1999 MicroSolutions. All Rights Reserved. ' ' This code may not be modified, copied or altered ' in any way without permission. '------------------------------------------------- Dim PartNumber Dim SQL %> Lasmer
<%If Request.Form("PartNumber") = "" Then%> Parts Search

Enter Part#:

<%Else%> <% PartNumber = Request.Form("PartNumber") SQL = "SELECT * FROM Items WHERE PartNumber='" & PartNumber & "'" Set RS=Server.CreateObject("ADODB.Recordset") ConnectMe="DSN=Lasmer;UID=Inventory;PWD=" RS.Open SQL, ConnectMe, 3 %> <%If RS.RecordCount <= 0 Then%> <%RS.Close%> <%Set RS = Nothing%> Record Not Found

Enter New Part#:

<%Else%> Part Number: <%=RS("PartNumber")%> Found

<%Do Until RS.EOF%> Part Number: <%=RS("PartNumber")%>
NSN: <%=RS("NSN")%>
Quantity in Stock: <%=RS("QuantityInStock")%>
Unit of Measure: <%=RS("UnitOfMeasure")%>
Description: <%=RS("Description")%>
Price: <%=RS("Price")%>

<%RS.MoveNext%> <%Loop%> <%RS.Close%> <%Set RS = Nothing%> <%End If%> <%End If%>

  ©1999 Lasmer