<% OpenNewConnection MyConnection, "Ad_Award" BoardId="Board0803104501" Set RS1=Server.CreateObject("ADODB.Recordset") sql="select * from Boards where BoardId='"&BoardId&"' order by AddDate desc" 'table¦WºÙ RS1.Open sql, MyConnection, 3 BoardClass=RS1.Fields("ClassId") BoardName=RS1.Fields("BoardName") BoardName=RS1.Fields("BoardName") set RS1=Nothing Re="§_" Set RS2=Server.CreateObject("ADODB.Recordset") sql="select * from Discussions where BoardId='"&BoardId&"' and Re='"&Re&"' order by AddDate desc" 'table¦WºÙ RS2.Open sql, MyConnection, 3 if RS2.EOF then Response.Write " " Response.Write " " else RS2.PageSize=10 PageTemp=Request("PageTemp") if PageTemp="" then Page=1 else Page=Clng(PageTemp) end if ShowOnePage RS2,Page if Page<1 then Page=1 if Page>RS2.PageCount then Page=RS2.PageCount Response.Write "" end if set RS2=Nothing Sub ShowOnePage(RS2,Page) RS2.AbsolutePage=Page i=1 num=1 do while(i=1) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" DiscussId=RS2.Fields("DiscussId") RS2.MoveNext num=num+1 if RS2.EOF or num=RS2.PageSize+1 then i=0 loop end sub ButtonTop=800+num*20 %>

Title

Author

Response

Data
" Response.Write "No Discuss¡I
" if Page<>1 then Response.Write"" end if if Page<>RS2.PageCount then Response.Write"" end if Response.Write "
" Response.Write "" Response.Write "

"&RS2.Fields("Title")&"

" Response.Write "		" Response.Write "

"&RS2.Fields("Author")&"

" Response.Write "

" & getBoardCount(RS2.Fields("BoardId"),RS2.Fields("DiscussId")) & "

"&RS2.Fields("AddDate")&"

" Response.Write "
>

AddNew
Title
Author
Email

 

Content

***Please fill up with all field***
For further information, please contact:
Times Advertising Awards Executive Committee
TEL: 886-2-2381 8720 ext. 1180(Sandy Huang)
DID: 886-2-2371 6797
FAX: 886-2331-2395
E-mail¡Gtaa@mail.chinatimes.com.tw
ADD:11F, 49, Sec.1, Chung Hwa Rd., Taipei 100, Taiwan
 Website: http://www.timesaward.com
--------------------------------------------------------------------------¡¶Top--------------------------------------------------------------------------