<% Dim idx, userName, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, hit, gotopage Dim sex, area, job, age, tel, route Dim SQL, RS, tableName If Session("admin_div") <> "1" Then Response.Write "" Response.End End If tableName = "TB_MODEL" '### DB 테이블명 idx = Trim(Request("idx")) SQL = "SELECT idx, userName, subject, sex, area, job, age, tel, route, writeDate, contents," SQL = SQL & " fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, hit," 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 'Response.write SQL Set RS = Dbcon.Execute(SQL) idx = RS("idx") userName = RS("userName") subject = RS("subject") sex = RS("sex") area = RS("area") job = RS("job") age = RS("age") tel = RS("tel") route = RS("route") contents = RS("contents") 'contents = Replace(contents, chr(13) & chr(10), "
") fileName1 = RS("fileName1") fileSize1 = RS("fileSize1") fileName2 = RS("fileName2") fileSize2 = RS("fileSize2") fileName3 = RS("fileName3") fileSize3 = RS("fileSize3") writeDate = RS("writeDate") hit = RS("hit") previdx = RS("previdx") nextidx = RS("nextidx") gotopage = Trim(Request("gotopage")) If gotopage = "" Then gotopage = 1 Else gotopage = Cint(gotopage) End If '조회수 증가 SQL = "UPDATE " & tableName & " SET hit = " & hit + 1 SQL = SQL & " WHERE idx = " & idx Dbcon.Execute(SQL) RS.Close Set RS = Nothing %>

유앤아이 리얼스토리 모델 모집

Home
병원소개
리얼스토리 모델 모집

작성일

<%=writeDate%>

조회

<%=hit%>

성함	<%=userName%>
성별	<%=sex%>
거주지역	<%=area%>
직업	<%=job%>
나이	<%=age%>
전화번호	<%=tel%>
지원경로	<%=route%>

정면사진

<% If fileName1 <> "" Then Response.Write "

" : %> <% If fileName1 <> "" And Session("admin_div") > 0 Then %>

첨부파일 : <%=fileName1%> (<%=FormatNumber(fileSize1, 0)%> byte)

<% End If %>

오른쪽사진

<% If fileName2 <> "" Then Response.Write "

" : %> <% If fileName2 <> "" And Session("admin_div") > 0 Then %>

첨부파일 : <%=fileName2%> (<%=FormatNumber(fileSize2, 0)%> byte)

<% End If %>

왼쪽사진

<% If fileName3 <> "" Then Response.Write "

" : %> <% If fileName3 <> "" And Session("admin_div") > 0 Then %>

첨부파일 : <%=fileName3%> (<%=FormatNumber(fileSize3, 0)%> byte)

<% End If %>

<%=contents%>

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