Para expertos en asp

[Rock_dj]

Hola gente, nuevamente.

Alguien me puede decir porque no me anda estos formularios (el servidor soporta asp y la funcion "CDONTS.NewMail" también)

<a href='ir.asp?http://rockdj.aspfreeserver.com/www/form2.html' target='_blank'>http://rockdj.aspfreeserver.com/www/form...</a> esa página deriva a &quot;mail.asp&quot; , lo que no entiendo porque me muestra que no se encuentra la página cuando en realidad ya la subi.

Y este otro
<a href='ir.asp?http://rockdj.aspfreeserver.com/www/form.html' target='_blank'>http://rockdj.aspfreeserver.com/www/form...</a> derivaría a &quot;envia.asp&quot; y me pasa exactamente lo mismo de antes.

salu2 y gracias a todos desde ya ;)

[dajacevit]

Tienes este error.
Microsoft VBScript runtime error '800a0046'

Permission denied

/www/envia.asp, line 21

Y en la segunda

Microsoft VBScript compilation error '800a03ea'

Syntax error

/www/mail.asp, line 13

strBody = strBody &amp; &quot;Este es un mensaje generado por el formulario:&quot; &amp;
----------------------------------------------------------------------^

De pronto si nos muestras, el codigo que estas utilizando te podrìas ayudar.

Saludos

[urjose]

cambia esta linea así:

strBody = strBody &amp; &quot;Este es un mensaje generado por el formulario:&quot;


saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

[Rock_dj]

Le muestro como genere mis códigos:

mail.asp ---&gt; es este:

&lt;html&gt;
&lt;%


Nombre= Request.Form(&quot;nom&quot;)
Empresa= Request.Form(&quot;emp&quot;)
Sugerencias= Request.Form(&quot;sug&quot;)

strTo = &quot;[email protected]&quot;
strSubject = &quot;Envio de sugerencias de: &quot; &amp; Nombre

strBody = &quot;&lt;html&gt;&lt;body&gt;&quot;
strBody = strBody &amp; &quot;Este es un mensaje generado por el formulario:&quot; &amp;
&quot;&lt;br&gt;&lt;br&gt;&quot;
strBody = strBody &amp; &quot;Nombre: &quot;&amp; Nombre &amp;&quot;&lt;br&gt;&quot;
strBody = strBody &amp; &quot;Empresa: &quot;&amp; Empresa &amp;&quot;&lt;br&gt;&quot;
strBody = strBody &amp; &quot;Sugerencias: &quot;&amp; Sugerencias &amp;&quot;&lt;br&gt;&quot;
strBody = strBody &amp; &quot;&lt;/body&gt;&lt;/html&gt;&quot;

Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;) 'Creación del objeto

objCDOMail.From = &quot;[email protected]&quot; 'No hay problema en que sea la
misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject

objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 '

objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing

%&gt;

&lt;/html&gt;



y el otro (envia.asp):


&lt;%
Dim strDe
Dim strPara
Dim strAsunto
Dim strMensaje
Dim objCDOMail
strDe = Request.Form(&quot;De&quot;)
strPara = Request.Form(&quot;Para&quot;)
strAsunto = Request.Form(&quot;Asunto&quot;)
strMensaje = Request.Form(&quot;Mensaje&quot;)
'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

objCDOMail.From = StrDe 'Pudiera ser tambien &quot;[email protected]&quot;
objCDOMail.To = strPara
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje

objCDOMail.Send
Set objCDOMail = Nothing
%&gt;




A ver que me dicen,

salu2

[urjose]

Supongo que esto:

strBody = strBody &amp; &quot;Este es un mensaje generado por el formulario:&quot; &amp;
&quot;&lt;br&gt;&lt;br&gt;&quot;

Esta en dos lineas separadas, motivo del error

Intenta esto:

strBody = strBody &amp; &quot;Este es un mensaje generado por el formulario:&lt;br&gt;&lt;br&gt;&quot;

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

[akela]

como tip:

para concatenar cadenas en varios renglones tienes que poner un guiòn bajo y la primera lìnea y un amperson en la segunda ejemplo:

saludo = &quot;Hola, buenos&quot; _
&amp; &quot; dias&quot;

y asì lo puedes poner en dos renglones pero queda en la misma cadena todo

<img src="http://www.iea-adm.sep.gob.mx/firma.gif">