<%@ LANGUAGE = "VBScript" %> <% if request.form("action") = "create" then firstname = request.form("first_name") lastname= request.form("last_name") username = request.form("username") email = request.form("email") pword = request.form("pword") admin = request.form("admin") if admin = "" then admin = "no" end if strSQl = "SELECT username FROM blog_users WHERE username = '" & username & "' " set dbRS = conn.Execute(strSQL) if dbRS.eof then strSQL = "INSERT INTO blog_users (first_name, last_name, username, email, pword, admin) " _ & " VALUES ('" & firstname &"', '" & lastname & "', '" & username & "','" & email & "', '" & pword &"', '" & admin &"')" conn.Execute(strSQL) %> <% else message = "Username already in use. Please select another." end if end if%> Create Account
 Today's Blog  &year=<%= session("theYear") %>'" onMouseOver="highlight(this)" onMouseOut="unhighlight(this)"> Month View    
<%response.write(message) %>

Create new ClickBlog User

<% if session("admin") = "yes" then %> <% end if %>
Username:
First Name:
Last Name:
Email:
Password:
Admin Access:

You will be returned to the main page after the account is created.