<% Response.Buffer = True On Error Resume Next ' Get Product list from DB set objConnect = server.createobject("adodb.connection") objConnect.open "DRIVER={SQL Server};server=sql.interbaun.com;Database=emsl;UID=emsl;PWD=emsl.005;" Dim strProductGroup, strHPO, strHP, strRPMO, strRPM, strVOLTO, strVOLT, strMake Dim blnSearch blnSearch = False if Request.QueryString("s") <> "" Then strMake = Request.QueryString("s") : blnSearch = True if Request.QueryString("HP") <> "" Then strHP = Request.QueryString("HP") if IsNumeric(strHP) then blnSearch = True Else strHP = "" End if if Request.QueryString("RPM") <> "" Then strRPM = Request.QueryString("RPM") if IsNumeric(strRPM) then blnSearch = True Else strRPM = "" End if if Request.QueryString("VOLT") <> "" Then strVOLT = Request.QueryString("VOLT") if IsNumeric(strVOLT) then blnSearch = True Else strVOLT = "" End If if Request.Querystring("pg") <> "" Then strProductGroup = Request.Querystring("pg") : blnSearch = True strHPO = Request.Querystring("HPO") strRPMO = Request.Querystring("RPMO") strVOLTO = Request.Querystring("VOLTO") if blnSearch Then Dim strSearch strSearch = Request.QueryString("s") ' Search SQL Statement sql = "SELECT PRODUCT_GROUP.pgs_name, PRODUCT.prn_id, PRODUCT.prs_name, " &_ " PRODUCT.prs_brand_name, PRODUCT.prn_quantity, PRODUCT.prs_model_no, " &_ " PRODUCT.prn_hp, PRODUCT.prs_triple_rate, PRODUCT.prs_voltage, PRODUCT.prn_rpm, " &_ " PRODUCT.prs_frame, PRODUCT.prs_description, PRODUCT.prs_new_reconditioned, PRODUCT.prn_price " &_ " FROM PRODUCT INNER JOIN " &_ " PRODUCT_GROUP ON " &_ " PRODUCT.pgn_id = PRODUCT_GROUP.pgn_id " &_ " WHERE (PRODUCT.prl_active = 1) " If strHP <> "" then sql = sql & " AND PRODUCT.prn_hp " & strHPO & " " & strHP & " " If strRPM <> "" then sql = sql & " AND (PRODUCT.prn_rpm " & strRPMO & " " & strRPM & " OR PRODUCT.prn_quantity " & strRPMO & " " & strRPM & " )" If strVOLT <> "" then sql = sql & " AND PRODUCT.prs_voltage " & strVOLTO & " " & strVOLT & " " If strMake <> "" then sql = sql & " AND PRODUCT.prs_brand_name LIKE '%" & strMake & "%' " If strProductGroup <> "" then sql = sql & " AND PRODUCT_GROUP.pgn_id = " & strProductGroup sql = sql & " ORDER BY PRODUCT.prn_hp" Else sql = "SELECT PRODUCT_GROUP.pgs_name, PRODUCT.prn_id, PRODUCT.prs_name, " &_ " PRODUCT.prs_brand_name, PRODUCT.prn_quantity, PRODUCT.prs_model_no, " &_ " PRODUCT.prn_hp, PRODUCT.prs_triple_rate, PRODUCT.prs_voltage, PRODUCT.prn_rpm, " &_ " PRODUCT.prs_frame, PRODUCT.prs_description, PRODUCT.prs_new_reconditioned, PRODUCT.prn_price " &_ " FROM PRODUCT INNER JOIN " &_ " PRODUCT_GROUP ON " &_ " PRODUCT.pgn_id = PRODUCT_GROUP.pgn_id " &_ " WHERE (PRODUCT.prl_active = 1) " If strProductGroup <> "" then sql = sql & " AND PRODUCT_GROUP.pgn_id = " & strProductGroup sql = sql & " ORDER BY PRODUCT.prn_hp" End If 'Response.Write(sql) 'Response.End() %> [an error occurred while processing this directive] [an error occurred while processing this directive]   [an error occurred while processing this directive]
Surplus Motors
  Surplus Motors <% If strProductGroup <> "" then Select Case strProductGroup Case "1" Response.Write( " - Motors" ) Case "2" Response.Write( " - Pumps" ) Case "3" Response.Write( " - Welders" ) End Select End if %>
Search by any combination.
HP RPM Voltage Make Type
<% Set RS = objConnect.Execute(sql) While Not RS.EOF strOut = strOut & " " & vbCrLf ' HP strOut = strOut & " " & vbCrLf ' RPM strOut = strOut & " " & vbCrLf ' Voltage strOut = strOut & " " & vbCrLf ' Enclosure (in Database as Price) strOut = strOut & " " & vbCrLf ' Frame strOut = strOut & " " & vbCrLf ' Make (aka Brand Name) strOut = strOut & " " & vbCrLf ' New or Reconditioned strOut = strOut & " " & vbCrLf ' Ref Info (aka Model) strOut = strOut & " " & vbCrLf ' End Row strOut = strOut & " " & vbCrLf Response.Write(strOut) strOut = "" RS.MoveNext WEnd strOut = strOut & "
HP
RPM
Volt
Encl.
Frame
Make
Condition
Ref. Info
" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" If RS("prs_triple_rate") <> "" Then strOut = strOut & RS("prs_triple_rate") Else strOut = strOut & RS("prn_hp") End if strOut = strOut & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" & RS("prn_rpm") & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" & RS("prs_voltage") & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" if RS("prn_price") = "NULL" then strOut = strOut & " " Else strOut = strOut & RS("prn_price") End if strOut = strOut & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" & RS("prs_frame") & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" & RS("prs_brand_name") & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" if UCase(RS("prs_new_reconditioned")) = "NE" Then strOut = strOut & "New" Elseif UCase(RS("prs_new_reconditioned")) = "OK" Then strOut = strOut & "E.OK" Elseif UCase(RS("prs_new_reconditioned")) = "RC" Then strOut = strOut & "Recond." Else strOut = strOut & "Used" End if strOut = strOut & "
" & vbCrLf strOut = strOut & " 		" & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & " " & vbCrLf strOut = strOut & "
" & RS("prs_model_no") & "
" & vbCrLf strOut = strOut & "
" & vbCrLf Response.Write(strOut) RS.Close : Set RS = Nothing 'sql2 = "SELECT pgn_id, pgs_name FROM PRODUCT_GROUP WHERE PGL_ACTIVE = 1 ORDER BY PGS_NAME" 'Set rs2 = objConnect.Execute(sql2) 'strOptions = "" 'While not rs2.Eof ' strOptions = strOptions & "" & vbCrLf ' rs2.MoveNext ' Wend ' rs2.Close : Set rs2 = Nothing ' objConnect.Close : Set objConnect = Nothing %>