pasar datos de un formulario a otro

[Fiebrenet]

Maestros:
Pues mi problema es el siguiente:
(1) en un formulario genero un numero aleatorio.
(2) Ese formulario lo envio via CDONTS a la persona que llenó el formulario con una copia a mi.
(3) el problema esta en que no llega a enviarse en estos emails el Número aleatorio creado en (1)

Alguien me puede dar una mano?

Fiebrenet
A continuación el código

---Formulario.asp---
<%
Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo
Dim sOtherId
Function Password_GenPass( nNoChars, sValidChars )


Const szDefault = "ABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength

Randomize

If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )

For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
sOtherId = Password_GenPass( 6, "" )
' donde vez el numero 6 es para el numero
'de digitos que deseas para tu codigo.
response.write "Codigo creado: <B>"&sOtherId&"</B>"
%>
<form method="post" action="enviar.asp">
<br><p><b>Para:</b> <input name="para" type="text" size="30">
<br><b>Asunto: <input name="asunto" type="text" size="30">
<br><b>Mensaje:</b>
<br><textarea name="mensaje" cols=40 rows=10></textarea>
<br><input type="submit" value="Enviar"> </p>
</form>

---enviar.asp---

<%
' Recogemos los datos del formulario
para = TRIM( Request( "para" ) )
asunto = TRIM( Request( "asunto" ) )
mensaje = TRIM( Request( "mensaje" ) )

' Comprobamos y enviamos el mail
IF para <> "" THEN
Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.From = "[email protected]"
myMail.To = para
myMail.CC = "[email protected]"
myMail.Subject = asunto
myMail.Body = mensaje
myMail.Send
Set myMail = Nothing
Response.Write "Email enviado con éxito"
ELSE
Response.Write "Debes incluir una dirección de email"
END IF
%>

[Mickel]

Por supuesto que no llega a enviarse. Y es porque tu haces...
mensaje = TRIM( Request( "mensaje" ) )
y te olvidaste de incluir tu codigo random en el mensaje
deberia ser
mensaje=Trim(Request("mensaje")) & chr(13) & chr(13) & vardetucodigo
ves?

[Fiebrenet]

Gracias Mickel
Voy a probarlo ahora mismo ;)

Fiebrenet