24. juli 2003 - 20:40Der 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
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
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.