<%
dim conn,rs,sql
set conn=server.createobject("ADODB.connection")
conn.open "Provider=MS Remote;Remote Server=http://202.206.8.115;Remote Provider=SQLOLEDB;Network Library=DBMSSOCN;Data Source=202.206.8.15;UID=name;PWD=ping;DATABASE=pubs;"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Titles where type='business '"
rs.open sql,conn,1,1
%>