Uventet ; ???????

Hej

Jeg har et sms script der sender via sms.tdm.dk

men hver gang jeg tester det og sender til mig

selv slutter beskeden på ;

Hvordan kan det være ?

Jeg skriver nemlig ikke selv ; så det må være

scriptet jo .....

Her er det så:

http://iceb.ljnet.dk/lsms.asp

og koden:

<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end html.dk
' Kontakt info@html.dk hvis du er i tvivl
' ****************************************************************
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="da" lang="da">
<head>
<title>SMS-sender</title>
</head>
<body>

<%
' Hvis formen ikke er submittet vises formular
If Request.Form("nummer") = "" Then
%>
<center>
  <h1>Send Delux SMS-besked</h1>

  <form action="<% =Request.Servervariables("SCRIPT_NAME") %>" method="post">

  <fieldset>
  <center>
 
  <label for="t1">Modtagerens mobilnummer:</label><br />
  <input size="20" type="text" name="nummer" id="t1" class="form" /><br />

  <label for="t2">Dit navn, e-mail eller nummer:</label><br />
  <input size="20" type="text" name="afsender" id="t2"  class="form" /><br />

  <label for="t3">Besked:</label><br />
  <textarea name="besked" rows="5" id="t3" cols="30" class="form"></textarea><br />

  <input type="submit" value="Send besked" />
  </fieldset>

  </form>

<%
' Ellers sendes SMS
Else


  ' Fjern alle mellemrum i mobilnummeret
  intNummer  =  Replace(Request.Form("nummer")," ","")

  ' Endelser for de enkelte udbydere
  strMobilix  =  "@sms.tdm.dk"
  strSonofon  =  "@sms.tdm.dk"
  strTelia    =  "@sms.tdm.dk"
  strTDC      =  "@sms.tdm.dk"
  strTelefona =  "@sms.tdm.dk"

  ' De første 4 cifre af nummeret til at bestemme udbyder
  int4cifre  = int(left(intNummer,4))

  ' Udfra nummerserien bestemmes udbyder (og dermed endelsen)
  if int4cifre => 2010 and int4cifre =< 2059 then
    strUdbyder = strTDC
  elseif  int4cifre => 2060 and int4cifre =< 2099 then
    strUdbyder = strSonofon
  elseif  int4cifre => 2110 and int4cifre =< 2199 then
    strUdbyder = strTDC
  elseif  int4cifre => 2210 and int4cifre =< 2299 then
    strUdbyder = strSonofon
  elseif  int4cifre => 2310 and int4cifre =< 2399 then
    strUdbyder = strTDC
  elseif  int4cifre => 2410 and int4cifre =< 2499 then
    strUdbyder = strTDC
  elseif  int4cifre => 2510 and int4cifre =< 2539 then
    strUdbyder = strSonofon
  elseif  int4cifre => 2610 and int4cifre =< 2699 then
    strUdbyder = strMobilix
  elseif  int4cifre => 2710 and int4cifre =< 2799 then
    strUdbyder = strMobilix
  elseif  int4cifre => 2810 and int4cifre =< 2899 then
    strUdbyder = strTelia
  elseif  int4cifre => 2910 and int4cifre =< 2990 then
    strUdbyder = strTDC
  elseif  int4cifre => 2991 and int4cifre =< 2992 then
    strUdbyder = strTelefona
  elseif  int4cifre => 2993 and int4cifre =< 2999 then
    strUdbyder = strTDC
  elseif  int4cifre => 3010 and int4cifre =< 3099 then
    strUdbyder = strTDC
  elseif  int4cifre => 4010 and int4cifre =< 4049 then
    strUdbyder = strTDC
  elseif  int4cifre => 4050 and int4cifre =< 4099 then
    strUdbyder = strSonofon
  elseif  int4cifre => 5000 and int4cifre =< 5999 then
    strUdbyder = strTDC
  end if

' Den færdige SMS-adresse
  strModtagerMail = intNummer & strUdbyder
  strAfsenderMail = "postmaster@iceb.ljnet.dk" ' Indsæt din egen e-mail i denne linie
 
  ' Hent værdier fra fomularen og find længden
 
  strAfsenderNavn = Request.Form("afsender")
  strBesked = Request.Form("besked")   
 
  ' Split beskeden og opdel i flere delbeskeder
  arrBesked = Split(strBesked," ")
  For i = 0 to Ubound(arrBesked)
    intLenMessage = intLenMessage + (Len(arrBesked(i)) + 1)
    If intLenMessage < (150 - (Len(strAfsenderNavn & strAfsenderMail))) Then
      strDelBesked = strDelBesked & arrBesked(i) & " "       
    Else
      arrDelBeskeder = arrDelBeskeder & "###" & strDelBesked
      intLenMessage = intLenMessage - (Len(strDelBesked))
      strDelBesked = arrBesked(i) & " "       
    End If
  Next
  arrDelBeskeder = arrDelBeskeder & "###" & strDelBesked
   
  arrDelBeskeder = Split(arrDelBeskeder,"###")
  intBeskeder = Ubound(arrDelBeskeder)

  For i = 1 to intBeskeder

    ' ----------------------------------------
    ' Udskift eventuelt denne kode hvis anden mailkomponent benyttes
    ' Start send e-mail med AspMail
    ' ----------------------------------------
      Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.FromName=    Request.Form("afsender")
  Dim name
name="<b>"+"Fra: "+"</b>"+request.form("afsender")
Dim mobiname
mobiname=" Fra:"& request.form("afsender")
Dim Besked
Besked="Besked: "+request.form("besked")
 

    Set Mail = Server.CreateObject("Persits.Mailsender")
    Mail.FromName  = strAfsenderNavn
   
   
    Mail.From= strAfsenderMail
    Mail.Host = "mail.cliche.dk"
    Mail.AddAddress strModtagerMail, strModtagerMail
    Mail.Subject    = "Nr. " & i & "/" & intBeskeder & mobiname
    Mail.Body  =" Besked:"& arrDelBeskeder(i)


 
  if Mail.Send then   
  %>
  <center>
  <%
      strStatus = strStatus & "<dt>Besked nr. " & i & " af " & intBeskeder
      strStatus = strStatus & " - afsendt til " & strModtagerMail & "</dt>" & "<br><br><b>Besked:</b> " & arrDelBeskeder(i)& name +"<br><br>"+ "<A HREF=""lsms.asp"">Tilbage</A>"
     
   



    else
      strStatus = strStatus & "<dt>Besked nr. " & i & " af " & intBeskeder
      strStatus = strStatus & " - der skete en fejl: " & Mail.Response & "</dt>"
      strStatus = strStatus & "<dd style='color:red'>" & arrDelBeskeder(i) & "</dd>"
    end if
    Set Mail = Nothing
   
    ' ----------------------------------------
    ' Slut send e-mail med AspMail
    ' ----------------------------------------
  Next
  Response.Write "<h1>Status</h1>"
  Response.Write "<dl>" & strStatus & "</dl>"
End If
%>
</body>
</html>