<%
dim cookconn
Set cookconn = Server.CreateObject("ADODB.Connection")
cookconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kitchen/cook.asp")

sub tinder_error()
	Response.Write Chr(10)
	If GBL_TableHeadString <> "" Then
	Response.Write "<table width="&DEF_BBS_ScreenWidth&" border=0 cellspacing=0 cellpadding=0 align=center>"
	Response.Write "<tr>"
	Response.Write "<td>"&GBL_TableHeadString&"</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	End If
	Response.Write "<table width="&DEF_BBS_ScreenWidth&" cellspacing=1 cellpadding=5 bgcolor="&DEF_BBS_DarkColor&" class=TBone align=center>"
	Response.Write Chr(10)
	Response.Write "<tr bgcolor="&DEF_BBS_LightDarkColor&">"
	Response.Write Chr(10)
	Response.Write "<td class=TBHead><img src=/bbs/images/blank.gif width=2 height=3 colspan=16><br><font color=#ffffff class=HeadFont><b>操作错误</b></font></td>"
	Response.Write Chr(10)
	Response.Write "</tr>"
	Response.Write Chr(10)
	Response.Write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	Response.Write Chr(10)
	Response.Write "<td style='line-height:150%'>"
	Response.Write Chr(10)
	Response.Write "<b>产生错误的可能原因：</b><br>"
	Response.Write Chr(10)
	Response.Write "<li>您是否仔细阅读了<a href="&DEF_BBS_homeUrl&"User/Help/Help.asp>帮助文件</a>，可能您还没有<a href="&DEF_BBS_homeUrl&"user/login.asp><font color=ff2222>登陆</font></a>或者不具有使用当前功能的权限。</li>"
	Response.Write Chr(10)
	Response.Write tinder_errmsg
	Response.Write "</td></tr>"
	Response.Write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	Response.Write Chr(10)
	Response.Write "<td>"
	Response.Write Chr(10)
	Response.Write "<a href="&Request.ServerVariables("HTTP_REFERER")&"> << 返回上一页</a>　<a href=../../boards.asp> << 返回首页</a>"
	Response.Write "</td></tr>"
	Response.Write Chr(10)
	Response.Write "</table>"
	Response.Write Chr(10)
	If GBL_TableBottomString <> "" Then
	Response.Write "<table width="&DEF_BBS_ScreenWidth&" border=0 cellspacing=0 cellpadding=0 align=center>"
	Response.Write "<tr>"
	Response.Write "<td>"&GBL_TableBottomString&"</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	End If
	
	SiteBottom
	Response.End
end sub
%>