<% Dim idx, name, f_nm1, reg_dt, contents Dim SQL, RS, tableName tableName = "tbl_gallery" '### DB 테이블명 idx = Trim(Request("idx")) If idx = "" Then RESPONSE.WRITE ExecJavaAlert("잘못된 접근입니다.",0) RESPONSE.END End If SQL = "SELECT seq, name, f_nm1, reg_dt, contents," SQL = SQL & " (SELECT MAX(seq) FROM " & tableName & " WHERE seq < t1.seq ) as previdx, (SELECT MIN(seq) FROM " & tableName & " WHERE seq > t1.seq) as nextidx FROM " & tableName & " t1" SQL = SQL & " WHERE seq = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("seq") name = RS("name") contents = RS("contents") If contents <> "" Then contents = Replace(contents, chr(13) & chr(10), "
") End If fileName1 = RS("f_nm1") writeDate = RS("reg_dt") previdx = RS("previdx") nextidx = RS("nextidx") RS.Close Set RS = Nothing If idx = "" Then RESPONSE.WRITE ExecJavaAlert("잘못된 접근입니다.",0) RESPONSE.END End If %>

Home
병원소개
스타갤러리

<%=name%>		작성일	<%=writeDate%>
<% If fileName1 <> "" Then Response.Write " " End If %> <%=contents%>

<% If Trim(session("admin_div")&"") = "1" Then %> <% End If %> <% If previdx <> "" Then%> <% END If %> <% If nextidx <> "" Then%><% END If %>