CUSTOMER LOGIN
|
REGISTER
|
CART
|
HELP
| TOLL FREE 1.877.534.4278
PRODUCT SEARCH
<% SQL = "SELECT * FROM News ORDER BY NewsDate DESC" RS.Open SQL, RMSConn, adOpenStatic, adLockReadOnly, adCmdText %>
<% Do While Not RS.EOF AND howmanyrecs
" Response.Write "
" & RS("NewsTitle") & "
" Response.Write Replace(Mid(RS("NewsText"),1,200),Chr(10),"
") & "...
" If RS("NewsURL") <> "" Then Response.Write "
" & RS("NewsLinkText") & "
" End If Response.Write "
Read Full Article
" Response.Write "
" howmanyrecs=howmanyrecs+1 RS.MoveNext Loop rs.close set rs=nothing Call PageNavBar %>
CUSTOMER LOGIN
|
REGISTER
|
CART
|
HELP
| TOLL FREE 1.877.534.4278
PRODUCT SEARCH
Web Site Developed and Managed by
Research Management Strategies LLC