<!-- #include file = "../common/act_dbopen.asp" -->
<%
	' Property of and written by Adam Ford -->
	on error resume next

	' Create the SQL statement
	strSQL = "INSERT into Contacts (Name,Email,Phone,UserName,[Password],[Level]) " & _
	"VALUES ('" & request.form("name") & "','" & request.form("email") & _
	"','" & request.form("areacode") & request.form("phone") & "','" & request.form("username") & _
	"','" & request.form("password") & "',3);"
	
'	Open a recordset
	objDBConn.execute strSQL
	if err.number <> 0 then
		dim strPage
		strPage = "act_insertcontact.asp"
%>
	<!-- #include file = "../common/dsp_error.asp" -->
<%
	end if
%>
<!-- #include file = "../common/act_dbclose.asp" -->