%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim ID,Linkman,FixTel,Fax,MobTel,Address,Remarks set rs=conn.execute("SELECT TOP 1 * FROM LinkInfo WHERE ItemClass=1 order by id desc") if not rs.eof then ID=rs("ID") Linkman=rs("Linkman") Address=rs("Address") FixTel=rs("FixTel") Fax=rs("Fax") Email=rs("Email") Remarks=rs("Remarks") end if %>