对夹式蝶阀安装:asp中fso问题.望大家帮我看看..

大家看一下我的fso生成html 我在//////////里是这个企业在这个数据库的其他产品.但是我只读出了一个.不知道该着么改.....

大家帮我看看啊 .................

<%
dim tl
tl=0
sql="select top 1 * from newproduct "
'set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
do while not rs.eof
%>

<%

CPMC=rs("p_name")
GNTD=rs("gntd")
CPCF=rs("qiye")
tid=rs("tid")
%>

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set type_d = fso.opentextfile(server.mappath("html/xpzs/xcpzs.html"),1,True)
pencat= type_d.ReadAll

//////////////这是读出一个企业。用do 来找同时是qiye这个的p_name字段///////////
sql1="select * from newproduct where qiye like '"&CPCF&"' "
'set rs1=server.createobject("adodb.recordset")
set rs1=conn.execute(sql1)
do while not rs1.eof

CPGG="<a href='xcpzs_list.asp?id="&rs1("tid")&"'>"&rs1("p_name")&"</a><br />"
pencat=replace(pencat,"CPGG",CPGG)
rs1.movenext
loop
/////////////////////////结束////////////////////////////////////////////////
pencat=replace(pencat,"LC",LC)
pencat=replace(pencat,"CPMC",CPMC)
pencat=replace(pencat,"CPCF",CPCF)
pencat=replace(pencat,"GNTD",GNTD)

Set type_x = fso.CreateTextFile(server.mappath("html/xpzs/"&tid&".htm"),true)
type_x.WriteLine pencat
set fso = nothing
type_d.close
type_x.close
%>

<%
tl=tl+1
rs.movenext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing

%>