<%
If (cStr(Request("Submit")) <> "") Then
	If Request("charliesapproval") = "1" Then
Dim usxCDO
Dim id
Dim email
id = Request.QueryString("userid")
email = Request.Form("email")
Set usxCDO = Server.CreateObject("CDONTS.NewMail")
	usxCDO.From = "ckhuc@fs.fujitsu.com"
	usxCDO.To = "chinh11@hotmail.com"
	usxCDO.CC = "chinh11@hotmail.com"
	usxCDO.Subject = "Sending for your approval"
	usxCDO.Body = "Please take a look at this:"  & Chr(13) & Chr(10) &_
	"http://133.164.254.57/fs-forms/mom.asp?userid=" & id
	usxCDO.Send
	Else
	Set usxCDO = Server.CreateObject("CDONTS.NewMail")
	usxCDO.From = "chinh11@hotmail.com"
	usxCDO.To = email
	usxCDO.Subject = "Form not Approved"
	usxCDO.Body = "Your form has not been approved.  Please submit a new one."
	usxCDO.Send
	Set usxCDO = Nothing
	End If
End If
%>