Validering JMail

måske sådan her

Function MailOK(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    MailOK = myReg.Test(Streng)
End Function



<form method="post" action="Mail.asp">
Navn: <input type="text" name="navn" size="20"><br>
E-mail: <input type="text" name="email" size="20"><br><br>
Besked:<br><textarea name="besked" rows="1" cols="20"></textarea><br><br>
<input type="submit" value="Send mail">
</form>

<%
If Request.ServerVariables("Request_Method") = "POST" Then

if MailOK(Request.Form("email")) then
      Set JMail = Server.CreateObject("JMail.SMTPMail")
      JMail.ServerAddress = "192.168.0.2"

    JMail.SenderName = Request.Form("navn")
    JMail.Sender = Request.Form("email")
    JMail.AddRecipientEx "min@e-mail.dk", "Fra hjemmesiden"
    JMail.Subject = "Fra hjemmesiden"
    JMail.Body = Request.Form("besked")
   
    Email = Request.Form("email")
    If Trim(Email) = "" Then Email = "test@test.fo"
   
    JMail.Sender = Email
   
    JMail.Execute
   
    JMail.Close
    Set JMail = Nothing
   
    Response.Redirect("Tak.asp")
else
    response.write("forkert email")
end if

End If
%>

Takker cesil

Mangler der ikke noet i forbindelse med:

Function MailOK(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    MailOK = myReg.Test(Streng)
End Function


Hvad med plasering, er det ligemeget ?

function ValidEmail(Email)

  validEmail=true
  'teksten må ikke være tom
  if trim(email)="" then
    validEmail=false
 
  ' lav en simpel kontrol på email.adressen
  else
    ' abehalen skal være der
    if not cbool(instr(email,"@")) then
      validEmail=False
    end if
    ' ihvert fald et punktum skal kunne findes
    if not cbool(instr(email,".")) then
      validEmail = False
    end if
  end if
end if

if validEmail(request.form("email")

''''bla

end if

//vbcoder

Da jeg gerne vil har styr på formularen gir jeg nogen extra poeng :)

hvad vil du have styr på?

<%
'funktion til validering af email adresse
function ValidEmail(Email)
  ' som udgangspunkt er emailadressen go nok
  validEmail=true

  'teksten må ikke være tom men skal have en antagelig minimumslængde
  ' den mindste man kan have er vel c@c.dk
  ' 6 tegn
  if len(trim(email)) < 6 then
    ' returner fejl
    validEmail=false
 
  ' ellers lav en simpel kontrol på email.adressen
  else
    ' abehalen skal være der
    if not cbool(instr(email,"@")) then
      'returner fejl
      validEmail=False
    end if
    ' ihvert fald et punktum skal kunne findes
    if not cbool(instr(email,".")) then
      'returner fejl
      validEmail = False
    end if
  end if
end function

' tjekker om vi er klar til at sende
If Request.ServerVariables("Request_Method") = "POST" Then

  'kalder funktionen
  if validEmail(request.form("email")) then
    ' så kan vi køre videre
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "192.168.0.2"
    JMail.SenderName = Request.Form("navn")
    JMail.Sender = Request.Form("email")
    JMail.AddRecipientEx "min@e-mail.dk", "Fra hjemmesiden"
    JMail.Subject = "Fra hjemmesiden"
    JMail.Body = Request.Form("besked")
    JMail.Sender = Request.Form("email")
    JMail.Execute
    JMail.Close
    Set JMail = Nothing
    Response.Redirect("Tak.asp")
  else
    Response.write("Fejl.asp")
  End If

' ellers viser vi formen
else
%>
<form method="post" action="Mail.asp">
Navn: <input type="text" name="navn" size="20"><br>
E-mail: <input type="text" name="email" size="20"><br><br>
Besked:<br><textarea name="besked" rows="1" cols="20"></textarea><br><br>
<input type="submit" value="Send mail">
</form>
<%end if%>

noget i den retning?

//vbcoder

vbcoder > takker, ja det er "noget i den retning" :)
Jeg har pastet min kode øverst, ville være skønt hvis du ku korrigere og tilføje, noget som virker :)

vbcoder > har du testet, hos mig er der ingen forskel, man får fejlmelding, f.eks. når der ikke er noget @

sådan der. Der manglede bare start og slut asp tegn rundt om funktionen. Funktionen skal bare være i toppen af siden et eller andet sted.
Siden burde virke som den er nu.

<%
Function MailOK(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    MailOK = myReg.Test(Streng)
End Function
%>


<form method="post" action="Mail.asp">
Navn: <input type="text" name="navn" size="20"><br>
E-mail: <input type="text" name="email" size="20"><br><br>
Besked:<br><textarea name="besked" rows="1" cols="20"></textarea><br><br>
<input type="submit" value="Send mail">
</form>

<%
If Request.ServerVariables("Request_Method") = "POST" Then

if MailOK(Request.Form("email")) then
      Set JMail = Server.CreateObject("JMail.SMTPMail")
      JMail.ServerAddress = "192.168.0.2"

    JMail.SenderName = Request.Form("navn")
    JMail.Sender = Request.Form("email")
    JMail.AddRecipientEx "min@e-mail.dk", "Fra hjemmesiden"
    JMail.Subject = "Fra hjemmesiden"
    JMail.Body = Request.Form("besked")
   
    Email = Request.Form("email")
    If Trim(Email) = "" Then Email = "test@test.fo"
   
    JMail.Sender = Email
   
    JMail.Execute
   
    JMail.Close
    Set JMail = Nothing
   
    Response.Redirect("Tak.asp")
else
    response.write("forkert email")
end if

End If
%>

Nu er vi tæt på. Den får bare ikke fat i Tak.asp (Page not found)

ligger tak.asp i samme mappe som den her side.

Den er god nok, nu virker den :)

cesil > takker
Gider du lige lave lidt om på den. En variant, hvor man ikke har e-mail feltet med. Man skal måske kun udkommentere ? :)

øjeblik

Når jeg siger e-mail felt, så er det klientens :)

prøv

<%
Function MailOK(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    MailOK = myReg.Test(Streng)
End Function
%>


<form method="post" action="Mail.asp">
Navn: <input type="text" name="navn" size="20"><br><br>
<input type="hidden" name="email" value="min@e-mail.dk" size="20">
Besked:<br><textarea name="besked" rows="1" cols="20"></textarea><br><br>
<input type="submit" value="Send mail">
</form>

<%
If Request.ServerVariables("Request_Method") = "POST" Then

'if MailOK(Request.Form("email")) then
      Set JMail = Server.CreateObject("JMail.SMTPMail")
      JMail.ServerAddress = "192.168.0.2"

    JMail.SenderName = Request.Form("navn")
    JMail.Sender = Request.Form("email")
    JMail.AddRecipientEx "min@e-mail.dk", "Fra hjemmesiden"
    JMail.Subject = "Fra hjemmesiden"
    JMail.Body = Request.Form("besked")
   
    Email = Request.Form("email")
    If Trim(Email) = "" Then Email = "test@test.fo"
   
    JMail.Sender = Email
   
    JMail.Execute
   
    JMail.Close
    Set JMail = Nothing
   
    Response.Redirect("Tak.asp")
'else
'    response.write("forkert email")
'end if

End If
%>

jeg har kun udkommenteret linierne. Hvis du vil kan du jo bare slette dem. Email feltet har jeg lavet til et hidden felt.

funktionen bruger ikke resourcer så længe den ikke bliver brugt så den har jeg ladt være.

Takker meget :)

Det var så lidt :-)
tak for pointene.