Avatar billede søren99 Nybegynder
25. marts 2000 - 18:47 Der er 5 kommentarer og
1 løsning

aspmail > cdonts

er der nogle der kan lave dette her script om så det virker med cdonts:

<%
If request("send") = "true" Then
       
    Nummer = Request("Nummer")
    Afsender = Request("Afsender")
    Besked  = Request("Besked")
   
    Besked = Replace(Besked, "'","´")
    Besked = Replace(Besked,"""","´´")
   
    If Not IsNumeric(Nummer) Then
    response.redirect "sms.asp?error=1"
    End If
   
    If Not Len(Nummer) = 8 Then
    response.redirect "sms.asp?error=2"
    End If
   
    If Besked = "" Then
    response.redirect "sms.asp?error=3"
    End If
   
    If Len(Besked) > 150 Then
    response.redirect "sms.asp?error=4"
    End If
   
    Sonofon =  "@note.sonofon.dk"
    TeleDanmark = "@sms.tdm.dk"
    Mobilix = "@sms.mobilix.dk"
    Telia = "@gsm1800.telia.dk"
   
If (Modtager < 20100000) Then
Selskab = Forkert
End If

If (Nummer >= 20100000 AND Nummer < 20600000) Then
Selskab = TeleDanmark
End If

If (Nummer >= 20600000 AND Nummer < 21000000) Then
Selskab = Sonofon
End If

If (Nummer >= 21000000 AND Nummer < 21100000) Then
Selskab = Forkert
End If

If (Nummer >= 21100000 AND Nummer < 21999999) Then
Selskab = TeleDanmark
End If

If (Nummer >= 22000000 AND Nummer < 22100000) Then
Selskab = Forkert
End If

If (Nummer >= 22100000 AND Nummer < 23000000) Then
Selskab = Sonofon
End If

If (Nummer >= 23000000 AND Nummer < 24000000) Then
Selskab = TeleDanmark
End If

If (Nummer >= 24000000 AND Nummer < 26100000) Then
Selskab = Forkert
End If

If (Nummer >= 26100000 AND Nummer < 26999999) Then
Selskab = Mobilix
End If

If (Nummer >= 28100000 AND Nummer < 28999999) Then
Selskab = Telia
End If

If (Nummer >= 29000000 AND Nummer < 40100000) Then
Selskab = Forkert
End If

If (Nummer >= 40100000 AND Nummer < 40500000) Then
Selskab = TeleDanmark
End If

If (Nummer >= 40500000 AND Nummer < 50000000) Then
Selskab = Sonofon
End If

If (Nummer >= 50000000 AND Nummer < 72126205) Then
Selskab = Forkert
End If

If (Nummer >= 72100000 AND Nummer < 72126210) Then
Selskab = Sonofon
End If

If (Nummer >= 72126210) Then
Selskab = Forkert
End If
   
    Nummer = Nummer & Selskab
        If Not Selskab = "Forkert" Then
       
        Set Mail = Server.CreateObject("Persits.MailSender")
        Mail.Host = "funstuff.dk" 'Ændre dette til din egen server adresse, hvis den understøtter ASPMail
        Mail.From = "mail@mail.dk" 'Ændre dette til din egen e-mail adresse !
        Mail.FromName = ""
        Mail.AddAddress Trim(CStr(Nummer))
        Mail.Subject = Trim(CStr(Afsender & " "))
        Mail.Body = Trim(CStr(Besked & " "))

        On Error Resume Next
        Mail.Send
        If Err <> 0 Then
          response.redirect "sms.asp?error=5"
        else
          response.redirect "sms.asp?sendt=true"
        End If
       
End If
End If
%>
<html>
<head>
<title>Sms</title>
</head>

<body>

<form method="POST" action="sms.asp?send=true" name="sendsms">
  <p><input type="text" name="nummer" size="24" value="Modtager"></p>
  <p><input type="text" name="afsender" size="24" value="Dit navn"></p>
  <p><select size="1" name="stdText" onChange="document.sendsms.besked.value =
  document.sendsms.stdText.options[document.sendsms.stdText.selectedIndex].value;
  document.sendsms.besked;">
  <option selected>- Standard beskeder -</option>
  <option value="Jeg elsker dig!">Jeg elsker dig!</option>
  <option value="Tillykke med fødselsdagen!">Tillykke med fødselsdagen!</option>
  <option value="Tak for sidst!">Tak for sidst!</option>
  <option value="You are my sunshine!">You are my sunshine!</option>
  <option value="Jeg kan ikke komme alligevel :o(">Jeg kan ikke komme alligevel
  :o(</option>
  <option value="Jeg savner dig!!">Jeg savner dig!!</option>
  <option value="Send gratis SMS beskeder til mobil telefon fra www.smsbesked.dk">Send
  gratis SMS beskeder fra www.smsbesked.dk</option>
  </select></p>
  <p><input type="text" name="besked" size="45" value="Besked"></p>
  <p><input type="submit" value="Send" name="Send"></p>
</form>

<% If request("error") = "1" then %>
<p>Du har ikke skrevet nogen modtager !</p>
<% End If %>
<% If request("error") = "2" then %>
<p>Du har ikke skrevet et gyldigt tlf. nummer !</p>
<% End If %>
<% If request("error") = "3" then %>
<p>Du har ikke skrevet nogen besked !</p>
<% End If %>
<% If request("error") = "4" then %>
<p>Den besked du har skrevet, er for lang !</p>
<% End If %>
<% If request("error") = "5" then %>
<p>Der er sket følgene fejl under sendning af din SMS: <%=Err.Description%></p>
<% End If %>
<% If request("sendt") = "true" then %>
<p>Din besked er blevet sendt ! </p>
<% End If %>

</body>
</html>


søren99 
Avatar billede søren99 Nybegynder
25. marts 2000 - 18:48 #1
der er 500 ekstre points for et hurtigt svar!!!!
Avatar billede baunsgaard Nybegynder
25. marts 2000 - 18:59 #2
Udskift følgende

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "funstuff.dk" 'Ændre dette til din egen server adresse, hvis den understøtter ASPMail
Mail.From = "mail@mail.dk" 'Ændre dette til din egen e-mail adresse !
Mail.FromName = ""
Mail.AddAddress Trim(CStr(Nummer))
Mail.Subject = Trim(CStr(Afsender & " "))
Mail.Body = Trim(CStr(Besked & " "))

On Error Resume Next
Mail.Send
If Err <> 0 Then
    response.redirect "sms.asp?error=5"
else
    response.redirect "sms.asp?sendt=true"
End If
       

med dette


Set mail = server.CreateObject("cdonts.newmail")
mail.From = "mail@mail.dk"
mail.To = Trim(CStr(Nummer))
mail.Subject = Trim(CStr(Afsender & " "))
mail.Body = Trim(CStr(Besked & " "))

On Error Resume Next
Mail.Send
If Err <> 0 Then
    response.redirect "sms.asp?error=5"
else
    response.redirect "sms.asp?sendt=true"
End If


Mvh
Avatar billede baunsgaard Nybegynder
26. marts 2000 - 23:00 #3
Det hastede måske ikke så meget alligevel :-)
Avatar billede søren99 Nybegynder
27. marts 2000 - 08:54 #4
svaret er ok og det kom jo også ret hurtigt..
jeg opretter en besked der hedder "points til baunsgaard" under asp.
ok??? 

søren99
Avatar billede baunsgaard Nybegynder
27. marts 2000 - 10:35 #5
OK :-)
Avatar billede baunsgaard Nybegynder
28. marts 2000 - 23:36 #6
Har du oprettet en besked?
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