Register
•
Search
•
FAQ
•
Memberlist
•
Usergroups
•
Galleries
•
Log in
Jetmen Revival downloads Forum Index
»
JETMEN ONLINE
Post a reply
Username
Subject
Message body
Emoticons
View more Emoticons
Font colour:
Default
Dark Red
Red
Orange
Brown
Yellow
Green
Olive
Cyan
Blue
Dark Blue
Indigo
Violet
White
Black
Font size:
Tiny
Small
Normal
Large
Huge
Close Tags
Add image to post
Options
HTML is
OFF
BBCode
is
ON
Smilies are
ON
Disable BBCode in this post
Disable Smilies in this post
Confirmation code: *
All times are GMT + 2 Hours
Jump to:
Select a forum
----------------
JETMEN ONLINE
Jetmen Revival
----------------
Jetmen Revival Downloads
Links
Graphics
Music
Other games
Topic review
<table cellpadding="3" cellspacing="0" width="100%" class="forumline"> <thead> <caption><table border="0" cellspacing="0" cellpadding="0" width="100%" class="forumheader"> <tr> <td align="left" valign="bottom" width="25"><img src="http://picsrv.fora.pl/AcidTechTiger/images/hdr_left.gif" width="25" height="27" alt="" /></td> <td align="center" class="forumheader-mid">Topic review</td> <td align="right" valign="bottom" width="25"><img src="http://picsrv.fora.pl/AcidTechTiger/images/hdr_right.gif" width="25" height="27" alt="" /></td> </tr></table></caption> </thead> <tbody> <tr> <th class="thCornerL" width="22%" height="26">Author</th> <th class="thCornerR">Message</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>ghdhair100</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/AcidTechTiger/images/post_old.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Posted: Wed 4:35, 09 Mar 2011<span class="gen"> </span> Post subject: &#36882;&#24402;&#23454;&#29616;tree&#30</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">dim myrs <br /> dim lev <br /> lev=0 <br /> str="+" <br /> sqlstr="select id,dept_name,lev from cpb_dept where len(lev)=len("& uplev &")+1 and left(lev,len("&uplev&"))="& uplev & " and dept_name not like '%测试%' and flag=true order by lev " <br /> set rs=server.createobject("adodb.recordset") <br /> rs.open sqlstr,conn,1,3 <br /> If rs.RecordCount > 0 Then <br /> myrs=rs.GetRows() <br /> rs.Close <br /> Set rs = Nothing <br /> recN=UBound(myrs,<a href="http://www.ghdshairaustralia.net/ghd-precious-gift-set-p-184.html" target="_blank">Ghd Precious Gift Set Online</a>,2) <br /> For i=0 To recN <br /> if len(myrs(2,i))<>lev then <br /> lev=len(myrs(2,i)) <br /> for ii=0 to lev <br /> str=str & "--" <br /> next <br /> end if <br /> 'Response.Write("ID: "&myrs(0,i)&", First: "&myrs(1,<a href="http://www.ghdhairau.net/ghd-benefit-hair-straightener-p-185.html" target="_blank">Ghd Benefit Hair Store</a>,i)&", Second: "&myrs(2,i)&"<br />") <br /> Response.Write(str & "<img str=images/nofollow.gif>"& myrs(1,i)&"<br />") <br /> call tree(myrs(2,<a href="http://www.chi-flatiron.com/chi-turbo-1-ceramic-flat-iron" target="_blank">Turbo 1 Chi Iron</a>,i)) <br /> Next <br /> else <br /> rs.Close <br /> Set rs = Nothing <br /> Exit sub <br /> end if <br />end sub <br />call tree("11") <br />sub tree(UPlev) <br />Many years ago there lived an Emperor who was so exceedingly fond of fine new clothes that he spent vast sums of money on dress. To him clothes meant more than anything else in the world. He took no interes <br />related links： <br /> <br /> <br /> <a href="http://starfish.theassemblyarea.com/smf/index.php?topic=322204.msg426929#msg426929" target="_blank">About PBS</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" class="spaceRow"><img src="http://picsrv.fora.pl/AcidTechTiger/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </tbody> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Design by
Freestyle XL
/
Music Lyrics
.
Regulamin
