<% dim objCmd_1 dim cookies_AdId, cookies_MeId, cl_class, cl_name, arr_listAu, i, j, form_name cookies_AdId = request.cookies("admin")("ad_id") cookies_MeId = request.cookies("user")("me_id") if cookies_AdId <> "" then cookies_MeId = cookies_AdId end If set objCmd_1 = Server.CreateObject("ADODB.Command") With objCmd_1 .ActiveConnection = db .CommandText = "a_member_class_S" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@me_id", advarchar, adParamInput, 12) If cookies_MeId = "" Then cookies_MeId = "" .Parameters("@me_id") = cookies_MeId end With set rs1 = objCmd_1.execute set objCmd_1 = Nothing if rs1.bof or rs1.eof then cl_class = "254" cl_name = "비회원" else cl_class = rs1("cl_class") cl_name = rs1("cl_name") end If rs1.close set rs1 = nothing arr_listAu = Split(ji_listAu, ",") for i=0 to UBound(arr_listAu) j = arr_listAu(i) if trim(j) = Cstr(cl_class) then ji_listAu = "ok" exit for end if next if ji_listAu <> "ok" then response.write "" response.end end if call TopOfBottom_step2() form_name = "../../skin/Jboard/" & ji_skinname & "/list_form.asp" server.execute(form_name) call TopOfBottom_step3() %>