<%if request("submit")="<-- Back" then response.redirect(request("backto"))%>

:: <%response.write(weekdayname(weekday(now()))&" "&day(now())&" "&monthname(month(now()))&" "&year(now()))%>

<% page = 1 badfields = "" if request("submit") = "Continue -->" then page = 2 if trim(request("manufacturer")) = "" then badfields = badfields & "gearbox manufacturer, " page = 1 end if if not isnumeric(request("horsepower")) then badfields = badfields & "engine horse-power, " page = 1 elseif request("horsepower") = "0" then badfields = badfields & "engine horse-power, " page = 1 end if if not isnumeric(request("enginespeed")) then badfields = badfields & "engine speed, " page = 1 elseif request("enginespeed") = "0" then badfields = badfields & "engine speed, " page = 1 end if end if %> <% if page = 1 then %><% end if %> :: Click here to view Select: <% if badfields <> "" then %> You must specify the <%=left(badfields,instrrev(badfields,",")-1)%> before you can continue. <% end if %> <% if page = 1 then %> Engine Horsepower: ">   Engine Speed: ">   Please Select Gearbox Manufacturer: -- Select -- <% sqlquery="select distinct manufacturer from tbl_ddp_gearbox" set results=session("conn").execute(sqlquery) do while not results.eof response.write(""&results("manufacturer")&""&vbCr) results.movenext loop %> <% else %> Gearbox Manufactuer: <%=request("manufacturer")%> <% torque=(request("horsepower")/request("enginespeed"))*5250 torque2=(cint(request("horsepower"))/cint(request("enginespeed")))*7123 %> Torque: <%=formatnumber(torque,2)%>lbft or <%=formatnumber(torque2,2)%>Nm Maximum Torque: lbft Nm (Filter out all element's with torque less than the value specified above) Please select a model:  <% sqlquery="select * from tbl_ddp_gearbox where manufacturer='"&replace(request("manufacturer"),"'","''")&"';" set results=session("conn").execute(sqlquery) do while not results.eof response.write(""&results("model")&""&vbCr) results.movenext loop %> "> <% end if %> <% lasturl = request.ServerVariables("HTTP_REFERER") if instr(lasturl,"?") > 0 then lasturl = left(lasturl,instr(lasturl,"?")-1) lasturl = lasturl & "?horsepower="&request("horsepower")&"&enginespeed="&request("enginespeed")&"&manufacturer="&server.urlencode(request("manufacturer")) if request.ServerVariables("HTTP_REFERER") = lasturl then lasturl = "/default.asp" %>