SMS - ingen visning af mail-addy!
Hejsa jeg har følgende script til at sende SMS\'er med, men når man modtager SMS\'en står der en mail-addy - det vil jeg gerne have fjernet, så der står noget andet, men jeg får fejl hver gang jeg skriver noget andet end en mail-addy eller helt fjerner den!Her er scriptet:
\'Ellers sendes sms
Else
\'fjerner alle mellemrum i mobilnummeret
intNummer = replace(Request.Form(\"nummer\"), \" \", \"\")
\'endelser for de enkelte udbydere
strMobilix = \"@sms.mobilix.dk\"
strSonofon = \"@note.sonofon.dk\"
strTelia = \"@gsm1800.telia.dk\"
strTDC = \"@sms.tdm.dk\"
strTelefona = \"@sms.tdm.dk\"
\'de første 4 cifre af nummeret afgør valg af udbyder
int4cifre = int(left(intNummer,4))
\'Ud fra nummerserien bestemmes udbyderen (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 =< 5099 Then
strUdbyder = strTDC
End if
\'Den færdige SMS-adrsse
strModtagerMail = intnummer & strUdbyder
strAfsender = \"sms@scanbox.com\"
\'henter værdier fra formularen og finder længden
strAfsenderNavn = Request.Form(\"afsender\")
strBesked = Request.Form(\"besked\")
\'Splitter beskeden op 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)
\'sender SMS via JMail
For i = 1 to intBeskeder
Set JMail = Server.CreateObject(\"JMail.Message\")
JMail.Logging = True
JMail.Silent = True
JMail.From = strAfsender
JMail.AddRecipient strModtagerMail
JMail.Body = \"Fra \" & strAfsenderNavn & VbCrLf & arrDelBeskeder(i) & VbCrLf & \"**Gratis SMS via Scanbox.com**\"
If Not JMail.Send(\"10.1.1.42\") Then
strStatus = strStatus & \"<dt>Besked nr. \"&i&\" af \"&intBeskeder
strStatus = strStatus & \"- der skete en fejl: \"& JMail.log &\"</dt>\"
strStatus = strStatus & \"<dd style=\'color=blue\'>\" & arrDelBeskeder(i)&\"</dd>\"
Else
strStatus = strStatus & \"Beskeden er afsendt til \"&intNummer&\"</dt>\"
strStatus = strStatus & \"<dd style=\'color:blue\'>\" & arrDelBeskeder(i)&\"</dd>\"
End if
Set JMail = Nothing
Next
Response.Write \"<font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#000000\"\">Status</font>\"
Response.Write \"<dl><font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"&strStatus&\"</font></dl>\"
Response.Write \"<form method=\"\"POST\"\" action=\"\"sms.asp\"\"><input type=\"\"SUBMIT\"\" value=\"\"Ny Besked\"\"></form>\"
End if
%>
