This is the result from your search of your engine type

<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\customers\stingray.nu\wwwroot\temp\engine.mdb" If Request.QueryString("ordning") = "castnumber" OR Request.QueryString("ordning")= "modelyear" OR Request.QueryString("ordning") = "cid" Then Set RecSet = Server.CreateObject("ADODB.Recordset") If Request.QueryString("ordning") = "castnumber" Then Addera = "SELECT * FROM castnumber ORDER BY castnumber" ElseIf Request.QueryString("ordning") = "modelyear" Then Addera = "SELECT * FROM castnumber ORDER BY modelyear" ElseIf Request.QueryString("ordning") = "cid" Then Addera = "SELECT * FROM castnumber ORDER BY cid" End If RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

Cast Number:

Model Year:

CID:

Type:

<% Do Until RecSet.EOF %>

<%= RecSet("castnumber")%>

<%= RecSet("modelyear")%>

<%= RecSet("cid")%>

<%= RecSet("type")%>

<% RecSet.MoveNext Loop RecSet.Close Connect.Close End If %>

Search in another order