<!-- #include file = "../common/act_dbopen.asp" -->
<%
	' Property of and written by Adam Ford -->
	dim CTID
	dim strPhone

	CTID = request.querystring("ctid")
	strPhone = request.form("areacode") & request.form("phone")

	' Make sure a number was passed correctly
	if isNumeric(CTID) then
		CTID = clng(CTID)
	else
		CTID = 0
	end if

	' Create the SQL statement
	strSQL = "UPDATE Contacts SET name='" & request.form("name") & "', email='" & request.form("email") & _
	"', phone='" & strPhone & "', username='" & request.form("username") & "', [password]='" & request.form("password") & "' WHERE CTID=" & CTID & ";"

'	Open a recordset
	objDBConn.execute strSQL

	on error resume next

	if err.number <> 0 then
		dim strPage
		strPage = "act_updatecontact.asp"
%>
	<!-- #include file = "../common/dsp_error.asp" -->
<%
	else
		strphone = empty
		HID = empty
%>
<!-- #include file = "../common/act_dbclose.asp" -->
<%
		response.redirect ("dsp_main.asp")
	end if
%>