<object runat=server id=connpic progid="adodb.connection"></object>
<%application.Lock
connpic.Open Application("p_pic")
Application.UnLock
%>
<% 
id=clng(Request("id"))

set rs=server.createobject("ADODB.recordset") 
sql="select * from sound where id=" & id
rs.open sql,connpic,1,1 
Response.ContentType = "audio/x-aiff" 
'Response.ContentType = "application/vnd.rn-realmedia"
 
Response.BinaryWrite rs("sound")
rs.close 
set rs=nothing 

 
%> 
