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
%>