formail con asp

[Simoweb]

non so se il problema è falsh o asp.

comunque da asp richiamo i campi con Request.Form ("nome") ed è giusto.

in flash creo sei campi a cui do la variabile (nome cognome ecc)

il bottone flash è:
on (release) {
//campi nascosti
emailto = "s.cavadini@index.it";
soggetto = "Compilazione Modulo";
Returnurl ="http://www.indexpoint.biz/grazie.html";
loadVariablesNum ("http://www.indexpoint.biz/omniacontact.asp", "0", "POST");
}
il problema è che generando il fla mi funziona e arrivano i dati sulla mail ma se pubblico e testo no!!!

consigli

[Simoweb]

uso MX

[Simoweb]

in locale non mi genera il trace. quarda puoi controllare anke tu. ho pubblicato:
qui

ma non va...

[Simoweb]

il fla lo trovi
qui

lo script asp è questo:

<%@ Language=VBScript %>

<%
'------------------------Begin ASP---------------------
SourceCall = Request.ServerVariables("HTTP_REFERER")
ReturnUrl = Request.Form("returnUrl")
if ReturnUrl = "" then ReturnUrl = SourceCall
p0 = Instr(1, SourceCall, "www.")
if p0 > 0 then
p0 = p0 + 4
p1 = Instr(p0, SourceCall, "/")
if p1 = 0 then NomeDominio = Mid(SourceCall, p0) else NomeDominio = Mid(SourceCall, p0, p1 - p0)
end if
EmailTo = Request.Form("emailTo")
if NomeDominio <> "" and EmailTo <> "" then
if DomainExists(NomeDominio) then
EmailMessage = Request.Form("emailBody")
if EmailMessage <> "" then EmailMessage = EmailMessage & vbCrLf
for i = 1 to Request.Form.Count
Campo = Request.Form.Key(i)
if Left(Campo, 1) = "_" then EmailMessage = EmailMessage & vbCrlf & Mid(Campo, 2) & ": " & Request.Form.Item(i)
next
set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "mailservice@index.it"
Mail.To = EmailTo
Mail.Subject = Request.Form("emailSubject")
Mail.Body = EmailMessage
Mail.Send
set Mail = nothing
' BuscomDb_OpenConnection
' BuscomDb.Execute "INSERT INTO SendToEmail (EmailFrom, EmailTo, Title, Message, Service) VALUES ('" & EmailFrom & "','" & EmailTo & "','" & EmailTitle & "','" & EmailMessage & "', 'OmniaContact')"
' BuscomDb_CloseConnection
end if
end if
Response.Write "<script language=javascript>location.href='" & ReturnUrl & "';</script>"
'------------------------End ASP-----------------------

Function DomainExists(nd)
DbcOpen
set Rst = Dbc.Execute("SELECT NomeDominio FROM Domini WHERE NomeDominio='" & nd & "'")
DomainExists = not Rst.Eof
Rst.Close
set Rst = Nothing
DbcClose
End Function
%>

[Simoweb]

:quote: