<%
Dim Query_result, Query_list
Dim List_scale
List_scale = 5
Query_list = "SELECT TOP " & List_scale
Query_list = Query_list & " * FROM "
Query_list = Query_list & notice
Query_list = Query_list & " WHERE country_code='"&country_code &"'"
Query_list = Query_list & " order by uid desc "
Set Query_result = objConn.Execute(Query_list)
%>
<%
If Query_result.BOF = True OR Query_result.EOF = True Then
Dim intj
intj = 5
%>
| |
| |
| |
| |
| |
<%
Else
Dim uid, subject
intj = 0
Do until Query_result.EOF
uid = Query_result("uid")
subject = Query_result("subject")
subject = subject_check(subject,20)
%>
<%=subject%> |
<%
intj = intj + 1
Query_result.Movenext
Loop
objConn.close
Set Query_result = Nothing
Set objConn = Nothing
End If
If intj < 4 Then
dim intk
for intk = intj to 4
%>
| |
<%
intj = intj + 1
next
End If
%>
|
