#include virtual="/connect.asp" <% 'on error resume next dim objCmd dim strSQL dim Rs dim mystr 'dim Connect 'Set Connect = Server.CreateObject("ADODB.Connection") 'Connect.Open "PROVIDER=SQLOLEDB;DATA SOURCE=69.64.84.221,4010;DATABASE=Cashcraft;USER ID=cashdb;PASSWORD=h0tdishes;" Set Rs=Server.CreateObject("adodb.Recordset") strSQL = "exec newpricelist" Rs.open strSQL, connect, adOpenStatic 'response.write ("FEMI") while not Rs.eof 'if (Rs("change")) > 0 then 'mystr= Rs("securitycode") & " " & Cstr(Formatnumber(Rs("Price"),2,,-1)) & "(+" & Cstr( Round(Rs("diff"),2) )& ")" 'end if 'if (Rs("change")) <= 0 then mystr= Rs("securitycode") & " " & Cstr(Formatnumber(Rs("Price"),2,,-1)) & "("& Cstr(Round(Rs("diff"),2)) & ")" 'end if %> <% response.write mystr Rs.movenext wend %>