<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P099") then Call ReturnError1()
		Dim RsPlusObj,SpecialPicStr,TempObj,FileNum,TempShowNavi
		Set RsPlusObj = Conn.Execute("Select * from Plus where id="&request("id"))
		response.Redirect(""&RsPlusObj("Link")&"")
		response.end
		%>
