Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1528 connectés 

  FORUM HardWare.fr
  Programmation
  ASP

  script asp pour formulaire

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

script asp pour formulaire

n°932172
norman32
Posté le 26-12-2004 à 20:33:30  profilanswer
 

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

mood
Publicité
Posté le 26-12-2004 à 20:33:30  profilanswer
 

n°932239
bob007
Posté le 27-12-2004 à 09:15:36  profilanswer
 

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!

n°932253
DVDAI
Posté le 27-12-2004 à 09:48:04  profilanswer
 

norman32 a écrit :




 
Et la balise code bourdel, c'est pour les ienchs ?  :o  

n°932281
bob007
Posté le 27-12-2004 à 10:54:31  profilanswer
 

rhooo on s'détend! Spa grave!

n°932284
norman32
Posté le 27-12-2004 à 10:56:58  profilanswer
 

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

n°932337
bob007
Posté le 27-12-2004 à 11:53:35  profilanswer
 

oui bon faut pas abuser non plus la! :lol:
met ca comme il faut, avec les balises qui vont bien stp!

n°932346
norman32
Posté le 27-12-2004 à 11:59:14  profilanswer
 

hmmm dans quelle balise les balises html ? si oui dans quelle balise je supose la balise /form ?

n°932867
bob007
Posté le 28-12-2004 à 08:54:40  profilanswer
 

mais naaaan :lol:
 
edite ton message et tu mets entre [ cpp ] ton code comme ca:

Code :
  1. test

n°933243
norman32
Posté le 28-12-2004 à 20:14:48  profilanswer
 

c'est bon le script est fini et fonctionne merci de ton aide :) et merci firefox pour le déboguage lol :p


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ASP

  script asp pour formulaire

 

Sujets relatifs
Besoin d'aide script d'envoi de formulairescript 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 ] Formulaireenvoyer un formulaire sous forme cryptée à un script PHP, méthode ?
Plus de sujets relatifs à : script asp pour formulaire

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.037 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR