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
