<%
'----------------------------------
'@ 제조사
'----------------------------------
sql = " select makername,makercode "
sql = sql & " from usedcar.dbo.tbl_car_maker "
sql = sql & " where useyn = 'Y' "
sql = sql & " order by "
sql = sql & " case when makername = '현대' then makername end desc, "
sql = sql & " case when makername = '기아' then makername end desc, "
sql = sql & " case when makername = '르노삼성' then makername end desc, "
sql = sql & " case when makername = '쉐보레(GM대우)' then makername end desc, "
sql = sql & " case when makername = '쌍용' then makername end desc, "
sql = sql & " case when makername = '대우' then makername end desc, "
sql = sql & " case when makername = 'BMW' then makername end desc, "
sql = sql & " case when makername = '벤츠' then makername end desc, "
sql = sql & " case when makername = '아우디' then makername end desc, "
sql = sql & " case when makername = '폭스바겐' then makername end desc, "
sql = sql & " case when makername = '인피니티' then makername end desc, "
sql = sql & " case when makername = '렉서스' then makername end desc, "
sql = sql & " case when makername = '혼다' then makername end desc, "
sql = sql & " case when makername = '푸조' then makername end desc, "
sql = sql & " makername "
Set res = dbcon.Execute(sql)
If res.Eof Or res.Bof Then
Response.Write "제조사 "
Else
Response.Write "제조사 "
Do While Not res.Eof
If res("makername") = wMaker Then
Response.Write ""& res("makername") &" "
Else
Response.Write ""& res("makername") &" "
End If
res.MoveNext
Loop
End If
res.Close
Set res = Nothing
%>
<%
'----------------------------------
'@ 차명
'----------------------------------
If wMaker <> "" Then
sql = ""
sql = " select classcode, classname "
sql = sql & " from usedcar.dbo.tbl_car_name "
sql = sql & " where useyn = 'Y' "
sql = sql & " and makercode = '"& wMaker &"' "
sql = sql & " group by classcode, classname "
sql = sql & " order by classname "
Set res = dbcon.Execute(sql)
If res.Eof Or res.Bof Then
Response.Write "대표차명 "
Else
Response.Write "대표차명 "
Do While Not res.Eof
If CStr(res("classcode")) = wCarClassCode Then
Response.Write ""& res("classname") &" "
Else
Response.Write ""& res("classname") &" "
End If
res.MoveNext
Loop
End If
res.Close
Set res = Nothing
Else
Response.Write "대표차명 "
End If
%>
<%
'----------------------------------
'@ 세부모델
'----------------------------------
If wMaker = "" Then
Response.Write "차명 "
Else
sql = " select carcode, carname "
sql = sql & " from usedcar.dbo.tbl_car_name "
sql = sql & " where useyn = 'Y' "
sql = sql & " and makername = '"& wMaker &"' "
sql = sql & " group by carcode, carname "
sql = sql & " order by carname "
Set res = dbcon.Execute(sql)
If res.Eof Or res.Bof Then
Response.Write "차명 "
Else
Response.Write "차명 "
Do While Not res.Eof
If CStr(res("CarCode")) = CStr(wCarCode) Then
Response.Write ""& res("carname") &" "
Else
Response.Write ""& res("carname") &" "
End If
res.MoveNext
Loop
End If
res.Close
Set res = Nothing
End If
%>
간편검색
맞춤매물
<%
sql = ""
sql = sql & " select TOP 5 *, "
sql = sql & " (SELECT MakerName FROM UsedCar..tbl_Car_Maker WHERE MakerCode = a.MakerCode) AS MakerName, "
sql = sql & " (SELECT CarName FROM UsedCar..tbl_Car_Name WHERE CarCode = a.CarCode) AS CarName, "
sql = sql & " (SELECT ModelName FROM UsedCar..tbl_Car_Model WHERE ModelCode = a.ModelCode) AS ModelName, "
sql = sql & " (SELECT GradeName FROM UsedCar..tbl_Car_Grade WHERE ModelCode = a.ModelCode and GradeCode = a.GradeCode) AS GradeName "
sql = sql & " from USEDCAR..TBL_Car_Find a WHERE ShopNo = '"&gShopNo&"' And EmpNo = '"&gEmpNo&"' Order By Indate desc "
Set mres = dbcon.execute(sql)
If mres.eof And mres.bof Then
%>
<%
Else
Do While Not mres.Eof
mresIdx = mres("Idx")
mresMaker = mres("MakerName")
mresMakerCode = mres("MakerCode")
mresCarName = mres("CarName")
mresCarCode = mres("CarCode")
mresModelName = mres("ModelName")
mresModelCode = mres("ModelCode")
mresGradeName = mres("GradeName")
mresGradeCode = mres("GradeCode")
mresSagoYN = Trim(mres("SagoYN"))
mresPhotoYN = Trim(mres("PhotoYN"))
mresAmtYN = Trim(mres("AmtYN"))
mresCarCheckYN = Trim(mres("CarCheckYN"))
mresStartYYMM = mres("stYYMM")
mresEndYYMM = mres("edYYMM")
mresColor = mres("Color")
mresAutoGbn = mres("AutoGbn")
mresGas = mres("Gas")
mresStartAmt = mres("stAmt")
mresEndAmt = mres("edAmt")
mresStartKm = mres("stKm")
mresEndKm = mres("edKm")
mresDemoDay = mres("InDate")
strCarName = mresCarName&" "&mresModelName
wDemoDay = Mid(mresDemoDay,1,4)&"."&Mid(mresDemoDay,5,2)&"."&Mid(mresDemoDay,7,2)
sql = ""
sql = sql & " select count(DemoNo) cnt from UsedCar..TBL_Car_DemoMaster "
sql = sql & " where demotype = '광고제시' and DemoShareYN = 'Y' and MakerCode = '"&mresMakerCode&"' "
If mresCarCode <> "" And mresCarCode <> "0" Then
sql = sql & " and CarCode = '"&mresCarCode&"' "
End If
If mresModelCode <> "" And mresModelCode <> "0" Then
sql = sql & " and ModelCode = '"&mresModelCode&"' "
End If
If mresGradeCode <> "" And mresGradeCode <> "0" Then
sql = sql & " and GradeCode = '"&mresGradeCode&"' "
End If
If mresStartYYMM <> "" And mresEndYYMM <> "" Then
sql = sql & " and YYMM between "&mresStartYYMM&" and "&mresEndYYMM&" "
End If
If mresStartKm <> "0" And mresEndKm <> "0" Then
sql = sql & " and Km between "&mresStartKm&" and "&mresEndKm&" "
End If
If mresStartAmt <> "0" And mresEndAmt <> "0" Then
sql = sql & " and Km between "&mresStartAmt&" and "&mresEndAmt&" "
End If
If mresSagoYN = "Y" Then
sql = sql & " and SagoYN = 'N' "
End If
If mresCarCheckYN = "Y" Then
sql = sql & " and CarCheckYN = 'Y' "
End If
If mresAmtYN = "Y" Then
sql = sql & " and DealerAmt > 32 "
End If
If mresPhotoYN = "Y" Then
sql = sql & " and ImageFlag <> 'NNNNNNNNNNNNNNNNNNNN' "
End If
Set rs = dbcon.execute(sql)
If rs.eof And rs.bof Then
rsCnt = 0
Else
rsCnt = rs("cnt")
End If
rs.close
%>
[<%=CutString(mresMaker,"..",5)%>] <%=CutString(strCarName,"..",13)%> <%=rsCnt%>건
<%
mres.MoveNext
Loop
End If
mres.Close
%>
로그인 방법
<% If gUserId = "" Then %>
딜러카를 더욱더
안전하게 사용하세요.
"딜러카 로그인"을 누르시면
로그인 창으로 이동합니다.
딜러카 로그인
<% Else %>
<%=gUserName%>님 환영합니다.
<%=gGovName%>
<%=gDanjiName%> | <%=gShopName%>
<% End If %>
전체 <%=FormatNumber(rsDemoCnt,0)%> 대
신규 <%=FormatNumber(rsTodayCnt,0)%> 대
공지사항
<%
sql = ""
sql = sql & " select TOP 5 * from USEDCAR..TBL_Board WHERE UseYN = 'Y' And Gbn = '딜러공지' Order By Indate desc "
Set rs = dbcon.execute(sql)
If rs.eof And rs.bof Then
%>
<%=rsTitle%> <%=rsIndate%>
인재채용
<%
sql = ""
sql = sql & " select TOP 5 * from USEDCAR..TBL_Job WHERE UseYN = 'Y' Order By Indate desc "
Set rs = dbcon.execute(sql)
If rs.eof And rs.bof Then
Else
Do While Not rs.Eof
rsIdx = rs("Idx")
rsJob_City = rs("Job_City")
rsTitle = rs("Title")
rsIndate = Left(rs("InDate"),10)
If rsJob_City <> "" Then
strFront = "["&rsJob_City&"]"
End If
%>
<%=strFront%> <%=rsTitle%>
