script asp pour formulaire
script asp pour formulaire - ASP - Programmation
Marsh Posté le 27-12-2004 à 09:15:36
tu devrais mettre des or a la place des and plutot non ?
A quoi servent tes definitions = empty ?
apres le test de request.form("Howwecanhelpyou" ) tu as un and en trop.
C'est tout ce que je vois vite fait!
Marsh Posté le 27-12-2004 à 09:48:04
Reply
Marsh Posté le 27-12-2004 à 10:56:58
hmmm les définition en fait je déclare les variables à moins qu'il fallais pas j'ai aucune connaissance en asp je remets le script car il a évolué
<% ' Date de création: 26/12/2004 %>
<html>
<body>
<%'declaration de variables
Firstname=Empty
Lastname=Empty
Position=Empty
Company=Empty
Adress=Empty
phonenumber=Empty
Businesstype=Empty
Turnover=Empty
Howwecanhelpyou=Empty
'condition de vérification de données
if Request.Form("Firstname" ) = "" or
Request.form("Lastname" )="" or Request.form("Position" )="" or
Request.form("Company" )="" or
Request.form("Adress" )="" or
request.form("phonenumber" )="" or
request.form("Businesstype" )="" or
request.form("Turnover" )="" or
request.form("Howwecanhelpyou" )="" Then
Response.Write("Le champ est vide !" ) else
'tout est ok
Response.redirect("thankyou.asp" )
'vérification validité email
unction ValidEmail(sEMail)
Dim sInvalidChars
Dim bTemp
Dim i
Dim sTemp
' Caratères interdits
sInvalidChars = Chr(33) & Chr(34) & Chr(35) & Chr(36) & Chr(37) & Chr(38) & Chr(39) & Chr(40) & Chr(41) & Chr(42) & Chr(43) & Chr(44) & Chr(47) & Chr(58) & Chr(59) & Chr(60) & Chr(61) & Chr(62) & Chr(63) & Chr(91) & Chr(92) & Chr(93) & Chr(94) & Chr(96) & Chr(123) & Chr(124) & Chr(125) & Chr(126) & Chr(127)
sInvalidChars = sInvalidChars & Chr(128) & Chr(129) & Chr(130) & Chr(131) & Chr(132) & Chr(133) & Chr(134) & Chr(135) & Chr(136) & Chr(137) & Chr(138) & Chr(139) & Chr(140) & Chr(141) & Chr(142) & Chr(143) & Chr(144) & Chr(145) & Chr(146) & Chr(147) & Chr(148) & Chr(149) & Chr(150) & Chr(151) & Chr(152) & Chr(153) & Chr(154) & Chr(155)
sInvalidChars = sInvalidChars & Chr(156) & Chr(157) & Chr(158) & Chr(159) & Chr(160) & Chr(161) & Chr(162) & Chr(163) & Chr(164) & Chr(165) & Chr(166) & Chr(167) & Chr(168) & Chr(169) & Chr(170) & Chr(171) & Chr(172) & Chr(173) & Chr(174) & Chr(175) & Chr(176) & Chr(177) & Chr(178) & Chr(179) & Chr(180) & Chr(181) & Chr(182) & Chr(183)
sInvalidChars = sInvalidChars & Chr(184) & Chr(185) & Chr(186) & Chr(187) & Chr(188) & Chr(189) & Chr(190) & Chr(191) & Chr(192) & Chr(193) & Chr(194) & Chr(195) & Chr(196) & Chr(197) & Chr(198) & Chr(199) & Chr(200) & Chr(201) & Chr(202) & Chr(203) & Chr(204) & Chr(205) & Chr(206) & Chr(207) & Chr(208) & Chr(209) & Chr(210) & Chr(211)
sInvalidChars = sInvalidChars & Chr(212) & Chr(213) & Chr(214) & Chr(215) & Chr(216) & Chr(217) & Chr(218) & Chr(219) & Chr(220) & Chr(221) & Chr(222) & Chr(223) & Chr(224) & Chr(225) & Chr(226) & Chr(227) & Chr(228) & Chr(229) & Chr(230) & Chr(231) & Chr(232) & Chr(233) & Chr(234) & Chr(235) & Chr(236) & Chr(237) & Chr(238) & Chr(239)
sInvalidChars = sInvalidChars & Chr(240) & Chr(241) & Chr(242) & Chr(243) & Chr(244) & Chr(245) & Chr(246) & Chr(247) & Chr(248) & Chr(249) & Chr(250) & Chr(251) & Chr(252) & Chr(253) & Chr(254) & Chr(255)
'Rechercher qu'il y a au moins un '@'
bTemp = InStr(sEMail, "@" ) <= 0
'Rechercher qu'il y a au moins un '.'
bTemp = bTemp Or InStr(sEMail, "." ) <= 0
'Vérifions que la taille est plus grande que 6 caractères (a@a.ca)
bTemp = bTemp Or Len(sEMail) < 6
'Vérifier qu'il y a qu'n seul '@'
i = InStr(sEMail, "@" )
sTemp = Mid(sEMail, i + 1)
bTemp = bTemp Or InStr(sTemp, "@" ) > 0
'Vérifier qu'il y un '.' après le '@'
bTemp = bTemp Or InStr(sTemp, "." ) = 0
'Vérifier la présence de (" )
bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0
'Vérifier la présence de (.@)
bTemp = bTemp Or InStr(sEMail, ".@" ) > 0
'Vérifier la présence de (@.)
bTemp = bTemp Or InStr(sEMail, "@." ) > 0
'Vérifier la présence de (..)
bTemp = bTemp Or InStr(sEMail, ".." ) > 0
'Vérifié s'il y a des caractères interdits
For i = 1 To Len(sEMail)
If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then
bTemp = True
End If
Next
' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide
ValidEmail = Not bTemp
End Function
If ValidEmail("Votre email" )= True Then
Response.Write "Le mail est valide"
Else
Response.Write "Le mail est invalide"
End If
endif
'envoie email
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail" )
objCDOMail.From = Request.Form("_email" )
objCDOMail.To="contact@cortexinformaticltd.biz"
objCDOMail.Subject=Request.Form("FORMULAIRE DE CONTACT" )
objCDOMail.Body=Request.Form("_body" )
objCDOMail.Send
Set objCDOMail=Nothing
%>
</body>
</html>
ne pas tenir compte des balises html
Sinon le formulaire est en htmal et déja prêt
Marsh Posté le 27-12-2004 à 11:53:35
oui bon faut pas abuser non plus la! 
met ca comme il faut, avec les balises qui vont bien stp!
Marsh Posté le 27-12-2004 à 11:59:14
hmmm dans quelle balise les balises html ? si oui dans quelle balise je supose la balise /form ?
Marsh Posté le 28-12-2004 à 08:54:40
mais naaaan
edite ton message et tu mets entre [ cpp ] ton code comme ca:
Code :
|
Marsh Posté le 28-12-2004 à 20:14:48
c'est bon le script est fini et fonctionne merci de ton aide 
et merci firefox pour le déboguage lol 
Sujets relatifs:
- Besoin d'aide script d'envoi de formulaire
- script formulaire
- script formulaire
- [javascript] Script de validation de formulaire [bug]
- Recherche script de "formulaire de liens"
- Parametrer un formulaire (script CGI ?)
- Simple script d'envoi de formulaire en PHP...
- [PHP]Cherche script pour upload des fichiers a partir d'un formulaire
- [ java script ] Formulaire
- envoyer un formulaire sous forme cryptée à un script PHP, méthode ?
Marsh Posté le 26-12-2004 à 20:33:30
Salut tout le monde je suis en train de coder un script en asp pour un formulaire, qui vérifie si les champs sont remplis et une fois remplis il affiche la page de remerciement, je vous met le code je souhaite savoir si il est correct, je souhaite aussi mettre le script du contenu du formulaire vers mon mail mais je le connais pas car c'est mon 1er programme asp et j'espère le dernier
c'est bon j'ai codé partiellement le script qu'en pensez vous ? c'est pour vérifer si les champs de formulaires sont vides ou pas, il m reste plus qu'a mettre le transfert form 2 email via serveur
<% ' Date de création: 26/12/2004 %>
<html>
<body>
<%'declaration de variables
Firstname=Empty
Lastname=Empty
Position=Empty
Company=Empty
Adress=Empty
phonenumber=Empty
Businesstype=Empty
Turnover=Empty
Howwecanhelpyou=Empty
'condition de vérification de données
if Request.Form("Firstname" ) = "" and
Request.form("Lastname" )="" and Request.form("Position" )="" and
Request.form("Company" )="" and
Request.form("Adress" )="" and
request.form("phonenumber" )="" and
request.form("Businesstype" )="" and
request.form("Turnover" )="" and
request.form("Howwecanhelpyou" )="" and Then
Response.Write("Le champ est vide !" ) else
'tout est ok
Response.redirect("thankyou.asp" )
endif
%>
</body>
</html>
Merci d'avance et joyeux noel