<%
    set rs =server.CreateObject("adodb.recordset")
    sql="select ComFullName,ComTel,ComAddress,ComZipCode,ComContact,ComEmail,ComIntroduction,ComIndustryID,ComNature,ComScale,ComAreaName,ComHome from Com_Basic_Info where ComCode='"&ComCode&"'"
    rs.open sql,Conn,1,1
    if not rs.eof then
    'ComCode=rs("ComCode")
    ComFullName=rs("ComFullName")
    ComTel=rs("ComTel")
    ComAddress=rs("ComAddress")
    ComZipCode=rs("ComZipCode")
    ComContact=rs("ComContact")
    ComEmail=rs("ComEmail")
    ComIntroduction=rs("ComIntroduction")
    ComIndustryID=rs("ComIndustryID")
    ComNature=rs("ComNature")
    ComScale=rs("ComScale")
    ComAreaName=rs("ComAreaName")
    ComHome=rs("ComHome")
%>