¿Cómo crear un form dentro de un email?

[antoli]

Estoy intentado enviar un form dentro del cuerpo de un email, para que el usuario que reciba el email, pulse el botón activar y entonces abra una pagína en blanco asp, y active su cuenta de registro en mi web.
El problema es que creo el form y efectivamente lo envia por email, pero luego en el email al pulsar el submit no hace nada y no funciona.
Me podéis ayudar y decirme si es posible hacer esta instrucción.
Gracias.

Código:

      sql = "SELECT autonumerico FROM registro WHERE dni=" & dni & ""
      set RS = oConn.execute(sql)
	  
	  Dim iMsg
      Dim iConf
      Dim Flds
      set iMsg = CreateObject("CDO.Message")
      set iConf = CreateObject("CDO.Configuration")
      Set Flds = iConf.Fields
      Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
      Flds.Update
      
	  With iMsg

      Set.Configuration = iConf
      .From = "[email protected]"
	  .To = Request.Form("email2")
      .BCC = "[email protected]"
      .Subject = "Cambio email"
      .HTMLBody = "<FONT COLOR='#FFFF00' FACE='VERDANA' style='font-size: 13pt'>"
      .HTMLBody = "Su email ha sido modificado correctamente a: "&Request.Form("email2")&""
      .HTMLBody = "Active su cuenta"
      .HTMLBody = "<form method='post' action='http://www.webpolicial.net/Activado2005.asp' target='_blank'>"
      .HTMLBody = "<INPUT NAME='autonumerico' value='" & autonumerico & "' Type='Hidden'>"   
      .HTMLBody = "<INPUT TYPE='submit' value='Activar' style='font-size: 10pt; color: #000000; border: 1px solid #008080; font-family:Arial'></form>"  
      .Send

      End With

Si necesitáis más datos pedírmelos, necesito bastante ayuda con esto, estoy parado.
Gracias.