<%
'com="select * from stockstry where scrip_name='ACC' and datepart(dd,dt)=27 and datepart(mm,dt)=04 and datepart(yyyy,dt)=2005"
'set con=Server.CreateObject("ADODB.Connection")
'con.Open "PROVIDER=SQLOLEDB;DATA SOURCE=A;UID=sa;PWD=;DATABASE=pubs"
'con.Open "DSN=kmjpl;UID=kmjpl;PWD=km397jpl"
'set rs=con.Execute(com)
%>