flash + asp

[tati.84]

eccomi ancora qui con il mio problema form flash + asp....vi mettto il codice...mi potete aiutare????

<%

on error resume next

if err.number>0 then
strOutput= "Si Ë verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sar‡ nostra cura inviarLe una conferma della richiesta"
end if

response.write "inserimento avvenuto con successo"


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo



invioA = "tatiana.ferri@virgilio.it"

invioDa = "tatiana.ferri@virgilio.it"



nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")


corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Indirizzo : " & Request.Form("cognome")
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("telefono")
corpoMessaggio = corpoMessaggio & vbCrLf &"Marca : " & Request.Form("marca")
corpoMessaggio = corpoMessaggio & vbCrLf &"Modello : " & Request.Form("modello")
corpoMessaggio = corpoMessaggio & vbCrLf &"Richiesta : " & Request.Form("richiesta")


DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.fastwebnet.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>


SUL BOTTONE
on (release) {
if (inputnome<>"" & inputcognome<> "" & inputemail<> ""& inputtelefono<> ""& inputmarca<> ""& inputmodello<> ""& inputrichiesta<> "") {
nome = inputnome;
cognome = inputcognome;
email = inputemail;
telefono = inputtelefono;
marca = inputmarca;
modello = inputmodello;
richiesta = inputrichiesta;
loadVariables("contatti", this, "POST");
} else {
out= "* Campo obbligatorio";
}
}

solo che è come se la pagina non "reagisse"....please...aiuto!!!!

[enigma_79]

loadVariables("contatti", this, "POST");


dovrebbe essere contatti.asp

altrimenti a cosa punta???

[tati.84]

beh..non è quello il problema perché quando era contatti.asp non funzionava comunque...altro secondo te? sono disperata!
cmq grazie per la risposta!

[enigma_79]

sicuramente quello è un errore.

altro

prova una cosa del genere
dove trovi

'Set iMsg = CreateObject("CDO.Message")
'Set iConf = CreateObject("CDO.Configuration")
'Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort 
Flds(cdoSMTPServer) = "smtp.fastwebnet.it" 
Flds(cdoSMTPServerPort) = 25 
Flds(cdoSMTPAuthenticate) = cdoAnonymous 0 
Flds.Update 


'Flds.Update

la parte di connessione

Dim objCDO 
Dim omailConfig 

Set objCDO = Server.CreateObject("CDO.Message") 
Set omailConfig = Server.CreateObject ("CDO.Configuration") 

omailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.3" 
omailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
omailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
omailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
omailConfig.Fields.Update

io per il mio server ho dovuto cambiare così quel file

[crescenzo]

Originariamente inviato da tati.84
beh..non è quello il problema perché quando era contatti.asp non funzionava comunque...altro secondo te? sono disperata!
cmq grazie per la risposta!

scusa ma il form flash invia i dati alla pag asp???

metti qualche trace x vedere se invia le var alla pag asp


ps questo script mi sembra familiare



@enigma_79 ciao dottò

[enigma_79]

Originariamente inviato da crescenzo
scusa ma il form flash invia i dati alla pag asp???

metti qualche trace x vedere se invia le var alla pag asp


ps questo script mi sembra familiare



@enigma_79 ciao dottò

@ crescenzo Familiarissimo e sicuramente funzionante
ti aspetto su msn

[crescenzo]

Originariamente inviato da enigma_79
@ crescenzo Familiarissimo e sicuramente funzionante
ti aspetto su msn

[ot]
tra una mezzoretta sono da te il tempo di finire sta lezione
[/ot]