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+

pb de formulaire contact asp

ASP

Discussions similaires

Partager

Partager