<%response.expires=0%> <% gotopage=request("gotopage") if gotopage="" then gotopage=1 end if t_search=request("t_search") t_search_name=request("t_search_name") num=request("num") shutter_code=request("shutter_code") sql="update shutter set hit=hit+1 where num=" & num conn.execute(sql) re_gubun=request("re_gubun") if re_gubun="prev" then sql="select * from shutter where num<" & num & " order by num desc" set rs=conn.execute(sql) if not rs.eof then num=rs("num") end if rs.close set rs=nothing end if if re_gubun="next" then sql="select * from shutter where num >" & num & " order by num desc" set rs=conn.execute(sql) if not rs.eof then num=rs("num") end if rs.close set rs=nothing end if sql="select count(num) from shutter_re where num=" & num Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 re_cnt=rs(0) rs.close set rs=nothing sql="select * from shutter where num=" & num & " order by num desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 %>

	<% if trim(rs("file_name1")) <> "" then %> <%end if%> <% if trim(rs("file_name2")) <> "" then %> <%end if%> + <%=rs("subject")%> <%=reverseword(rs("content"))%> <%=reverseword(rs("content1"))%> <%=reverseword(rs("content2"))%> ¢¸ prev ¤Ó List ¤Ó next ¢º <%=rs("name")%> ( <%=rs("email")%> )   <%=rs("reg_date")%>  <%=rs("reg_time")%>   <%=rs("hit")%> access, <%=re_cnt%> comments <% rs.close set rs=nothing %>   <% sql1="select * from shutter_re where shutter_num=" & num sql1=sql1 & " order by shutter_num,num desc" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql1,conn,1 if rs1.eof then rs1.close set rs1=nothing conn.close set conn=nothing ' response.end else i=1 do until rs1.eof %> <%if len(rs1("file_name"))>0 then%> <%end if%> <%=rs1("name")%> (<%=rs1("email")%>) <%=rs1("reg_date")%>  <%=rs1("reg_time")%> " width=300 height=300> <%=reverseword(rs1("content"))%> [ modify | delete ] <%rs1.movenext i=i+1 loop rs1.close set rs1=nothing conn.close set conn=nothing end if %>

<% %>