<%
Dim sql, rs
Open()
'Opening DB Connection
set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from tblAllFiles where filename= 'Company Statistics'"
rs.Open sql, ado
Do While Not RS.EOF
Response.Write RS("CornerContent")
rs.movenext
Loop
rs.Close()
close() 'Closing DB Connection
%>
