<% 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 %>