Poser une question

Re: Passage de variables d'asp vers flash avec twflashform.asp

J'ai oublié de joindre le code asp :
<%option explicit%>
<%response.buffer=true%>
<%
'' -----------------------
'' twFlashForm version 1.0
''
'' Script TRUCSWEB gratuit
'' http://www.trucsweb.com
''
'' Conception : Oznog
'' Date : 30 juillet 2002
'' -----------------------

Dim strErr, gEntete, gSigne, gTexte, JMail, gServeur, gPriorite, gFormat
Dim gNom, gPrenom, gCourriel, gMess, gSujet, gDestinataire, gNomComplet, gAutres

'''''''''''''''''''''''''''''''''''
' Ajuster les variables globales ''
'''''''''''''''''''''''''''''''''''
gEntete = " "&VbCrlf&VbCrlf

'''''''''''''''''''''''''''''''''''''''''''''''''
' ATTENTION ATTENTION '''''''''''
' Donner l'adresse de votre serveur SMTP
' Contacter l'administrateur de votre serveur
' Pour plus de détails.
'''''''''''''''''''''''''''''''''''''''''''''''''
gServeur = "localhost"

gPriorite = 1 ' 1 = Urgent 3 = normal 5 = bas
gFormat = "text/plain" ' ou text/html

''''''''''''''''''''''''''''''''''''''''
' Ne pas enlever la remarque Trucsweb ''
''''''''''''''''''''''''''''''''''''''''
gSigne = VbCrlf&VbCrlf&"twFlashForm : " & Now() &VbCrlf
gSigne = gSigne & "_________________________________________________________________"&VbCrlf
gSigne = gSigne & "Service gratuit des Trucsweb <http://www.trucsweb.com>"&VbCrlf

strErr = 1
' sDestinataire et sSujet proviennent des valeurs
' des paramètres clip ou clip parameters de la composante.
gDestinataire = Unescape(Trim(Request.QueryString("sDestinataire")))
gSujet = Unescape(Trim(Request.QueryString("sSujet")))
gNom = Unescape(Trim(Request.QueryString("hNom")))
gPrenom = Unescape(Trim(Request.QueryString("hPrenom")))
gCourriel = Unescape(Trim(Request.QueryString("hCourriel")))
gMess = Unescape(Replace(Request.QueryString("hMessage"),"%0D",VbCrlf))
gNomComplet = gPrenom & " " & gNom
if gDestinataire <> "" THEN
On error resume next
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = gServeur
JMail.SenderName = gNomComplet
JMail.Sender = gCourriel
JMail.AddRecipient gDestinataire
JMail.ReturnReceipt = true
JMail.Subject = gSujet
JMail.ContentType = gFormat
gTexte = gEntete & "Message de " & gNomComplet & " (" & gCourriel & ")" &VbCrlf&VbCrlf
gTexte = gTexte & gMess &VbCrlf&VbCrlf

For Each gAutres in Request.QueryString
if Left(gAutres, 1) = "_" then
gTexte = gTexte & gAutres & " : " & Request.QueryString(gAutres) &vbCrLf
end if
Next

gTexte = gTexte & gSigne

JMail.Body = gTexte
JMail.Priority = gPriorite
JMail.Execute
set JMail=nothing
strErr = 0
end if
Response.Write "hErr="&strErr
%>

Je précise que "localhost" m'a été spécifié par mon hébergeur et marche très bien car je reçois bien les messages dans ma messagerie. J'ai tenté l'expérience avec l'adresse smtp complète... même résultat !

Réponses

Aucune réponse à ce message...