<% 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 %>
(사)전국자동차매매사업조합연합회
HOME
매매가이드
매매상사현황
매매상사현황
회원사 정보
지역
<%=rsCity%>
단지명
<%=rsDanjiName%>
상사명
<%=rsShopName%>
대표성명
<%=rsTopName%>
주소
<%=rsZipAddr%> <%=rsAddr%>
전화번호
<%=rsTel%>
팩스번호
<%=rsFax%>
허가번호
<%=rsPermitNo%>
대표핸드폰
010-****-****
사원수
<%=rsEmpCnt%>명
매물수
<%=rsDemoCnt%>대