<%@ LANGUAGE = "VBScript" %> <% if session("loggedin") <> "yes" then response.redirect("default.asp") response.end end if strSQL = "SELECT blog_name, monthview_cols, allow_new, admin_email, blog_url FROM blog_settings" set dbRS = conn.execute(strSQL) if request.form("action") = "save" then allow_new = request.form("allow_new") blog_name = ChkString(request.form("blog_name")) monthview_cols = ChkString(request.form("monthview_cols")) admin_email = ChkString(request.form("admin_email")) blog_url = ChkString(request.form("blog_url")) strSQL = "UPDATE blog_settings SET allow_new = '" & allow_new & "', blog_name = '" & blog_name & "', " _ & " monthview_cols = '" & monthview_cols & "', admin_email = '" & admin_email & "', blog_url = '" & blog_url & "'" conn.execute(strSQL) response.redirect("default.asp") end if %> ClickBlog 2.0

ClickBlog!

 Be very careful with the settings below. If you make a make an error the site will no longer function.   Return to Main Page  

Allow New Users:
Your Blog Name:
Month View Columns:
Admin Email Address:
ClickBlog URL: <%= dbRS(4) %><% else %>http://<% end if %>" size="50" maxlength="100">

 
<% conn.Close Set dbRS = Nothing set conn = Nothing %>