Er der nogen der kan finde og rette fejlen i det her SMS dokument? :-)

<%
Modtager = Replace(Request.form("Modtager")," ","%20")
Afsender = Replace(Request.form("Afsender")," ","%20")
Besked  = Replace(Replace(Replace(Request.form("Besked")," ","%20"),"'","´"),"""","´´")
Besked = Replace(Besked,"Ø",chr(11))
Besked = Replace(Besked,"ø",chr(12))
Besked = Replace(Besked,"Å",chr(14))
Besked = Replace(Besked,"å",chr(15))
Besked = Replace(Besked,"Æ",chr(28))
Besked = Replace(Besked,"æ",chr(29))

if request.form("Modtager") = "" then
response.redirect("default.asp?fejl=3&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ")
end if

if request.form("Afsender") = "" then
response.redirect("default.asp?fejl=2&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ")
end if

if request.form("Besked") = "" then
response.redirect("default.asp?fejl=4&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ")
end if

if Len(request.form("Besked")) > 200 then
response.redirect("default.asp?fejl=5&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ")
end if

if Len(request.form("Afsender")) > 90 then
response.redirect("default.asp?fejl=6&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ")
end if


Modtager = Int(Request.form("Modtager"))

sonofon =  "@note.sonofon.dk"
teledanmark = "@sms.tdm.dk"
mobilix = "@sms.mobilix.dk"
fejl = "fejl"

if (Modtager < 20100000) then
selskab = fejl
end if

if (Modtager >= 20100000 AND Modtager < 20600000) then
selskab = teledanmark
end if

if (Modtager >= 20600000 AND Modtager < 21000000) then
selskab = sonofon
end if

if (Modtager >= 21000000 AND Modtager < 21100000) then
selskab = fejl
end if

if (Modtager >= 21100000 AND Modtager < 21999999) then
selskab = teledanmark
end if

if (Modtager >= 22000000 AND Modtager < 22100000) then
selskab = fejl
end if

if (Modtager >= 22100000 AND Modtager < 23000000) then
selskab = sonofon
end if

if (Modtager >= 23000000 AND Modtager < 24000000) then
selskab = teledanmark
end if

if (Modtager >= 24000000 AND Modtager < 26100000) then
selskab = fejl
end if

if (Modtager >= 26100000 AND Modtager < 28999999) then
selskab = mobilix
end if

if (Modtager >= 29000000 AND Modtager < 40100000) then
selskab = fejl
end if

if (Modtager >= 40100000 AND Modtager < 40500000) then
selskab = teledanmark
end if

if (Modtager >= 40500000 AND Modtager < 50000000) then
selskab = sonofon
end if

if (Modtager >= 50000000 AND Modtager < 72126205) then
selskab = fejl

end if

if (Modtager >= 72100000 AND Modtager < 72126210) then
selskab = sonofon
end if

if (Modtager >= 72126210) then
selskab = fejl
end if

Adresse = Modtager & selskab
%>


<% if selskab = "fejl" then %>
<% response.redirect("default.asp?fejl=1&Modtager=" & Modtager & "&Afsender=" & Afsender & "&Besked=" & Besked & " ") %>
<% end if %>


<%
if request("mode") = "send" then
   
    Set JMail = Server.CreateObject("JMail.SMTPMail")
            ' This is my local SMTP server
            JMail.ServerAddress = "mail.weekenden.dk"
       
            ' mail config settings
            JMail.Charset = "iso-8859-1"
            JMail.ContentTransferEncoding = "8bit"
           
            JMail.Sender = request("Afsender")
            JMail.Subject = request("Besked")
            JMail.AddRecipient send("Modtager")
        JMail.Body = " "
   
    response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("Modtager") &"</STRONG></FONT><BR>"
   
        end if
%>