|
American Beauty &
Wellness
Recent articles and press releases.
Topics:
<%
RS.Open "SELECT ID,category,procedure " & _
" FROM abaw_procedure " & _
" ORDER BY category,procedure ", Conn1
WHILE NOT RS.EOF
%>
"><%=RS("procedure")%>
<%
RS.MoveNext
IF NOT RS.EOF THEN Response.Write " | "
WEND
RS.Close
%>
<%
art_chr=250
RS.Open "SELECT ID,title,pubdate,body " & _
" FROM abaw_article " & _
" WHERE abaw_procedure_ID = " & abaw_procedure_ID & " " & _
" ORDER BY pubdate DESC ", Conn1
WHILE NOT RS.EOF
articleID=RS("ID")
title=RS("title")
'body=Replace(RS("body"),vbCrLf," ")
'body=(Mid(body,1,255))
body=mid(RS("body"),1,250)
Do While TmpStr <> " "
TmpStr=mid(body,art_chr,1)
art_chr=art_chr-1
Loop
body=MID(body,1,art_chr)
%> |
<%=title%>
<%=body%>... |
|
<%
RS.MoveNext
WEND
RS.Close
%>
|
|