<% wShopNo = Request("wShopNo") sql = "" sql = sql & " select *, " sql = sql & " (select DanjiName from usedcar..tbl_danjiinfo where a.GovNo = GovNo and a.DanjiNo = DanjiNo) DanjiName, " sql = sql & " (select count(empno) from usedcar..tbl_employee where a.shopno = shopno and useyn = 'Y' and isnull(retireday,'') = '') EmpCnt, " sql = sql & " (select empno from usedcar..tbl_employee where a.shopno = shopno and position = '대표') EmpNo " sql = sql & " from usedcar..tbl_shopinfo a where ShopNo = '"&wShopNo&"' and State = '영업' " Set rs = dbcon.execute(sql) If rs.bof And rs.eof Then Else rsShopNo = rs("ShopNo") rsDanjiName = rs("DanjiName") rsShopName = rs("ShopName") rsZipAddr = rs("ZipAddr") rsCity = rs("City") rsAddr = rs("Addr") rsTel = rs("Tel") rsFax = rs("Fax") rsTopName = rs("TopName") rsEmpNo = rs("EmpNo") rsPermitNo = rs("PermitNo") rsWorkNo = rs("WorkNo") rsEmpCnt = rs("EmpCnt") If Len(rsEmpNo) = "1" Then strEmpNo = "000"&rsEmpNo ElseIf Len(rsEmpNo) = "2" Then strEmpNo = "00"&rsEmpNo ElseIf Len(rsEmpNo) = "3" Then strEmpNo = "0"&rsEmpNo Else strEmpNo = rsEmpNo End If End If rs.close '광고중인 매물대수 sql = "" sql = sql & " SELECT COUNT(DemoNo) DemoCnt From UsedCar..tbl_Car_DemoMaster " sql = sql & " Where DemoType = '광고제시' And DemoYN = 'Y' and ShopNo = '"&wShopNo&"' " Set rs = dbcon.execute(sql) If rs.bof And rs.eof Then rsDemoCnt = "0" Else rsDemoCnt = rs("DemoCnt") End If rs.close %> (사)전국자동차매매사업조합연합회

매매상사현황

회원사 정보
지역 <%=rsCity%> 단지명 <%=rsDanjiName%>
상사명 <%=rsShopName%> 대표성명 <%=rsTopName%>
주소 <%=rsZipAddr%> <%=rsAddr%>
전화번호 <%=rsTel%> 팩스번호 <%=rsFax%>
허가번호 <%=rsPermitNo%> 대표핸드폰 010-****-****
사원수 <%=rsEmpCnt%>명 매물수 <%=rsDemoCnt%>대