SMS: hvordan gør man nu?

Det er vidst kun besked.dk der kender svaret på det :(

...eller hvis man har sin egen SMSC-opkobling.

Hvad er der galt med det - det er da en mulighed !!

Sådan her:

<%
With Request
    modtager = .Form(\"modtager\")
    afsender = .Form(\"afsender\")
    besked = .Form(\"besked\")
End With

If modtager <> \"\" AND besked <> \"\" AND len(modtager) = 8 AND isnumeric(modtager) Then
    udbydere = Array(\"@sms.tdm.dk\", \"@note.sonofon.dk\", \"@gsm1800.telia.dk\", \"@sms.mobilix.dk\")
    If afsender <> \"\" Then
        body = \"Fra \" & afsender & \": \" & besked
    Else
        body = besked
    End if
    Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
    With JMail
        .ISOEncodeHeaders = False
        .ServerAddress = \"smtp.web-sale.dk\"
        .Sender        = \"sms@wsms.dk\"
        .Subject      = \"\"
        For each item in udbydere
            .AddRecipient  modtager & item
        Next
        .Priority      = 3
        .Body = besked
        .Execute
    End With
    Set JMail = nothing
    Response.Write(\"<B>Beskeden er afsendt!</B>\")
    modtager = \"\"
    afsender = \"\"
    besked = \"\"
Else
    Response.Write(\"<B>Beskeden blev ikke afsendt!</B><BR>Modtager skal v&aelig;re et tal p&aring; 8 cifre.<BR>Besked skal udfyldes.<BR>\")
End if
%>