<%@ Language=VBScript %> <%Session("Velocity") = Request.QueryString("Velocity")%> <% Dim Conn Dim strSQL Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open "driver={SQL Server};server=216.122.41.34;database=afefilters802;uid=afefilters802;pwd=inc990421" strSQL ="Select distinct FlangeIN, FlangeMM from Universal where Velocity='" & Session("Velocity") & "'" 'Response.Write strSQL %>

<%If Request.QueryString("Velocity")="Y" Then Session("Velocity") = "Y" set rs = conn.execute(strSQL) rs.MoveFirst%> <%Elseif Request.QueryString("Velocity")="N" Then Session("Velocity") = "N" set rs = conn.execute(strSQL) rs.MoveFirst%> <%Else%> <%End If%>   Search For Your Universal Filter   Full Velocity Stack Flange Inside Diameter: Select ID <%Do While Not rs.EOF%> "><%=rs("FlangeIN")%>in (<%=rs("FlangeMM")%>mm) <%rs.MoveNext Loop rs.Close set rs=Nothing%> Modified Velocity Stack Flange Inside Diameter: Select ID <%Do While Not rs.EOF%> "><%=rs("FlangeIN")%>in (<%=rs("FlangeMM")%>mm) <%rs.MoveNext Loop rs.Close set rs=Nothing%> Are you looking for an Universal Filter   Full Velocity Stack or Modified Velocity Stack		<%ElseIf Session("Velocity") = "N" then%> <%Else%> <%End If%> <%If Session("Velocity") = "Y" then%>
These filters are legal ONLY for racing vehicles. Not applicable, nor intended for use on emission controlled street of highway vehicles. These filters are not applicable, not intended for use on aircraft.