Asp e Flash

[Biondina 0]

Gente,

estou com um problemão...que na verdade acho que nao é nada pra algum de vcs, mas vamos lá...

 

Estou com um site no ar, porém a parte do contato-form, nao está funcionando e nao sei o que está errado. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

(endereço do site: www.oaktreetransportes.com.br)

A página asp está dentro do www no FTP.

 

Segue CODE do basic_mail.asp

 

 

[color="#2E8B57"]<% @language="VBSCRIPT" %> <%Dim myMail, myBodymyBody = "Name: "& request.form("name") & vbcrlfmyBody = myBody & "Email: "& request.form("email") & vbcrlfmyBody = myBody & "Message: "& vbcrlf & request.form("message")Set myMail = CreateObject("CDONTS.NewMail")myMail.BodyFormat=1myMail.MailFormat=1myMail.From=request.form("email")myMail.To="carlaromano@hotmail.com"myMail.Subject="Contato Site"myMail.Body=myBodymyMail.Sendset myMail=nothing%>[/color]Agora a actionscrpt do flash:(que está no botao de enviar)[color="#4169E1"]on (release) {}on (release) {getURL("basic_mail.asp", "", "POST");gotoAndPlay(122);} [/color]

Alguém pode me ajudar?? Nao sei mais onde recorrer.... :(

Super obrigada! Antecipadamente! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Maux 0]

faiz assim oh:

 

no codigo asp você faiz isso:

<% @language="VBSCRIPT" %> <%Dim myMail, myBodymyBody = "Name: "& request("name") & vbcrlfmyBody = myBody & "Email: "& request("email") & vbcrlfmyBody = myBody & "Message: "& vbcrlf & request("message")Set myMail = CreateObject("CDONTS.NewMail")myMail.BodyFormat=1myMail.MailFormat=1myMail.From=request("email")myMail.To="carlaromano@hotmail.com"myMail.Subject="Contato Site"myMail.Body=myBodymyMail.Sendset myMail=nothingresponse.redirect ("http://www.oaktreetransportes.com.br/")%>

no flash você coloca todos inputbox um nome de var

e no botao você coloca o action:

 

on (release) {}on (release) {getURL("basic_mail.asp?name="+name+"&email="+email+"&message="+message, "", "GET");gotoAndPlay(122);}

soh isso ;)

qualquer duvida posta ai

 

na verdade tenho algumas dicas para seu site, me adiciona no msn caso queira ouvi-las: maucanabis@Hotmail.com

[Biondina 0]

faiz assim oh:

 

no codigo asp você faiz isso:

<% @language="VBSCRIPT" %> <%Dim myMail, myBodymyBody = "Name: "& request("name") & vbcrlfmyBody = myBody & "Email: "& request("email") & vbcrlfmyBody = myBody & "Message: "& vbcrlf & request("message")Set myMail = CreateObject("CDONTS.NewMail")myMail.BodyFormat=1myMail.MailFormat=1myMail.From=request("email")myMail.To="carlaromano@hotmail.com"myMail.Subject="Contato Site"myMail.Body=myBodymyMail.Sendset myMail=nothingresponse.redirect ("http://www.oaktreetransportes.com.br/")%>

no flash você coloca todos inputbox um nome de var

e no botao você coloca o action:

 

on (release) {}on (release) {getURL("basic_mail.asp?name="+name+"&email="+email+"&message="+message, "", "GET");gotoAndPlay(122);}

soh isso ;)

qualquer duvida posta ai

 

na verdade tenho algumas dicas para seu site, me adiciona no msn caso queira ouvi-las: maucanabis@Hotmail.com

 

 

OIIII!!! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

OBRIGADA, MAS AINDA NAO ESTÁ FUNCIONANDO... QUANDO EU CLICO ENTER, APARECE ESSA A MENSAGEM ABAIXO E EU NAO RECEBO O EMAIL......

VOU TE ADICIONAR SIM!!! QUERO SABER AS DICAS! O SITE É DE UMA AMIGA MINHA, MAS PASSO PRA ELA!!!!

DESCULPA O PERRENGUE! http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

 

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

 

More information about this error may be available in the server error log.

 

 

 

--------------------------------------------------------------------------------

 

Web Server at oaktreetransportes.com.br

[Maux 0]

que mensagem aparece?o servidor tem o componente CDONTS ???

[Biondina 0]

que mensagem aparece?

 

APARECE:

500 Internal Server Error

 

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

 

More information about this error may be available in the server error log.

 

 

 

--------------------------------------------------------------------------------

 

Web Server at oaktreetransportes.com.br

 

que mensagem aparece?

 

APARECE:

500 Internal Server Error

 

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

 

More information about this error may be available in the server error log.

 

 

 

--------------------------------------------------------------------------------

 

Web Server at oaktreetransportes.com.br

 

 

Nao vi esse componente no FTP... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif (nao me xinga :unsure: ... sou uma anta pra isso...)

[Maux 0]

não fica no ftp, componete é um tipo de um sistema que o servidor tem que realiza aplicaçõs do tipo enviar email, o CDONTS é um deles...

faz o seguinte, salva esta pagina e me avisa quando colocar no ftp:

componentes.asp

<% @ Language="VBScript" %><br> <%   On Error Resume Next  Dim theComponent(11)  Dim theComponentName(11)' componentes  theComponent(0) = "ADODB.Connection"  theComponent(1) = "SoftArtisans.FileUp"  theComponent(2) = "AspHTTP.Conn"  theComponent(3) = "AspImage.Image"  theComponent(4) = "LastMod.FileObj"  theComponent(5) = "Scripting.FileSystemObject"  theComponent(6) = "SMTPsvg.Mailer"  theComponent(7) = "CDONTS.NewMail"  theComponent(8) = "Jmail.smtpmail"  theComponent(9) = "SmtpMail.SmtpMail.1"  theComponent(10) = "Persits.Upload.1"  theComponent(11) = "UnitedBinary.AutoImageSize"' apelido do componente  theComponentName(0) = "ADODB"  theComponentName(1) = "SA-FileUp"  theComponentName(2) = "AspHTTP"  theComponentName(3) = "AspImage"  theComponentName(4) = "LastMod"  theComponentName(5) = "FileSystemObject"  theComponentName(6) = "ASPMail"  theComponentName(7) = "CDONTS"  theComponentName(8) = "JMail"  theComponentName(9) = "SMTP"  theComponentName(10) = "Persits Upload"  theComponentName(11) = "AutoImageSize"Function IsObjInstalled(strClassString)  On Error Resume Next  IsObjInstalled = False  Err = 0  Dim xTestObj  Set xTestObj = Server.CreateObject(strClassString)  If 0 = Err Then IsObjInstalled = True  Set xTestObj = Nothing  Err = 0  End Function%><br>  <html>  <head>  <title>Componentes encontrados </title>  </head>  <body>  <table>  <tr>  <td width="166" align="center"><b>Componentes   instalados:</b></font></td>  </tr>  <tr>  <td> <font face="Arial" size="2">  <table border=1>  <%   Dim i  For i=0 to UBound(theComponent)  If Not IsObjInstalled(theComponent(i)) ThenElse  Response.Write "<tr>" & vbCrLf  Response.Write "<td width=""100%"">" &  vbCrLf  Response.Write "<b>" &theComponentName(i)& "</b>"  & vbCrLf  Response.Write "</td>" & vbCrLf  Response.Write "</tr>" & vbCrLf  End If  Next   %>  </table>  </font>   </td>  </tr>  </table>  </BODY><%If Err <> 0 Then Erros()%>  </HTML>

este codigo lista os componentes instalados no seu servidor, através disso nós veremos qual o melhor pra você mandar seu email de contato :)

quando você salvar la no ftp me avisa e me manda o link pra mim ver

[Biondina 0]

tá lá.... você é um genio... e vai pro ceu certeza!

 

http://www.oaktreetransportes.com.br/componentes.asp

 

Componentes instalados:

ADODB

FileSystemObject

CDONTS

 

VIRGE!

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

voltei.... deu pau aqui no explorer....:P

[Maux 0]

nuhs, agora encontramos um problema heuheue...

o servidor tem o CDONTS, mais não ta funcionando..

então o erro ta no codigo..

vmo arruma intao =D

coloca esse codigo oh:

 

basic_mail.asp

<% @language="VBSCRIPT" %> <%on error resume nextDim myMail, myBodymyBody = "Name: "& request("name") & vbcrlfmyBody = myBody & "Email: "& request("email") & vbcrlfmyBody = myBody & "Message: "& vbcrlf & request("message")Set myMail = CreateObject("CDONTS.NewMail")myMail.BodyFormat=1myMail.MailFormat=1myMail.From=request("email")myMail.To="carlaromano@hotmail.com"myMail.Subject="Contato Site"myMail.Body=myBodymyMail.Sendset myMail=nothingresponse.redirect ("http://www.oaktreetransportes.com.br/")if err.number > 0 then  response.write err.description err.number = 0end if%>

desse jeito ele vai retornar o erro do codigo caso seja o problema

[Biondina 0]

vixioutro erroInternal Server ErrorThe server encountered an internal error or misconfiguration and was unable to complete your request.Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.More information about this error may be available in the server error log.nao quero te encher... se você tiver cansado, pode ir...

[Maux 0]

qual erro?

[Biondina 0]

Internal Server ErrorThe server encountered an internal error or misconfiguration and was unable to complete your request.Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.More information about this error may be available in the server error log.

[Maux 0]

não, vamos encontrar o problema....espera um minuto que vou fazer uns testes em meu servidor e ti volto com a resposta ja....

[Biondina 0]

obrigada mesmo :D

[Maux 0]

descobri o erro...

o codigo estava com uma tag html a "&" que é & "Ecomercial" por isso dava erro..

 

ai ta o codigo certo:

<% @language="VBSCRIPT" %> <%on error resume nextDim myMail, myBodymyBody = "Name: "& request("name") & "<BR>"myBody = myBody & "Email: "& request("email") & "<BR><HR>"myBody = myBody & "Message: "& vbcrlf & request("message")Set myMail = CreateObject("CDONTS.NewMail")myMail.BodyFormat=1myMail.MailFormat=1myMail.From=request("email")myMail.To="carlaromano@hotmail.com"myMail.Subject="Contato Site"myMail.Body=myBodymyMail.Sendset myMail=nothingresponse.redirect ("http://www.oaktreetransportes.com.br/")if err.number > 0 then  response.write err.descriptionerr.number = 0end if%>

[Biondina 0]

estou testando....nao deu erro, mas nao recebi os emailsno flash nao muda nada???o asp vai dentro do folder www mesmo no FTP?

[Maux 0]

sim esta certinho!!bem se não deu erro é por que está certo, alguns servidores são um pouco lentos, e talves haja alguma incompatiiblidade com o servidor do hotmail, mais acho dificil, comigo é assim também, você receberá os emails mais com um pouco de atraso =Ddemora um pouco mesmo!mais acho eu que funcionou, teste com outros email se ser hotmail...att

[Biondina 0]

ok.... valeu!!!nem sei com te agradecer!vou te add no msn ok???mto obrigada mesmo!!! boa noite!!!! bom descanso.beijos

[Maux 0]

que nada, precisando tamo ai =Dadiciona simvlw bjos