<% results = request.Form("model") Set oConn = Server.CreateObject("ADODB.Command") MM_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + Server.MapPath("../bubbainfo.mdb") oConn.ActiveConnection = MM_STRING set secRS=Server.CreateObject("ADODB.Recordset") secRS.CursorType = 3 secRS.LockType = 3 set oRS=Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.LockType = 3 qryStr = "SELECT model FROM pump" oConn.commandText = qryStr oRS.open oConn if not oRS.EOF then while not oRS.EOF customarray = customarray & ",'" & oRS.Fields("model") & "'" oRS.MoveNext wend end if customarray = Mid(customarray,2) oRS.close %> Bubba Pump
Bubba Pump
Register Your Product

Owner's Manuals

Model:
<% if results <> "" then qryStr = "SELECT * FROM pump WHERE model = '"&results&"' AND manual <> ''" oConn.commandText = qryStr oRS.open oConn if not oRS.EOF then %>

Manuals for model <%=results%>

<% while not oRS.EOF %> <% if oRS.Fields("pump_model") <> "" then secStr = "SELECT * FROM pump WHERE model = '"&oRS.Fields("pump_model")&"' AND manual <> ''" oConn.commandText = secStr secRS.open oConn if not secRS.EOF then %> <% end if secRS.close end if oRS.movenext wend %>
" target="_blank">Manual<%=oRS.Fields("model")%>
" target="_blank">Manualpump included in package
<% else %>

No manuals found for the model <%=results%>.

<% end if oRS.close end if %>
© 2007 Bubba Pump PH: 651-487-0378   FX: 651-487-7279