重庆恒艺照明电器有限公司欢迎你

<% dim sid,subject Set rs = server.createobject("adodb.recordset") rs.open "select * from subject where process = 'true'",conn,1,1 %>

<%If rs.EOF or rs.BOF Then%>

<%Else sid = rs("id") subject = rs("subject") %> " End If rs.close Set rs=nothing %>

<% = subject%>

method=post name=formResearch> <% Dim rsq,i Set rs=Server.CreateObject("ADODB.RecordSet") rs.open "select * from Title where sid="&sid,conn,1,1 If not (rs.eof and rs.bof) Then Do while not rs.Eof Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Set rsq=Server.CreateObject("ADODB.RecordSet") rsq.open "select * from Question where tid="&rs("id"),conn,1,1 If not (rsq.eof and rsq.bof) Then i=1 Do While not rsq.Eof If rsq.recordcount<=8 Then Response.Write "" End If If rs("mode") = 1 Then Response.Write "" ElseIf rs("mode") = 2 Then Response.Write "" End If If i mod 2 =0 Then Response.Write "" End If If rsq.recordcount<=8 Then Response.Write "" End If i=i+1 rsq.MoveNext Loop Else Response.Write "" End If rsq.close Set rsq=nothing Response.Write "

"&rs("title")&"
"&rsq("question")&"	"&rsq("question")&"
没有任何投票项！

" Response.Write "

" rs.MoveNext Loop Else Response.Write "

没有任何投票！

<%End If%>