cnn=Server.CreateObject("ADODB.Connection");

cnn.Open("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=p2webusr;Initial Catalog=potreb2;Data Source=172.18.79.10");

ds1=Server.CreateObject("ADODB.Recordset");

cm1=Server.CreateObject("ADODB.Command");
cm1.ActiveConnection=cnn;
cm1.CommandType=adCmdStoredProc;
cm1.CommandText="dbo.getMESpowerlist2";
cm1.Parameters.Refresh;

fy=Request.QueryString("FY")
fm=Request.QueryString("FM")
fd=Request.QueryString("FD")
prmstr = fy + "-" + fm + "-" + fd;

cm1.Parameters.Item( 1 ).Value = prmstr;
ds1.Open(cm1);
ds1.MoveFirst;

d = ds1.Fields( 1 ).Value;