Sistema indique

Estou tentando fazer um sistema de indique, mas estou tendo muitas dificuldades. Exemplo, nao consigo que os dados do form sejam validos. (remetente,emailremetente,destinatario,emaildestinatario,assunto,texto)

<%function enviarEmail(remetente,emailremetente,destinatario,emaildestinatario,assunto,texto)
	Const cdoSendUsingPort = 1

	set iMsg = CreateObject("CDO.Message")
	set iConf = CreateObject("CDO.Configuration")

	set Flds = iConf.Fields

	with Flds
 .Item("[http://schemas.microsoft.com/cdo/configuration/sendusing")](http://schemas.microsoft.com/cdo/configuration/sendusing) = cdoSendUsingPort
 .Item("[http://schemas.microsoft.com/cdo/configuration/smtpserver")](http://schemas.microsoft.com/cdo/configuration/smtpserver) = "smtpsuser.igempresas.ig.com.br"
 .Item("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")](http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout) = 10
 .Item("[http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")](http://schemas.microsoft.com/cdo/configuration/smtpauthenticate) = 1
 .Item("[http://schemas.microsoft.com/cdo/configuration/sendusername")](http://schemas.microsoft.com/cdo/configuration/sendusername) = "alessandro@juseundi.com.br"
 .Item("[http://schemas.microsoft.com/cdo/configuration/sendpassword")](http://schemas.microsoft.com/cdo/configuration/sendpassword) = "xxxx"
 .Update
	end With

	With iMsg
 Set .Configuration = iConf
 .To = destinatario & "<" & emaildestinatario & ">"
 .From = remetente & "<" & emailremetente & ">"
 .Subject = assunto
 .HtmlBody = texto
 .Send
	End With

	Set iMsg = Nothing
	Set iConf = Nothing
	Set Flds = Nothing

<form action="indique.asp?mode=doit"name="enviarEmail"method="post">
<input type="text"name="remetente"><br>
<input type="text"name="emailremetente"><br>
<input type="text"name="destinatario"><br>
<input type="text"name="emaildestinatario"><br>
<input type="text"name="assunto"><br>
<textarea name="texto"></textarea><br>
<input type="submit"value="Enviar"id="ft14"></form>