pb de formulaire contact asp

idea2concept · 22/08/2006, 16h39

bonjour à toutes et tous et merci à celles et ceux qui pourront m'aider à solutionner mon pb
je n'arrive pas à envoyer le formulaire de contact via mon site, j'ai le message "invalid email"
voici mon script flash ,php et html, ou se situe le pb?
Voici le script dans flash, au bouton SUBMIT :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 on (rollOver) {
	gotoAndPlay("s1");
}
on (releaseOutside, rollOut) {
	gotoAndPlay("s2");
}
on (release) {
url_var = "server_option="+_root.server_option+"&recipient="+_root.recipient+"&your_name="+_parent.text1+"&your_email="+_parent.text2+"&comments="+_parent.text3+_parent.phone+_parent.company;
	getURL("contact."+_root.server_option+"?"+url_var, "_blank", "GET");
	_parent.text1 = "your name";
	_parent.text2 = "e-mail";
	_parent.text3 = "comments";
}

voici le fichier contact.asp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
<%
  Set reg = New RegExp
  reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
  Set m = reg.Execute(Request.QueryString("your_email"))
 
  if m.count > 0 then
    smtpServer = "swapper.loc"
    smtpPort = 25
 
    name = Request.QueryString("your_name")
    Set myMail = CreateObject("CDO.Message")
    myMail.Subject = "from " & name
    myMail.From = Request.QueryString("your_email")
    myMail.To = Request.QueryString("recipient")
    myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & Request.QueryString("message") & "</body></html>"
    myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
    myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
    myMail.Configuration.Fields.Update
    myMail.Send
    Response.Write("Your email was sent")
  else
    Response.Write("Invalid email")
  End if
 
%>
<script>
  resizeTo(300, 300)
  //window.close()
</script>

et enfin dans le fichier index, je dois compléter ces deux lignes
&server_option=
&recipient=
que dois je mettre derrière = ?? j’ai essayé pas mal des choses, mais rien ne marche !!merci beaucoup pour votre aide
Edité par immobilis pour les balises de code. Merci

Immobilis · 22/08/2006, 21h46

Salut,

Que valent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Request.QueryString("your_email")
Request.QueryString("recipient")

A+

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email