[Resolvido] Formulario com CDO

Boa tarde! Pequei esse código de formulário na Internet que funciona perfeitamente, mas ele não tem os input para remetente e destinatário... como posso modificar esse codigo para ter os inputs para remetente, emailremetente, destinatário e emaildestinatario? Obrigada http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

<%sub enviarEmail(remetente,emailremetente,destinatario,emaildestinatario,assunto,texto)
Const cdoSendUsingPickup = 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")=cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxx"

.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

call enviarEmail("remetente aqui","emailremetente aqui","destinatario aqui","emaildestinatario aqui","teste","teste do indique")%>