<% 'Validate parameters, up to 3 characters Cls = RegExResults(Request.QueryString("Class"), "(^[a-zA-Z/d//]{1,6})|(?:[\s\S])", "$1") if Cls > "" Then %><% cmd.CommandText = "dbo.getAirReg_By_Class" cmd.CommandType = 4 'adCmdStoredProc cmd.Parameters.append cmd.createParameter("@Filter", 200 , 1, 6, Cls) 'Execute the stored procedure Set RS = cmd.Execute If Not RS.EOF Then%>

Aircraft Registration for: <%=RS("Aircraft_Classification")%>

Aircraft History Enquiries

Reg
Mark
Man. Model Serial No MCTOW
(kg)
Name And Address
<%=RS("Registration_Mark")%> <%=RS("ManfModel")%> <%=RS("Serial_Number")%> <%=RS("MCTOW")%> <%=RS("NameAndAddress")%>
<%Else%>

Sorry no aircraft of that type currently registered

<%End If%> <% RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing Else%>

Sorry no aircraft of that type currently registered

<%End If%>

back