 | |
| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
vegas frontpage mioche
 |
Problèmes formulaire. , Posté le: 24-06-2005 22:26 |
|
|
Bonjour.
J'ai créé un site avec créateurs Web studio 2, l'ensemble marche correctement, a pas le formulaire.
Lors de l'envoi du formulaire, je tombe systématiquement sur une page, difficile de dire ce que c'est, voir les inscriptions plus bas.
merci pour vos réponses.
<%
dim actionemail
dim subject
dim str
dim fromemail
dim ObjMail
actionemail = request("actionemail")
subject = request("subject")
str=""
if Request.QueryString <>"" then
for each var in Request.QueryString
if (ucase(var)<>"RESETBUTTON" and ucase(var)<>"SUBMITBUTTON" and ucase(var)<>"SUBMIT" and ucase(var)<>"RESET" and ucase(var)<>"ACTIONEMAIL" and ucase(var)<>"SUBJECT" ) then
str =str & var & "=" & request(var) & vbcrlf
end if
next
end if
fromemail = "webmaster@" & Request.ServerVariables("SERVER_NAME")
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.FROM = fromemail
ObjMail.TO = actionemail
ObjMail.Subject = subject
ObjMail.BodyFormat = 1
ObjMail.MailFormat = 1
ObjMail.Body = str
ObjMail.Send
Response.Write "Your mail has been successfully sent."
Set ObjMail= Nothing
%> |
|
|
|
|
S'enregistrer
Profil
Se connecter pour vérifier ses messages privés
Rechercher
Membres
FAQ
Connexion
|