<% adCmdStoredProc = 4 Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB;Data Source=ARNEPC3;Initial Catalog=Test;Integrated Security=SSPI;" Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = con cmd.CommandType = adCmdStoredProc cmd.CommandText = "usp_test" Set rs = cmd.Execute Do While Not rs.EOF Response.Write rs("F1") & " " & rs("F2") & "
" rs.MoveNext Loop Set rs = Nothing Set cmd = Nothing Set con = Nothing %>