Avatar billede inoculateit Nybegynder
24. juli 2003 - 20:40 Der er 8 kommentarer og
1 løsning

Hvad mangler her for at checke email

Hvad mangler i dette script, som gør at formen kun kan sendes hvis email feltet er udfyldt ?

<%@LANGUAGE = VBSCRIPT%> <html>
<body>

<%

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "domain@domain.org"
msg.FromName = "domain.org"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "postmaster@domain.org", "New Domain"


' The subject of the message
msg.Subject = "New Domain"

'add every form element and its value to the email
FOR EACH el IN Request.Form
    msg.appendtext( el & ": " & Request.form(el) & vbcrlf )
NEXT
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain.org" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.


%>
</body>
</html>
Avatar billede inoculateit Nybegynder
24. juli 2003 - 20:42 #1
evt formen kommer her

<html>
<head>
<title>Domain Mail</title>
<link rel="stylesheet" type="text/css" href="../css/top.css">
</head>
<body bgcolor="#CECFCE">
<p align="center"><b>Contact Domain</b></p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
    <tr>
      <td width="100%">
<form method="post" action="SendMail2.asp">
    <p>&nbsp;Name <br>
    <INPUT name="name" type="text" size="20"></p>
    <p>&nbsp;Email<br>
    <INPUT name="Email" type="text" size="20"><br>
    <br>
    &nbsp;Nick<br>
    <INPUT name="nick" type="text" size="20"><br>
    <br>
    &nbsp;Message<br>
    <TEXTAREA name="message" rows="3" cols="30"></TEXTAREA> </p>
    <p align="center">
<br>
<INPUT type="submit" value="Send"> </p>
</form>
      </td>
    </tr>
  </table>
  </center>
</div>
</body>
</html>
Avatar billede eagleeye Praktikant
24. juli 2003 - 20:45 #2
Du kan pakket det ind i en if sætning som denne.

if Request.Form("Email") <> "" then
  'Email felt udfyldt send mail

..koden som sender mailen her..

end if
Avatar billede inoculateit Nybegynder
24. juli 2003 - 20:46 #3
Kan du ikke lige gøre mig en tjenste at copy/paste det i scriptet så jeg kan se hvor det skal ligge ? :o)
Avatar billede eagleeye Praktikant
24. juli 2003 - 20:50 #4
Jo da sådan her, jeg har også tilføjet en else del så den skriver "Mangler email adresse" hvis den ikke er skrevet.


<%@LANGUAGE = VBSCRIPT%> <html>
<body>

<%

if Request.Form("Email") <> "" then

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "domain@domain.org"
msg.FromName = "domain.org"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "postmaster@domain.org", "New Domain"


' The subject of the message
msg.Subject = "New Domain"

'add every form element and its value to the email
FOR EACH el IN Request.Form
    msg.appendtext( el & ": " & Request.form(el) & vbcrlf )
NEXT
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain.org" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.

else
  'Ingen email adresse.
  Response.Write "Mangler email adresse"

end if

%>
</body>
</html>
Avatar billede inoculateit Nybegynder
24. juli 2003 - 20:51 #5
Kan man gøre det med samtlige felter ?
Avatar billede inoculateit Nybegynder
24. juli 2003 - 20:52 #6
altså
if Request.Form("Email") <> "" then
if Request.Form("Name") <> "" then
if Request.Form("Message") <> "" then

osv. ?
Avatar billede eagleeye Praktikant
24. juli 2003 - 20:57 #7
Jo du kan lave det i en:

if Request.Form("Email") <> "" and Request.Form("Name") <> "" and Request.Form("Message") <> "" then
Avatar billede inoculateit Nybegynder
24. juli 2003 - 21:00 #8
Jeg bukker og takker, det virker :o)
Avatar billede inoculateit Nybegynder
24. juli 2003 - 21:01 #9
Tak for hurtig svar foriøvrigt
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester