Spacecraft Components Corp.

Search our Parts Inventory Database
Enter your part number and click the Search button. A list of parts and the quantity we have in stock will be returned. The part number you entered, or the closest number to that part, will be in the middle of the list in bold type. Incomplete part numbers will be considered to have trailing wildcards.

<%@ LANGUAGE="VBSCRIPT" %> <% if isempty(request.form("submit"))then else p1 = trim(request.form("keywords")) p2 = UCase(p1) part = replace(p2,"-","") set Conn= Server.CreateObject("ADODB.Connection") Conn.Open "otherdata", "bill", "bass" set RS2 = Server.CreateObject("ADODB.Recordset") with RS2 .Source = "SELECT TOP 6 Col001, Col002, Col003 FROM inventory WHERE Col004 <" & "'" & part & "'" & "Order by Col004 DESC" .ActiveConnection = Conn .CursorType = 0 .LockType = 1 .Open end with set Conn= Server.CreateObject("ADODB.Connection") Conn.Open "otherdata", "bill", "bass" set RS = Server.CreateObject("ADODB.Recordset") with RS .Source = "SELECT TOP 7 Col001, Col002, Col003 FROM inventory WHERE Col004 >=" & "'" & part & "'" & "Order by Col004 ASC" .ActiveConnection = Conn .CursorType = 0 .LockType = 1 .Open end with end if %> <% if isempty(request.form("submit")) then %> <% else %> Part Searched: <% Response.Write p2 %>

<% if RS.EOF then %> Exact match not found <% end if %> <% end if %> <% if isempty(request.form("submit")) then %> <% else %>

<% do while not RS2.EOF %> <% RS2.MoveNext %> <% loop %>

	Part Number	Description	Quantity
	<% response.write RS2("col001") %>	<% response.write RS2("col002") %>	<% response.write RS2("col003") %>
Closest Match	<% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.Move 1 %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.MoveNext %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.MoveNext %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.MoveNext %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.MoveNext %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>
	<% RS.MoveNext %><% response.write RS("col001") %>	<% response.write RS("col002") %>	<% response.write RS("col003") %>

<% end if %>