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:
Si necesitáis más datos pedírmelos, necesito bastante ayuda con esto, estoy parado.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
Gracias.