<%@ Language=VBScript %> <% set con=server.CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB;Data Source=gopi;initial catalog=Sample;user id=sa;password=" Response.Write(con.ConnectionString) strSql="select * from tblSample" %>
<% Response.Write(strSql) 'set rs = server.createobject("adodb.recordset") 'rs.open sql, con, 3, 3 set rs=server.CreateObject("ADODB.Recordset") 'rs.Open strSql,3,3 set rs=con.Execute(strSql) 'rs.CursorLocation=adUseClient do while not rs.EOF Response.Write(rs(1)) rs.MoveNext loop %>