<%  
Response.Buffer = True 
on error resume Next
dim db,conn,connstr,rs
Dim siteName,siteLogo

db = "#WiiMsg_data.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(db)
conn.Open connstr

if Err.Number <> 0 then
	err.clear
	Response.redirect "error.asp?err=101"
    Response.End
end If

Dim sqlStr
sqlStr="select top 1 * from WP_conf"
set rs = server.createobject("ADODB.RecordSet")
rs.open sqlStr,conn,1,1

If rs.eof Then
	Response.redirect "error.asp?err=102"
    Response.End		
Else
	siteName=rs("conf_name")
	siteLogo=rs("conf_logo")
	siteWidth=rs("conf_width")

	isMsgShow=rs("conf_isMsgShow")
	msgShowNum=rs("conf_msgShowNum")
	msgIntro=rs("conf_msgIntro")
	msgFilter=rs("conf_filter")

	mailSMTP=rs("conf_mailSMTP")
	mailAccount=rs("conf_mailAccount")
	mailPassword=rs("conf_mailPassword")
	mailAddress=rs("conf_mailAddress")


	If siteWidth="0" Then
		siteWidth="240px"
	Else
		siteWidth="100%"
	End if
End if
rs.close
Set rs=nothing
%>