Mail join
cs_bolo
Messages postés
28
Date d'inscription
mercredi 13 novembre 2002
Statut
Membre
Dernière intervention
30 juin 2007
-
5 déc. 2002 à 12:57
cs_bolo Messages postés 28 Date d'inscription mercredi 13 novembre 2002 Statut Membre Dernière intervention 30 juin 2007 - 5 déc. 2002 à 16:30
cs_bolo Messages postés 28 Date d'inscription mercredi 13 novembre 2002 Statut Membre Dernière intervention 30 juin 2007 - 5 déc. 2002 à 16:30
1 réponse
cs_bolo
Messages postés
28
Date d'inscription
mercredi 13 novembre 2002
Statut
Membre
Dernière intervention
30 juin 2007
5 déc. 2002 à 16:30
5 déc. 2002 à 16:30
j'arrive a envoyer des mel pour la soummission d'un site ou news mais pour la soumission d'une image , la j'ai rien ni uploade ,ni rien pourtant j'ai verifier les non et tout
le fichier des formulaire 'submit.asp'
<%@LANGUAGE= "VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Soumettre/Submit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../css/texte3.css" rel="stylesheet" type="text/css">
</head>
lien/link,
,
----
<form name="form1" method="post" action="edit_submit.asp">
</form>,
----
Image/Picture,
----
<form action="edit_submit.asp" method="post" enctype="multipart/form-data" name="form2">
</form>,
----
Nouvelle/News,
<form name=\"form3\" method=\"post\" action=\"edit_submit.asp\">
----
<textarea name="new_texte" cols="40" rows="7" class="formulaire" id="new_texte"></textarea>,
,
,
----
,
</form>
<%response.write(request.form("mail_picture"))%>
</html>
la page traitant les mels 'edit_submit.asp'
<%
'envoi un mel contenant le lien
If request.form("submit_link") <> "" then
titre="soumettre un site"
mail=request.form("mail_link")
texte=request.form("link")
End if
'soumission d'une image
If request.form("submit_picture") <> "" then
response.write(request.form("mail_picture"))
'uploader le fichier-----------------------------------------------------------
On Error Resume Next
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'seulement les fichier jpg et gif
mySmartUpload.AllowedFilesList = "jpg,gif"
mySmartUpload.DeniedFilesList = "exe,bat,asp"
mySmartUpload.DenyPhysicalPath = True
' seul les fichier plus petit que 50000 bytes
' *****************************************
mySmartUpload.MaxFileSize = 50000
' Upload
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("../../Upload/")
' Trap errors
' ***********
If Err Then
Response.Write(" Mauvaise Séléction : " & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
'fin du fichier uploader-----------------------------------------------------
titre ="soumettre un image"
mail=request.form("mail_picture")
texte= mySmartUpload.file
end if
' soumission d'un news
if request.form("submit_new") <> "" then
titre="soumettre une nouvelle"
mail=request.form("mail_new")
texte=request.form("new_texte")
end if
'fin
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = "malavoi@meloo.com"
Mailer.From = mail
Mailer.Subject = titre
if request.form("submit_picture") <> "" then
Mail.AttachFile ServerMapPath("../../Upload/"&texte)
end if
Mailer.Body = texte
Mailer.Send
%>
independza
french west iNdies
le fichier des formulaire 'submit.asp'
<%@LANGUAGE= "VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Soumettre/Submit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../css/texte3.css" rel="stylesheet" type="text/css">
</head>
lien/link,
,
----
<form name="form1" method="post" action="edit_submit.asp">
</form>,
----
Image/Picture,
----
<form action="edit_submit.asp" method="post" enctype="multipart/form-data" name="form2">
</form>,
----
Nouvelle/News,
<form name=\"form3\" method=\"post\" action=\"edit_submit.asp\">
----
<textarea name="new_texte" cols="40" rows="7" class="formulaire" id="new_texte"></textarea>,
,
,
----
,
</form>
<%response.write(request.form("mail_picture"))%>
</html>
la page traitant les mels 'edit_submit.asp'
<%
'envoi un mel contenant le lien
If request.form("submit_link") <> "" then
titre="soumettre un site"
mail=request.form("mail_link")
texte=request.form("link")
End if
'soumission d'une image
If request.form("submit_picture") <> "" then
response.write(request.form("mail_picture"))
'uploader le fichier-----------------------------------------------------------
On Error Resume Next
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'seulement les fichier jpg et gif
mySmartUpload.AllowedFilesList = "jpg,gif"
mySmartUpload.DeniedFilesList = "exe,bat,asp"
mySmartUpload.DenyPhysicalPath = True
' seul les fichier plus petit que 50000 bytes
' *****************************************
mySmartUpload.MaxFileSize = 50000
' Upload
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("../../Upload/")
' Trap errors
' ***********
If Err Then
Response.Write(" Mauvaise Séléction : " & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
'fin du fichier uploader-----------------------------------------------------
titre ="soumettre un image"
mail=request.form("mail_picture")
texte= mySmartUpload.file
end if
' soumission d'un news
if request.form("submit_new") <> "" then
titre="soumettre une nouvelle"
mail=request.form("mail_new")
texte=request.form("new_texte")
end if
'fin
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = "malavoi@meloo.com"
Mailer.From = mail
Mailer.Subject = titre
if request.form("submit_picture") <> "" then
Mail.AttachFile ServerMapPath("../../Upload/"&texte)
end if
Mailer.Body = texte
Mailer.Send
%>
independza
french west iNdies
