<%
image1="not.gif"
sTableName = "Company"
strSQL = "SELECT * FROM " &sTableName& " where DISPLAY='Yes' and Store_NO='"&session("store_NO")&"' order by Postdate DESC"
Set DataRec = Server.CreateObject("ADODB.RecordSet")
DataRec.Open strSQL, DataConn
if not datarec.eof then
TITLE=trim(Datarec("TITLE"))
BRIEFDESCRIPTION=trim(Datarec("BRIEFDESCRIPTION"))
DESCRIPTION=trim(Datarec("DESCRIPTION"))
POSTDATE=trim(Datarec("POSTDATE"))
image1=trim(Datarec("image1"))
if isNull(datarec("image1")) or image1="" then image1="not.gif"
end if
if not description = "" then
if instr(ucase(description ),"")
end if
' if len(description )>400 then description =left(description ,400)&" ..."
end if
DataRec.close
set DataRec = nothing
%>
<%=DESCRIPTION%>