Meddelande

Minska
No announcement yet.

Förhindra mailscript att exekvera

Minska
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Förhindra mailscript att exekvera

    Har ett mailscript som fungerar, MEN hur förhindrar jag att det inte skickas ett tomt mail. Fälten "namn" och "telefon" i formuläret som matar scriptet, valideras med java.
    Scriptet ska alltså hindras att exekvera sig "självmant".



    Kod:
    <%option explicit%>
    
    <%
    
    Dim myMail, namn, telefon, areas, KontaktTel, KontaktMail, URL, intresse
    
    namn = Request.Form("namn")
    telefon = Request.Form("telefon")
    areas = Request.Form("areas")
    KontaktTel = Request.Form("KontaktTel")
    KontaktMail = Request.Form("KontaktMail")
    URL = Request.Form("URL")
    intresse = Request.Form("intresse")
    
    Set myMail=CreateObject("CDO.Message")
    myMail.Subject="Anmälan från hemsidan" 
    myMail.From="noreply@xxx.se"
    myMail.To="xxx@xxx.se"
    
    myMail.HTMLBody = "<b>Anmälan</b><br>"_
    &"<br>"& Request.Form("namn")_
    &"<br>"& Request.Form("telefon")_
    &"<br><br>"_
    &"Geografiska områden:"_
    &"<br>"& Request.Form("areas")_
    &"<br><br>"_
    &"Kontaktuppgifter:"_
    &"<br>&nbsp;Telefon: "& Request.Form("KontaktTel")_
    &"<br>&nbsp;e-post: "& Request.Form("KontaktMail")_
    &"<br>&nbsp;Hemsida: "& Request.Form("URL")_
    &"<br><br>Intressen:"_
    &"<br>"& Request.Form("intresse")_
    &"<br><br><hr>"
    
    myMail.Send
    set myMail=nothing
    
    Response.Redirect "bekraftelse.htm"
    
    %>

  • #2
    gör en if fråga och se om dina request.form värde inte är tomma, om de inte är det så kör myMail.send
    "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

    Kommentera


    • #3
      Tack förtipset. Jag gjorde så här, och det verkar fungera.

      Kod:
      IF Request.Form("namn").Count > 0 Then
          myMail.Send
      End If
      
      set myMail=nothing
      
      Response.Redirect "bekraftelse.htm"
      
      %>

      Kommentera

      Working...
      X