找人看看ASP代码!!如果能...

找人看看ASP代码!!如果有人能帮到我!我提功ASP免费空间50M一个!,
不保证稳定不过保证速度!

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if padig <> "" then%>
<%

sqlstr="SELECT Count(作品表.类别名称) AS 类别名称之Count, 作品表.类别名称 as 名 FROM 作品表 GROUP BY 作品表.类别名称 "
rs.Open sqlstr, db,3,2
Set rs1 = server.CreateObject("ADODB.Recordset")
padig=rs.pagesize
rs.AbsolutePage =page
do while not rs.eof and padig > 0
%>
<table width="90%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td><img src="images/a2.gif" width="9" height="12"><%=rs("名")%></td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if padig <> "" then%>
<%

sqlstr="SELECT Count(作品表.类别名称) AS 类别名称之Count, 作品表.类别名称 as 名 FROM 作品表 GROUP BY 作品表.类别名称 "
rs.Open sqlstr, db,3,2
Set rs1 = server.CreateObject("ADODB.Recordset")
padig=rs.pagesize
rs.AbsolutePage =page
do while not rs.eof and padig > 0
%>
<table width="90%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td><img src="images/a2.gif" width="9" height="12"><%=rs("名")%></td>
<td width="49%"><div align="right"><img src="images/more.gif" width="34" height="16"></div></td>
</tr>