|
American Beauty &
Wellness
Procedures | Prescription Weight Loss
|
|
<%
art_chr=1250
articleID=Request("articleID")
RS.Open "SELECT ID,title,pubdate,body " & _
" FROM abaw_article " & _
" WHERE abaw_procedure_ID = " & Request("abaw_procedure_ID") & " " & _
"ORDER BY pubdate DESC", Conn1
articleID=RS("ID")
title=RS("title")
'body=Replace(RS("body"),vbCrLf,"
")
body=mid(RS("body"),1,1250)
Do While TmpStr <> " "
TmpStr=mid(body,art_chr,1)
art_chr=art_chr-1
Loop
body=MID(body,1,art_chr)
body=Replace(body,vbCrLf,"
")
RS.Close
%>Latest News (">more
news) |
|
<%=title%>
<%=body%> |
|
|
|
|
<%
RS.Open "SELECT ID,category,procedure,siteurl " & _
" FROM abaw_procedure " & _
" ORDER BY category,procedure ", Conn1
WHILE NOT RS.EOF
%>
?abaw_procedure_ID=<%=RS("ID")%>"><%=RS("procedure")%>
<%
RS.MoveNext
IF NOT RS.EOF THEN Response.Write " | "
WEND
RS.Close
%>
Latest Prescription Weight Loss News
<%
IF Request("abaw_procedure_ID")="" THEN
abaw_procedure_ID=18
ELSE
abaw_procedure_ID=Request("abaw_procedure_ID")
END IF
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)
body=Replace(body,"","")
body=Replace(body,"","")
body=Replace(body,"http://","")
body=Replace(body," |
<%=title%>
<%=body%>... |
|
<%
RS.MoveNext
WEND
RS.Close
%>
|
|
|
