<%

Set EmailConn = server.CreateObject("ADODB.Connection")
EmailConn.Open "underoathdb"
	
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "emails"
rsEmail.Open strSQL, EmailConn, 1, 3, &H0002
	
	rsEmail.addnew
		rsemail("name") = request.form("name")
		rsemail("email") = request.form("email")
	rsemail.update
	
rsEmail.Close
Set rsEmail = Nothing
	
EmailConn.Close
Set EmailConn = Nothing

response.redirect("/uo")

%>