<%
Dim MM_myconn_STRING
MM_myconn_STRING = "driver={SQL server};server=(local);uid=sa;pwd=a;database=lingjin;"
set adocon=server.createobject("adodb.connection")
adocon.open MM_myconn_STRING
%>
<%
id=cint(Request.Querystring("recno"))
sql="select * from news where ID=" & id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,adocon,3
%>
<%
k=1
Do While Not rs.eof And k>10
response.write rs(0)
k=k+1
rs.movenext
%>