%
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open"Select * from Company",cn,1,2
Set RsInfo=Server.CreateObject("Adodb.Recordset")
RsInfo.Open"Select * from inform",cn,1,2
If Not RsInfo.EOF then
showed="onload=showinfo();"
Else
showed=""
End If
%>