<%
if Request.Form("Updates") <> "" then
	updates = 1
else
	updates = 0
end if

if Request.Form("firstName") = "" then
	Response.Redirect "AddEntry_Form.asp?errors=All fields must be filled in&score=" & Request.QueryString("score")
elseif Request.Form("lastName") = "" then
	Response.Redirect "AddEntry_Form.asp?errors=All fields must be filled in&score=" & Request.QueryString("score")
elseif Request.Form("Email") = "" then
	Response.Redirect "AddEntry_Form.asp?errors=All fields must be filled in&score=" & Request.QueryString("score")
else
	Dim db
	Set db = Server.CreateObject("ADODB.Connection")
	db.open Application("VMGN_ConnectionString")
	db.execute("INSERT INTO UserLog (FirstName, LastName, Email, Password, Updates, Score) VALUES ('" & Request.Form("FirstName") & "','" & Request.Form("LastName") & "','" & Request.Form("Email") & "','" & Request.Form("password") & "','" & updates & "','" & Request.QueryString("Score") & "')")
	db.close
end if

%>
<SCRIPT Language="JavaScript">
opener.topTen();
</SCRIPT>