一个ASP网页

最新推荐文章于 2024-06-03 00:28:22 发布

iteye_6481

最新推荐文章于 2024-06-03 00:28:22 发布

阅读量234

点赞数

文章标签： javascript ViewUI

<meta name="keywords" content=" 海外华人征婚,西方男士征婚,白领征婚,红娘婚介，交友，国际爱情，国际婚姻，欧洲华人，德国华人，大陆女人，香港交友，香港征婚，台湾交友，台湾征婚，美女征婚，富人征婚，老百姓征婚，恋爱技巧，成功案例， " /> <meta name="description" content=" 凤凰国际婚恋交友网，中国最严肃的征婚交友网，成立十多年来，真诚为中国单身男女和海外华人服务，获得客户的好评，有极好的信誉。 " /> <% 'response.write(session("username")) 'dim jjjjj 'jjjjj=date() 'response.write(format(jjjjj,'yyyy-mm-dd')) 'format(now(),'yyyy/mm/dd hh:mm:ss') dim zxzffs dim zxzfje zxzffs=request("zffs") zxzfje=request("je") dim rs dim gsjs dim zhwh dim zxdtmc(5) dim zxdtid(5) dim i dim hyalmc(6) dim hyalid(6) dim ozzhmc(6) dim ozzhid(6) dim jdwdmc(6) dim jdwdid(6) dim myhzp dim wyhzp dim sql_m '顶部照片男 dim sql_w '顶部照片女 dim rs_m dim rs_w dim wzzwmc '网站名称 dim cgltp '成功率照片 '成功率图片 sql="select CGTP from FH_CGTP" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof cgltp=rs("CGTP") rs.movenext if rs.eof then exit do loop rs.close set rs=nothing '网站名称 sql="select ZWMC from FH_WZMC" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof wzzwmc=rs("ZWMC") rs.movenext if rs.eof then exit do loop rs.close set rs=nothing '顶部照片男 sql_m="select top 30 ZPDZ from FH_HYZP_SH where XB='0' and SYTP='1' and ZPDZ<>null" set rs_m=conn_znx.execute(sql_m) if Err.number<>0 then response.write(wrong) end if '顶部照片女 sql_w="select top 30 ZPDZ from FH_HYZP_SH where XB='1' and SYTP='1' and ZPDZ<>null" set rs_w=conn_znx.execute(sql_w) if Err.number<>0 then response.write(wrong) end if '公司介绍 sql="select ZWJJ from FH_GSJS order by ID desc" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof gsjs=rs("ZWJJ") if gsjs<>"" then exit do end if rs.movenext if rs.eof then exit do loop rs.close set rs=nothing gsjs=left(gsjs,175) '中华文化 sql="select top 1 ZWJJ from FH_WHJS " set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof zhwh=rs("ZWJJ") rs.movenext if rs.eof then exit do loop zhwh=left(zhwh,446) rs.close set rs=nothing 'response.write("1") '最新动态 sql="select top 5 ZWMC,ID from FH_ZXDT order by ID desc" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if i=0 do while not rs.eof if i= 5 then exit do end if zxdtmc(i)=rs("ZWMC") zxdtid(i)=rs("ID") i=i+1 rs.movenext if rs.eof then exit do loop rs.close set rs=nothing i=0 '国际婚姻与爱情 sql="select top 7 ID,ZWMC from FH_GJAQ" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof if i= 6 then exit do end if hyalmc(i)=rs("ZWMC") hyalid(i)=rs("ID") i=i+1 rs.movenext if rs.eof then exit do loop rs.close set rs=nothing i=0 '纵横欧洲 sql="select top 7 ID,ZWMC from FH_OZZH" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof if i= 6 then exit do end if ozzhmc(i)=rs("ZWMC") ozzhid(i)=rs("ID") i=i+1 rs.movenext if rs.eof then exit do loop rs.close set rs=nothing i=0 '经典问答 sql="select top 7 ID,ZWMC from FH_GJHY" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if do while not rs.eof if i= 6 then exit do end if jdwdmc(i)=rs("ZWMC") jdwdid(i)=rs("ID") i=i+1 rs.movenext if rs.eof then exit do loop rs.close set rs=nothing i=0 'msn dim msndz dim msn_t sql="select MC,NC from FH_MSN" set rs=conn.execute(sql) if Err.number<>0 then response.write(wrong) end if dim zwnc %> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8"> <HTML> <HEAD> <TITLE><%=wzzwmc%>首页</TITLE> </HEAD> <script language="javascript" src="include/md5.js"></script> <script language="javascript"> function dhome() { window.location.href="index.asp"; } function dparty() { window.location.href="zxhd.asp"; } function dtrans() { window.location.href="fysf.asp"; } function dchina() { window.location.href="zhwh.asp"; } function dsuccess() { window.location.href="cgal.asp"; } function dvisa() { window.location.href="qzzx1.asp"; } function dmarry() { window.location.href="hyal.asp"; } function dask() { window.location.href="jdwd.asp"; } function deurope() { window.location.href="ozzp.asp"; } function dcooprate() { window.location.href="hzjm.asp"; } function dpay() { window.location.href="zxzf.asp"; } function doffer() { window.location.href="rczp.asp"; } function dcontact() { window.location.href="lxwm.asp"; } function ddnew(id) { window.location.href="zxhd.asp?ID="+id; } function ddmarry(id) { window.location.href="dhyal.asp?ID="+id } function ddeurope(id) { window.location.href="dozzp.asp?ID="+id } function ddask(id) { window.location.href="djdwd.asp?ID="+id; } function dregist() { window.location.href="fwtk.asp"; } function dhydr() { var zxzfje; var zxzffs; zxzfje="<%=zxzfje%>"; zxzffs="<%=zxzffs%>"; if(document.all.mc.value=='') { alert('请输入用户名'); document.all.mc.focus(); return false; } if(document.all.mm.value=='') { alert('请输入密码'); document.all.mm.focus(); return false; } window.location.href="checkuser.asp?user="+escape(document.all.mc.value)+"&passwd="+hex_md5(document.all.mm.value)+"&zxzffs="+zxzffs+"&zxzfje="+zxzfje; } function dend() { window.location.href="quit.asp"; } function dhyzx() { window.location.href="yhzx.asp"; } function dgsjs() { window.location.href="gsjs.asp"; } function dmxhy() { window.location.href="nxhy.asp"; } function dwxhy() { window.location.href="vxhy.asp"; } function xzmm() { window.location.href="xzmm.asp"; } </script> <BODY leftmargin=0 topmargin=0> <center> <form name="main" action="" method="post"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD background="image/layout-sy-img-1-1.png" WIDTH="1004" HEIGHT="208"> <embed src="swf/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="1004" wmode="transparent" height="100%"> </embed> </TD> </TR> <TR> <TD WIDTH="1004" HEIGHT="868"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="868"> <TR> <TD background="image/layout-sy-img-1-1-1.png" WIDTH="1004" HEIGHT="10"></TD> </TR> <TR> <TD background="image/layout-sy-img-1-2-1.png" WIDTH="1004" HEIGHT="156"> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="156"> <tr> <td width=40> </td> <td width=924 height=156> <marquee width=924 height=146 align=mmiddle direction="right" behavior=alternate loop=-1 scrollamount=3 scrolldelay=3 hspace=8 vspace=5 onMouseOver="this.stop()" onMouseOut="this.start()"> <% do while not rs_w.eof wyhzp=rs_w("ZPDZ") %> <img src="<%=wyhzp%>" width=130 height=140> <% rs_w.movenext if rs_w.eof then exit do loop rs_w.close set rs_w=nothing %> </marquee> </td> <td width=40> </td> </tr> </table> </TD> </TR> <TR> <TD background="image/layout-sy-img-1-3-1.png" WIDTH="1004" HEIGHT="24"></TD> </TR> <TR> <TD WIDTH="1004" HEIGHT="470"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="470"> <TR> <TD background="image/layout-sy-img-2-1-1.png" WIDTH="38" HEIGHT="470"></TD> <TD WIDTH="244" HEIGHT="470"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="470"> <TR> <TD background="image/layout-sy-img-3-1-1.png" WIDTH="244" HEIGHT="9"></TD> </TR> <TR> <TD background="image/layout-sy-img-3-2-1.png" WIDTH="244" HEIGHT="33"></TD> </TR> <TR> <TD background="image/layout-sy-img-3-3-1.png" WIDTH="244" HEIGHT="11"></TD> </TR> <TR> <TD WIDTH="244" HEIGHT="130"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="130"> <TR> <TD background="image/layout-sy-au-img-1-1.png" WIDTH="244" HEIGHT="96" valign=top> <% if (session("username"))="" or isnull((session("username"))) then %> <font size=2 color="#eb44e4" style="cursor:hand" οnclick="javascript:xzmm()"><b>忘记密码</b></font> <% end if %> <br><br> <% if (session("username"))="" or isnull((session("username"))) then %> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" > <tr> <td align=right> <font size=2>用户名:</font> </td> <td width=155> <input type="text" name="mc" value="" size=15 maxlength="255"> </td> </tr> <tr> <td align=right> <font size=2>密码:</font> </td> <td width=155> <input type="Password" name="mm" value="" size=15 maxlength="255"> </td> </tr> </table> <%else %> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" > <tr> <td width=80> </td> <td> <font size=2>用户名:<%=session("username")%></font> </td> </tr> <td width=80> </td> <td> <font size=2>等级: <% if session("dj")="0" and session("sh")="1" then %> 普通会员 <% elseif session("dj")="1" and session("sh")="1" then %> 黄金会员 <% elseif session("dj")="2" and session("sh")="1" then %> 钻石会员 <% elseif session("dj")="0" and session("sh")="0" then %> 未审核会员 <% end if %> </font> </td> </tr> </table> <% end if %> </TD> </TR> <TR> <TD WIDTH="244" HEIGHT="18"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="18"> <TR> <TD background="image/layout-sy-au1-img-1-1.png" WIDTH="48" HEIGHT="18"></TD> <% if session("username")="" or isnull(session("username")) then %> <TD background="image/layout-sy-au1-img-1-2.png" WIDTH="70" HEIGHT="18" style="cursor:hand" onClick="javascript:dregist()"></TD> <% else %> <TD WIDTH="70" HEIGHT="18" > <font size=2 color="#FF00FF" οnclick="javascript:dend()" style="cursor:hand">离开</font> </TD> <% end if %> <TD background="image/layout-sy-au1-img-1-3.png" WIDTH="18" HEIGHT="18"></TD> <% if session("username")="" or isnull(session("username")) then %> <TD background="image/layout-sy-au1-img-1-4.png" WIDTH="70" HEIGHT="18" style="cursor:hand" onClick="javascript:dhydr()"></TD> <% else %> <TD WIDTH="70" HEIGHT="18"> <font size=2 color="#FF00FF" οnclick="javascript:dhyzx()" style="cursor:hand">会员中心</font> </TD> <% end if %> <TD background="image/layout-sy-au1-img-1-5.png" WIDTH="38" HEIGHT="18"></TD> </TR> </TABLE> </TD> </TR> <TR> <TD background="image/layout-sy-au-img-3-1.png" WIDTH="244" HEIGHT="16"></TD> </TR> </TABLE> </TD> </TR> <TR> <TD background="image/layout-sy-img-3-5-1.png" WIDTH="244" HEIGHT="13"></TD> </TR> <TR> <TD background="image/layout-sy-img-3-6-1.png" WIDTH="244" HEIGHT="33"></TD> </TR> <TR> <TD background="image/layout-sy-img-3-7-1.png" WIDTH="244" HEIGHT="11"></TD> </TR> <TR> <TD background="image/layout-sy-img-3-8-1.png" WIDTH="244" HEIGHT="217"> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="217"> <tr height=10> <td width=20> </td> <td> </td> <td width=20> </td> </tr> <tr> <td width=20> </td> <td width="204" valign=top> <table BORDER="0" CELLSPACING="2" CELLPADDING="2" WIDTH="204" > <% if zxdtmc(0)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(0)%>)"><%=left(zxdtmc(0),12)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <tr> <td colspan=3 height=3> </td> </tr> <% end if if zxdtmc(1)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(1)%>)"><%=left(zxdtmc(1),10)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <tr> <td colspan=3 height=3> </td> </tr> <% end if if zxdtmc(2)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(2)%>)"><%=left(zxdtmc(2),12)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <tr> <td colspan=3 height=3> </td> </tr> <% end if if zxdtmc(3)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(3)%>)"><%=left(zxdtmc(3),8)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <tr> <td colspan=3 height=3> </td> </tr> <% end if if zxdtmc(4)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(4)%>)"><%=left(zxdtmc(4),12)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <tr> <td colspan=3 height=3> </td> </tr> <% end if if zxdtmc(5)<>"" then %> <tr> <td valign=middle width="10" align=right> <img src="image/fang2.gif"> </td> <td width=184 style="word-break:break-all"> <font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(5)%>)"><%=left(zxdtmc(5),12)%>...</font> </td> <td valign=middle> <img src="image/jt.png"> </td> </tr> <tr> <td colspan=3 background="image/ct.gif" height=1> </td> </tr> <% end if %> </table> </td> <td width=20> </td> </tr> </table> </TD> </TR> <TR> <TD background="image/layout-sy-img-3-9-1.png" WIDTH="244" HEIGHT="13"></TD> </TR> </TABLE> </TD> <TD background="image/layout-sy-img-2-1-3.png" WIDTH="15" HEIGHT="470"></TD> <TD WIDTH="667" HEIGHT="470"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="470"> <TR> <TD background="image/layout-sy-img-4-1-1.png" WIDTH="667" HEIGHT="24"> <font size=2 color="#ffffff"><b> 欢迎您来到凤凰国际婚恋交友网</b></font> </TD> </TR> <TR> <TD background="image/layout-sy-img-4-2-1.png" WIDTH="667" HEIGHT="9"></TD> </TR> <TR> <TD background="image/layout-sy-img-4-3-1.png" WIDTH="667" HEIGHT="171"> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="171"> <tr height=4> <td width=20> </td> <td> </td> <td width=20> </td> </tr> <tr> <td width=20> </td> <td width=627 valign=top height=163> <table border="0" cellspacing="0" cellpadding="0" width=627 height=163> <tr> <td > <table border="0" cellspacing="0" cellpadding="0" width=452 height=163> <tr> <td width="452" style="word-break:break-all;line-height:150%">1. 隐私，安全，匿名电子邮件。<br> 2. 免费注册，简单和快速。不花费你的一分钱。<br> 3. 我们的会员来自世界各地。<br> 4. 我们帮助会员找到伴侣，已有超过十年的经验。<Br> 5. 免费搜索和双向匹配！<br> </td> </tr> <tr height="20"> <td valign=middle></td> </tr> </table> </td> <td width=200 align=center> <% if cgltp<>"" then %> <IMG src="<%=cgltp%>" width=180 height=160 style="cursor:hand" onClick="javascript:dsuccess()"> <% end if %> </td> </tr> </table> </td> <td width=20> </td> </tr> <tr height=4> <td width=20> </td> <td> </td> <td width=20> </td> </tr> </table> </TD> </TR> <TR> <TD background="image/layout-sy-img-4-4-1.png" WIDTH="667" HEIGHT="10"></TD> </TR> <TR> <TD background="image/layout-sy-img-4-5-1.png" WIDTH="667" HEIGHT="100"> <font size=2 color="#ffffff"><b></b></font> </TD> </TR> <TR> <TD background="image/layout-sy-img-4-6-1.png" WIDTH="667" HEIGHT="11"></TD> </TR> <TR> <TD background="image/layout-sy-img-4-7-1.png" WIDTH="667" HEIGHT="218"> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="218"> <tr height=8> <td width=19> </td> <td> </td> <td width=491> </td> </tr> <tr> <td width=19> </td> <td width=131 style="word-break:break-all;line-height:150%" valign=top><img src="image/indech1.jpg" width=120 height="90" style="cursor:hand" onClick="javascript:dregist()"><br></td> <td valign=middle><font size="2">我想告诉你，我认识了一个了不起的家伙，他的甜默，大方，非常有爱心，当然我遇到他通过你的代理，这是一个奇迹。确定它的早期，但我非常非常高兴，他也是如此。感谢您帮助你改变我的生活。英</font><br></td> <td width=23> </td> </tr> <tr> <td></td> <td style="word-break:break-all;line-height:150%" valign=top></td> <td valign=middle></td> <td></td> </tr> <tr> <td></td> <td style="word-break:break-all;line-height:150%" valign=top><img src="image/indech2.jpg" width=120 height="90" style="cursor:hand" onClick="javascript:dregist()"></td> <td width=491 style="word-break:break-all;line-height:150%" valign=top><strong><font size="2">“我们希望与你们分享这个故事。</font></strong><font size="2">Kurt来自德国，我们通信2个月后，他来中国拜访我，我们发现我是非常的爱彼此，他非常诚实，守信和彬彬有礼..我的家人和朋友都为我感到高兴，现在，下一步他将在圣诞节来和我举行婚礼。<strong>一切都很完美。谢谢你的一切。</strong>“ </font></td> <td valign=middle></td> <td width="3"></td> </tr> <tr height=8> <td width=19> </td> <td> </td> <td width=491> </td> </tr> </table> </TD> </TR> <TR> <TD background="image/layout-sy-img-4-8-1.png" WIDTH="667" HEIGHT="4"></TD> </TR> </TABLE> </TD> <TD background="image/layout-sy-img-2-1-5.png" WIDTH="40" HEIGHT="470"></TD> </TR> </TABLE> </TD> </TR> <TR> <TD WIDTH="1004" HEIGHT="16"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT=16"> <TR> <TD background="image/layout-sy-img-5-5-1.png" WIDTH="39" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-2.png" WIDTH="295" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-3.png" WIDTH="20" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-4.png" WIDTH="295" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-5.png" WIDTH="21" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-6.png" WIDTH="295" HEIGHT="16"></TD> <TD background="image/layout-sy-img-5-5-7.png" WIDTH="39" HEIGHT="16"></TD> </TR> </TABLE> </TD> </TR> <TR> <TD background="image/layout-sy-img-1-6-1.png" WIDTH="1004" HEIGHT="29"></TD> </TR> <TR> <TD background="image/layout-sy-img-1-7-1.png" WIDTH="1004" HEIGHT="163"> <table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="156"> <tr> <td width=40> </td> <td width=924 height=156> <marquee width=924 height=146 align=mmiddle direction="right" behavior=alternate loop=-1 scrollamount=3 scrolldelay=3 hspace=8 vspace=5 onMouseOver="this.stop()" onMouseOut="this.start()"> <% do while not rs_m.eof myhzp=rs_m("ZPDZ") %> <img src="<%=myhzp%>" width=130 height=140> <% rs_m.movenext if rs_m.eof then exit do loop rs_m.close set rs_m=nothing %> </marquee> </td> <td width=40> </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR>  </form> </TABLE> </center> </BODY> </HTML>  
<% dim flash_str do while not newrs.eof flash_str = flash_str & "id="&newrs("id")&"&" flash_str = flash_str & "iddate="&newrs("iddate")&"&" flash_str = flash_str & "idtype="&newrs("idtype")&"&" newrs.movenext loop dim release_string release_string = left(flash_str, len(flash_str) - 1) Response.Write release_string %>

<% For i=1 To newrs.recordcount-1 response.write("id="&newrs("id")&"&") response.write("iddate="&newrs("iddate")&"&") response.write("idtype="&newrs("idtype")) response.write("&") newrs.movenext Next response.write("id="&newrs("id")&"&") response.write("iddate="&newrs("iddate")&"&") response.write("idtype="&newrs("idtype")) %>

<% Const p=6 '每页2条 set rs = server.createobject("adodb.recordset") sql = "Select * from show order by id Desc" rs.Open sql,conn,1 i=1 do while not rs.eof %> <td align="center" height="98"> <a href="show.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a> </td> <% if i mod 3 = 0 then Response.Write("</tr><tr>") end if i=i+1 if i>p then exit do rs.movenext Loop rs.close set rs=nothing %>