<% Call AdminAuth() '사용권한 체크(홈피 관리자나, POS 사용가가 아니면 접근불가) Dim idx, branchCode, branchName, userId, userName, userTel, userDate, userTime, contents, writeDate, anser, memo, kind, device, writePage Dim SQL, RS, tableName tableName = "TB_TEL_COUNSEL" '### DB 테이블명 idx = Trim(Request("idx")) SQL = "SELECT idx, branchCode, (SELECT branchName FROM GW_BRANCH WHERE branchCode = t1.branchCode) AS branchName, userId, userName, userTel, userDate, userTime, contents, writeDate, anser, memo, kind, device, writePage, " SQL = SQL & " (SELECT MAX(idx) FROM " & tableName & " WHERE idx < t1.idx ) as previdx, (SELECT MIN(idx) FROM " & tableName & " WHERE idx > t1.idx) as nextidx FROM " & tableName & " t1" SQL = SQL & " WHERE idx = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("idx") branchCode = RS("branchCode") branchName = RS("branchName") userId = RS("userId") userName = RS("userName") userTel = RS("userTel") userDate = RS("userDate") userTime = RS("userTime") contents = RS("contents") writeDate = RS("writeDate") anser = RS("anser") kind = RS("kind") device = RS("device") writePage = RS("writePage") previdx = RS("previdx") nextidx = RS("nextidx") Select Case kind Case "문자상담" kind = "" & kind & "" Case "카톡상담" kind = "" & kind & "" Case "중국" kind = "" & kind & "" contents = "

프로그램 : " & userId & "

이메일 : " & contents Case "일본" kind = "" & kind & "" contents = "

프로그램 : " & userId & "

이메일 : " & contents Case Else kind = "전화상담" End Select If anser = "O" Then anser = "상담완료" Else anser = "상담대기" End If memo = RS("memo") RS.Close Set RS = Nothing If contents = "" Then End If %>

전화상담신청

Home
고객센터
전화상담신청

지점	<%=branchName%>	성명	<%=userName%>	처리상태	<%=anser%>
상담구분	<%=kind%>	연락처	<%=userTel%>	가능시간	<%=userDate%> <%=userTime%>
디바이스	<%=device%>	작성페이지	<%=writePage%>	작성일	<%=writeDate%>
내용	<%=contents%>
상담결과	<%=memo%>

<% If Session("admin_div") > 0 Then %>

<% End If %> <% If previdx <> "" Then%>

<% END If %> <% If nextidx <> "" Then%>

<% END If %>