<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->
<!--#include file="yns_config.asp" -->
<!--#include file="yns_chklogin.asp" -->
<% chk_user_login(3) %>
<!--#include file="yns_stype_create.asp" -->
<%
Dim rsstype
Dim rsstype_numRows

Set rsstype = Server.CreateObject("ADODB.Recordset")
rsstype.ActiveConnection = MM_conn_news_STRING
rsstype.Source = "SELECT * FROM t_stype"
rsstype.CursorType = 0
rsstype.CursorLocation = 2
rsstype.LockType = 1
rsstype.Open()

rsstype_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsstype_numRows = rsstype_numRows + Repeat1__numRows
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÎÞ±êÌâÎÄµµ</title>
<link href="style/css.css" rel="stylesheet" type="text/css">
</head>

<body>
<ul>
  <% While ((Repeat1__numRows <> 0) AND (NOT rsstype.EOF)) %>
     <%
	 dim mm_create_stid
	 mm_create_stid = (rsstype.Fields.Item("s_id").Value)
	' response.Write mm_create_stid
	 mm_create_stype_list(mm_create_stid)
	 %>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsstype.MoveNext()
Wend
%>
</ul>
</body>
</html>
<%
rsstype.Close()
Set rsstype = Nothing
%>