");
lenth then
cutstr=left(str,lenth)& ".."
else
cutstr=str
end if
end function
set rs=server.createobject("adodb.recordset")
sql="select top 3 Domain_1,NameEn,NameEn_1,KeyWord from stonecolor_product_data where templateid<=18 "'2011-4-15 Ð޸ĵôËæ»úorder by newid()"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
txtcontent=cutstr(rs("KeyWord"),35)
if txtcontent="" then
txtcontent=cutstr(rs("NameEn_1"),35)
end if
if trim(txtcontent)="" then
txtcontent="China Stone Supplier, Manufacturer, Exporter"
end If
%>
document.writeln("
");
document.writeln("
");
document.writeln("
<%=txtcontent%>
");
document.writeln("
");
document.writeln("
");
<%
rs.MoveNext
loop
end if
rs.Close
set rs=nothing
?>
document.writeln("