<%
Dim sConn
sConn = "Provider=SQLOLEDB; Data Source=172.16.200.81; Initial Catalog=Leader;User ID=sa;Password=;"
Dim adoConn
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString = sConn
adoConn.Open
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From PALMK", adoConn, adOpenStatic
%>