form send e-mail e asp

[effebiweb]

Ho scaricato un form cn la relativa pagina asp per farlo funzionare.
Nn so praticamente niente riguardo all'asp e quindi nn so come far funzionare il tutto...
ho provato ad inserire l'swf all'interno ma cn l'anteprima nn mi si apre nulla, immagino ci vogliano i tag html...
C'è qualcuno che può praticamente prendermi per mano ed aiutarmi?
e grazie in anticipo



<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="460" height="410">
<param name="movie" value="Sito%20senza%20nome%201/form.swf">
<param name="quality" value="high">
<embed src="Sito%20senza%20nome%201/form.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="460" height="410"></embed>
</object>
<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili

Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto

' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="miaemail@hotmail.com"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf


' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if

%>

[effebiweb]

Mi hanno detto che devo fare un "include", ma nn ho idea di come si faccia...
Scusate l'ignoranza, se qualche anima pia può darmi una mano...

[michele.santoro]

Ma hai installato IIS sul tuo computer?
Per vedere se è installato apri il browser e sulla barra degli indirizzi scrivi: http://localhost. Se non ti appare niente significa che quasi sicuramente devi installarlo.
Per installarlo devi avere il cd di windows xp professional.

[effebiweb]

Si IIS è insatallato...

[effebiweb]

...ed ho già salvato tutto su wwwroot

[michele.santoro]

Allora forse non ho capito bene il tuo problema.
Che cosa non vedi? Hai qualche messaggio di errore errore?
Fai vedere il codice originale?

[effebiweb]

Questo è il codice originale, facendo anteprima nel web(F12), mi si apre una finestra di download del file che è già stato precedentemente salvato in wwwroot!!


<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili

Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto

' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="pepigno1975@yahoo.it"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf


' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if

%>

[michele.santoro]

OK! L'invio di email funziona perfettamente con il codice da te postato.
Ora spiegami che cosa devi fare. Hai realizzato il modulo di spedizione in flash e lo devi inserire?
Stai provando l'invio da locale o direttamente online? Il tuo server ha installato CDOSYS?
Ho provato a spedire con il tuo indirizzo e spedisce (guarda se ti è arrivata l'email di prova).
Non capisco ancora quale sia il problema, la parte asp funziona perfettamente.

[effebiweb]

Ho fatto un sito e nella sezione contatti devo inserire questo form,
come faccio a fare interagire l'asop cn il flash?
Ti spiego meglio, una volta inserita la form nel miop fla cosa devo fare?
Il sito è questo, ora nella sez contatti c'è sl un'immagine.


www.alcars.it

[effebiweb]

Dimenticavo l'indirizzo da inserire nn è pepigno ecc..ma fbarillaro@hotmail.com