Specials from D.S.P. Inc.

 

<% If IsObject(Session("DSPInc")) Then Set conn = Session("DSPInc") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSPInc","","" Set Session("Doctors") = conn End If sql = "Select * FROM Products WHERE OnSpecial = -1 AND ShowIt = -1 ORDER BY Description" set RS = conn.Execute(sql) if NOT RS.EOF then RS.MoveFirst response.write("

AS/400 Hardware Deals" & CHR(13) & CHR(10)) response.write("for " & MonthName(Month(Date())) & "

" & CHR(13) & CHR(10)) response.write("

This month, D.S.P. Inc. has the following hardware specials on new" & CHR(13) & CHR(10)) response.write("AS/400e models:

" & CHR(13) & CHR(10)) response.write("
" & CHR(13) & CHR(10)) response.write("" & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) do while NOT RS.EOF response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) response.write(" " & CHR(13) & CHR(10)) RS.MoveNext loop response.write("
DescriptionMemoryHard DiskCPWOur PriceList Price
" & RS("Description") & "" & RS("RAM") & "" & RS("HDD") & "" & RS("CPU") & "" & FormatCurrency(RS("Price"),2,TristateTrue,TristateTrue) & "" & FormatCurrency(RS("List"),2,TristateTrue,TristateTrue) & "
" & CHR(13) & CHR(10)) response.write("
" & CHR(13) & CHR(10)) end if %>
If you would like information on these products sent to you,
click here for our automated information request form,
or call us directly at (800) 755-3774
  
Home  | Specials | Web Design | AS/400 News | Site Index
Better AS/400 answers
Distributed Systems Professionals, Inc. 7071 Warner Blvd., Suite F, Huntington Beach, CA 92647
U.S.A Toll Free: (800) 755-3774 Tel: (714) 926-6789 Fax: (800) 878-6874

Email: Sales

Copyright © 2008 Distributed Systems Professionals, Inc. All rights reserved.
Information and prices are subject to change without notice. Other products and companies referred to herein
are trademarks or registered trademarks of their respective companies or mark holders.