sms numre opdateret

Jeg sad alligevel og lavede denne:

teledk = \"@sms.tdm.dk\"
sonofon = \"@note.sonofon.dk\"
telia = \"@gsm1800.telia.dk\"
mobilix = \"@sms.mobilix.dk\"


if email => 2010 AND int(left(mobil,4)) =< 2059 then
            udbyd = teledk
end if
if  email => 2060 AND email< 2099 then
            udbyd = sonofon
end if
if  email => 2110 AND int(left(mobil,4)) =< 2199 then
            udbyd = teledk
end if
if  email => 2210 AND int(left(mobil,4)) =< 2299 then
            udbyd = sonofon
end if
if  email => 2310 AND int(left(mobil,4)) =< 2399 then
            udbyd = teledk
end if
if  email => 2410 AND int(left(mobil,4)) =< 2499 then
            udbyd = teledk
end if
if  email => 2510 AND int(left(mobil,4)) =< 2539 then
            udbyd = sonofon
end if
if  email => 2610 AND int(left(mobil,4)) =< 2699 then
            udbyd = mobilix
end if
if  email => 2710 AND int(left(mobil,4)) =< 2799 then
            udbyd = mobilix
end if
if  email => 2810 AND int(left(mobil,4)) =< 2899 then
            udbyd = telia
end if
if  email => 2910 AND int(left(mobil,4)) =< 3099 then
            udbyd = teledk
end if
if  email => 4010 AND int(left(mobil,4)) =< 4049 then
            udbyd = teledk
end if
if  email => 4050 AND int(left(mobil,4)) =< 4099 then
            udbyd = sonofon
end if
if  email => 5110 AND int(left(mobil,4)) =< 5199 then
            udbyd = teledk
end if

if email >= 28100000 and email < 28900000 then
udbyd = \"@sms.mobilix.dk\"
end if

Er da ihvertilfald ikke Mobilix, men Telia - jeg har nemlig 2870xxxx

mit script ser ud som følgende kan du ik få det til at passe til alle ?

<%@ Language=VBScript %>
<%
id = Request.Form(\"id\")
mode = Request.Form(\"mode\")

If Session(\"password-session\") = \"\" Then
Response.Redirect(\"default.asp\")
end if

If id = \"\" Then
Response.Redirect(\"mobilbog.asp?sendMode=id\")
End If

Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
\'Response.Write mode & id
\'Response.End


If mode = \"Slet nummer\" Then
SQL = \"DELETE * FROM Book WHERE ID=\" & id & \" \"
Rs.Execute(SQL)
Response.Redirect(\"mobilbog.asp?sendMode=del\")
End if

SQL = \"SELECT * FROM users WHERE ID = \" & Session(\"UserId\") & \" ORDER BY ID\"
set nRec = Rs.Execute(SQL)

RigtigNavn = nRec(\"RigtigNavn\")


SQL = \"SELECT * FROM Book WHERE ID=\" & id & \" ORDER BY Navn\"
Set eSql = RS.Execute(SQL)
If NOT eSql.EOF Then
email = eSql(\"Nr\")
Else
Response.Redirect \"mobilbog.asp?sendMode=fejl\"
End If

mail_emne = Request.Form(\"besked\")

udbyd = \"fejl\"
if email >= \"20100000\" and email < \"20600000\" then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 20600000 and email < 21000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 21100000 and email < 22000000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 22100000 and email < 23000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 23000000 and email < 25000000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 26100000 and email < 26900000 then
udbyd = \"@sms.mobilix.dk\"
end if
if email >= 28100000 and email < 28900000 then
udbyd = \"@sms.mobilix.dk\"
end if
if email >= 40100000 and email < 40500000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 40500000 and email < 50000000 then
udbyd = \"@note.sonofon.dk\"
end if

if udbyd = \"fejl\" then
medd = \"fejl\"
Response.Redirect \"mobilbog.asp?sendMode=\" & medd
else
medd = \"sendt\"
\'Response.Write email & udbyd & RigtigNavn
\'Response.end
On Error Resume Next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.SenderName = RigtigNavn
JMail.Sender = \"sms@zequenze.dk\"
JMail.AddRecipient email & udbyd
JMail.Body = mail_emne
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute

Response.Redirect \"mobilbog.asp?sendMode=\" & medd

%>

<body>
</body>
</html>
<% end if %>

Ups. Det er jeg da ked af. Men tak fordi du opdagede det nikolajdu.

Kan du lave det ?

Nu har jeg indsat de ekstra numre:
<%@ Language=VBScript %>
<%
id = Request.Form(\"id\")
mode = Request.Form(\"mode\")

If Session(\"password-session\") = \"\" Then
Response.Redirect(\"default.asp\")
end if

If id = \"\" Then
Response.Redirect(\"mobilbog.asp?sendMode=id\")
End If

Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
\'Response.Write mode & id
\'Response.End


If mode = \"Slet nummer\" Then
SQL = \"DELETE * FROM Book WHERE ID=\" & id & \" \"
Rs.Execute(SQL)
Response.Redirect(\"mobilbog.asp?sendMode=del\")
End if

SQL = \"SELECT * FROM users WHERE ID = \" & Session(\"UserId\") & \" ORDER BY ID\"
set nRec = Rs.Execute(SQL)

RigtigNavn = nRec(\"RigtigNavn\")


SQL = \"SELECT * FROM Book WHERE ID=\" & id & \" ORDER BY Navn\"
Set eSql = RS.Execute(SQL)
If NOT eSql.EOF Then
email = eSql(\"Nr\")
Else
Response.Redirect \"mobilbog.asp?sendMode=fejl\"
End If

mail_emne = Request.Form(\"besked\")

udbyd = \"fejl\"
if email >= \"20100000\" and email < \"20600000\" then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 20600000 and email < 21000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 21100000 and email < 22000000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 22100000 and email < 23000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 23100000 and email < 24000000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 24100000 and email < 25000000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 25100000 and email < 26000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 26100000 and email < 26900000 then
udbyd = \"@sms.mobilix.dk\"
end if
if email >= 27100000 and email < 27900000 then
udbyd = \"@sms.mobilix.dk\"
end if
if email >= 28100000 and email < 28900000 then
udbyd = \"@sms.mobilix.dk\"
end if
if email >= 29100000 and email < 29900000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 40100000 and email < 40500000 then
udbyd = \"@sms.tdm.dk\"
end if
if email >= 40500000 and email < 50000000 then
udbyd = \"@note.sonofon.dk\"
end if
if email >= 51100000 and email < 51900000 then
udbyd = \"@note.sonofon.dk\"
end if

if udbyd = \"fejl\" then
medd = \"fejl\"
Response.Redirect \"mobilbog.asp?sendMode=\" & medd
else
medd = \"sendt\"
\'Response.Write email & udbyd & RigtigNavn
\'Response.end
On Error Resume Next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.SenderName = RigtigNavn
JMail.Sender = \"sms@zequenze.dk\"
JMail.AddRecipient email & udbyd
JMail.Body = mail_emne
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute

Response.Redirect \"mobilbog.asp?sendMode=\" & medd

%>

<body>
</body>
</html>
<% end if %>

OBS Jeg fik ikke rette fejlen i 28.
Det er rigtigt at det er telia

Linien skal altså se sådan ud:

if email >= 28100000 and email < 28900000 then
udbyd = @gsm1800.telia.dk\"
end if

er det den stak numre i har ?

Jeg har ikke flere

Venter med at se, det kan være folk ligger inde med en helt færdig, understøttelse af ALLE numre.

Ud over at du kan optimere din kode med:

if email >= 20100000 and email < 20600000 then udbyd = \"@sms.tdm.dk\"
if email >= 20600000 and email < 21000000 then udbyd = \"@note.sonofon.dk\"
if email >= 21100000 and email < 22000000 then udbyd = \"@sms.tdm.dk\"
if email >= 22100000 and email < 23000000 then udbyd = \"@note.sonofon.dk\"
if email >= 23100000 and email < 24000000 then udbyd = \"@sms.tdm.dk\"
if email >= 24100000 and email < 25000000 then udbyd = \"@sms.tdm.dk\"
if email >= 25100000 and email < 26000000 then udbyd = \"@note.sonofon.dk\"
if email >= 26100000 and email < 26900000 then udbyd = \"@sms.mobilix.dk\"
if email >= 27100000 and email < 27900000 then udbyd = \"@sms.mobilix.dk\"
if email >= 28100000 and email < 28900000 then udbyd = \"@sms.mobilix.dk\"
if email >= 29100000 and email < 29900000 then udbyd = \"@sms.tdm.dk\"
if email >= 40100000 and email < 40500000 then udbyd = \"@sms.tdm.dk\"
if email >= 40500000 and email < 50000000 then udbyd = \"@note.sonofon.dk\"
if email >= 51100000 and email < 51900000 then udbyd = \"@note.sonofon.dk\"

så passer den nederste ikke! Jeg bruger WorldOnline Mobile og mit nr. starter med 5184 ... det er sms.tdm.dk der tager sig kærligt af den ...

Bare lige for info\'ens skyld så er der jo også Telmore.dk som også er nye, men jeg ved dog ikke hvilken nummer serie de kører med..

Forresten så behøver du ikke de 4 nuller efter serierne ..

if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
if email >= 2510 and email < 2600 then udbyd = \"@note.sonofon.dk\"
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
if email >= 2810 and email < 2890 then udbyd = \"@sms.mobilix.dk\"
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
if email >= 4050 and email < 5000 then udbyd = \"@note.sonofon.dk\"
if email >= 5110 and email < 5190 then udbyd = \"@note.sonofon.dk\"

Telmore og WorldOnline bruger begge TDM-nettet.
Telmore bruger fx.2972XXXX og WOL bruger 5180XXXX.

F*@k det er mig igen.
if email >= 51100000 and email < 51900000 then
udbyd = \"@sms.tdm.dk\"
end if
Det er nok meget godt, hvis der er nogle friske øje der kigger på den her. Tidspunktet taget i betragtning.

hjaelp:> WOL bruger 518xxxxx for jeg har 5184 og det er WOL ...
men med telmore.dk funker det jo fint med hans kode, men ikke med WOL da han har sat Sonofon til at tage dem fra 5110 til 5189

hjaelp:> *LOL* så alt i alt må det blive :

if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
if email >= 2510 and email < 2600 then udbyd = \"@note.sonofon.dk\"
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
if email >= 2810 and email < 2890 then udbyd = \"@sms.mobilix.dk\"
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
if email >= 4050 and email < 5000 then udbyd = \"@note.sonofon.dk\"
if email >= 5110 and email < 5190 then udbyd = \"@sms.tdm.dk\"

Men aktisk er den stadig ikke helt rigtig, for inde på Telestyrelsens website står der:

9. oktober 2000

Tele Danmark A/S
Netdivisionen
Sletvej 30
8310 Tranbjerg J

511defgh, 512defgh, 513defgh, 516defgh, 517defgh, 518defgh og 519defgh

dvs. det er ikke op til 5189 men op til 5199 at de har..

så¨det må blive :

if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
if email >= 2510 and email < 2600 then udbyd = \"@note.sonofon.dk\"
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
if email >= 2810 and email < 2890 then udbyd = \"@sms.mobilix.dk\"
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
if email >= 4050 and email < 5000 then udbyd = \"@note.sonofon.dk\"
if email >= 5110 and email < 5200 then udbyd = \"@sms.tdm.dk\"

fra 5110 til 5199

still not correct...
jeg sidder lige og kigger på Telestyrelsens seneste nummerserie uddeling (fra d. 20 Marts \'01)
og det er faktisk ikke hele serien fra 5110 til 5199 der bliver brugt til mobil .. faktisk bliver
5140-5159 ikke brugt til mobil telefoner..

if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
if email >= 2510 and email < 2600 then udbyd = \"@note.sonofon.dk\"
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
if email >= 2810 and email < 2890 then udbyd = \"@sms.mobilix.dk\"
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
if email >= 4050 and email < 5000 then udbyd = \"@note.sonofon.dk\"
if email >= 5110 and email < 5140 then udbyd = \"@sms.tdm.dk\"
if email >= 5160 and email < 5200 then udbyd = \"@sms.tdm.dk\"

I give up. Der kan jeg sgu ikke følge med.

*G*

Hva\' med Tele2mobil
if email >= 2570 and email < 2580 the udbyd = \"@?????????\"

den der kan levere en kode med flest understøttede og RIGTIGE numre får 100 points i dette spm. og de skal være sat ind i mit stykke kode

Det må blive sådan:

<%@ Language=VBScript %>
<%
id = Request.Form(\"id\")
mode = Request.Form(\"mode\")

If Session(\"password-session\") = \"\" Then
Response.Redirect(\"default.asp\")
end if

If id = \"\" Then
Response.Redirect(\"mobilbog.asp?sendMode=id\")
End If

Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
\'Response.Write mode & id
\'Response.End


If mode = \"Slet nummer\" Then
SQL = \"DELETE * FROM Book WHERE ID=\" & id & \" \"
Rs.Execute(SQL)
Response.Redirect(\"mobilbog.asp?sendMode=del\")
End if

SQL = \"SELECT * FROM users WHERE ID = \" & Session(\"UserId\") & \" ORDER BY ID\"
set nRec = Rs.Execute(SQL)

RigtigNavn = nRec(\"RigtigNavn\")


SQL = \"SELECT * FROM Book WHERE ID=\" & id & \" ORDER BY Navn\"
Set eSql = RS.Execute(SQL)
If NOT eSql.EOF Then
email = eSql(\"Nr\")
Else
Response.Redirect \"mobilbog.asp?sendMode=fejl\"
End If

mail_emne = Request.Form(\"besked\")

udbyd = \"fejl\"
if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
end if
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
end if
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 2510 and email < 2540 then udbyd = \"@note.sonofon.dk\"
end if
if email >= 2570 and email < 2580 then udbyd = \"@sms.tele2.dk\"
end if
if email >= 2591 and email < 2592 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
end if
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
end if
if email >= 2810 and email < 2890 then udbyd = \"@gsm1800.telia.dk\"
end if
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 4050 and email < 4100 then udbyd = \"@note.sonofon.dk\"
end if
if email >= 5110 and email < 5190 then udbyd = \"@sms.tdm.dk\"
end if
if email >= 5160 and email < 5200 then udbyd = \"@sms.tdm.dk

if udbyd = \"fejl\" then
medd = \"fejl\"
Response.Redirect \"mobilbog.asp?sendMode=\" & medd
else
medd = \"sendt\"
\'Response.Write email & udbyd & RigtigNavn
\'Response.end
On Error Resume Next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.SenderName = RigtigNavn
JMail.Sender = \"sms@zequenze.dk\"
JMail.AddRecipient email & udbyd
JMail.Body = mail_emne
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute

Response.Redirect \"mobilbog.asp?sendMode=\" & medd

%>

<body>
</body>
</html>
<% end if %>

Der er ingen grund til alle de End If\'er .. desuden virker viperfx102\'s ikke pga. alle End If\'erne ikke skal være der!

SÅDAN skal det se ud.

<%@ Language=VBScript %>
<%
id = Request.Form(\"id\")
mode = Request.Form(\"mode\")

If Session(\"password-session\") = \"\" Then
Response.Redirect(\"default.asp\")
end if

If id = \"\" Then
Response.Redirect(\"mobilbog.asp?sendMode=id\")
End If

Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
\'Response.Write mode & id
\'Response.End


If mode = \"Slet nummer\" Then
SQL = \"DELETE * FROM Book WHERE ID=\" & id & \" \"
Rs.Execute(SQL)
Response.Redirect(\"mobilbog.asp?sendMode=del\")
End if

SQL = \"SELECT * FROM users WHERE ID = \" & Session(\"UserId\") & \" ORDER BY ID\"
set nRec = Rs.Execute(SQL)

RigtigNavn = nRec(\"RigtigNavn\")


SQL = \"SELECT * FROM Book WHERE ID=\" & id & \" ORDER BY Navn\"
Set eSql = RS.Execute(SQL)
If NOT eSql.EOF Then
email = eSql(\"Nr\")
Else
Response.Redirect \"mobilbog.asp?sendMode=fejl\"
End If

mail_emne = Request.Form(\"besked\")

if email >= 2010 and email < 2060 then udbyd = \"@sms.tdm.dk\"
if email >= 2060 and email < 2100 then udbyd = \"@note.sonofon.dk\"
if email >= 2110 and email < 2200 then udbyd = \"@sms.tdm.dk\"
if email >= 2210 and email < 2300 then udbyd = \"@note.sonofon.dk\"
if email >= 2310 and email < 2400 then udbyd = \"@sms.tdm.dk\"
if email >= 2410 and email < 2500 then udbyd = \"@sms.tdm.dk\"
if email >= 2510 and email < 2600 then udbyd = \"@note.sonofon.dk\"
if email >= 2570 and email < 2580 then udbyd = \"@sms.tele2.dk\"
if email >= 2610 and email < 2690 then udbyd = \"@sms.mobilix.dk\"
if email >= 2710 and email < 2790 then udbyd = \"@sms.mobilix.dk\"
if email >= 2810 and email < 2890 then udbyd = \"@sms.mobilix.dk\"
if email >= 2910 and email < 2990 then udbyd = \"@sms.tdm.dk\"
if email >= 4010 and email < 4050 then udbyd = \"@sms.tdm.dk\"
if email >= 4050 and email < 5000 then udbyd = \"@note.sonofon.dk\"
if email >= 5110 and email < 5140 then udbyd = \"@sms.tdm.dk\"
if email >= 5160 and email < 5200 then udbyd = \"@sms.tdm.dk\" 

if udbyd = \"fejl\" then
medd = \"fejl\"
Response.Redirect \"mobilbog.asp?sendMode=\" & medd
else
medd = \"sendt\"
\'Response.Write email & udbyd & RigtigNavn
\'Response.end
On Error Resume Next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.SenderName = RigtigNavn
JMail.Sender = \"sms@zequenze.dk\"
JMail.AddRecipient email & udbyd
JMail.Body = mail_emne
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute

Response.Redirect \"mobilbog.asp?sendMode=\" & medd

%>

<body>
</body>
</html>
<% end if %>

Optimeret ASP incl. alle de numre vi har kommet frem til. Mere perfekt bliver det ikke (i den stand som det er ..):

<%@ Language=VBScript %>
<%
    On Error Resume Next

    id = Request(\"id\")
    mode = Request(\"mode\")

    If Session(\"password-session\") = \"\" Then Response.Redirect \"default.asp\"
    If id = \"\" Or Not IsNumeric(id) Then Response.Redirect \"mobilbog.asp?sendMode=id\"

    Set Rs = Server.CreateObject(\"ADODB.Connection\")
    Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
    \'Response.Write mode & id
    \'Response.End

    If mode = \"Slet nummer\" Then
        SQL = \"DELETE * FROM book WHERE id=\" & id & \";\"
        Rs.Execute(SQL)
        Response.Redirect \"mobilbog.asp?sendMode=del\"
    End If

    SQL = \"SELECT * FROM users WHERE id=\" & Session(\"UserId\") & \" ORDER BY id;\"
    set nRec = Rs.Execute(SQL)
    RigtigNavn = nRec(\"RigtigNavn\")

    SQL = \"SELECT * FROM book WHERE id=\" & id & \" ORDER BY navn;\"
    Set eSql = RS.Execute(SQL)
    If eSql.BOF Then Response.Redirect \"mobilbog.asp?sendMode=fejl\"

    email = eSql(\"Nr\")
    mail_emne = Request(\"besked\")

    If email >= 2010 And email < 2060 Then udbyd = \"@sms.tdm.dk\"
    If email >= 2060 And email < 2100 Then udbyd = \"@note.sonofon.dk\"
    If email >= 2110 And email < 2200 Then udbyd = \"@sms.tdm.dk\"
    If email >= 2210 And email < 2300 Then udbyd = \"@note.sonofon.dk\"
    If email >= 2310 And email < 2400 Then udbyd = \"@sms.tdm.dk\"
    If email >= 2410 And email < 2500 Then udbyd = \"@sms.tdm.dk\"
    If email >= 2510 And email < 2600 Then udbyd = \"@note.sonofon.dk\"
    If email >= 2570 And email < 2580 Then udbyd = \"@sms.tele2.dk\"
    If email >= 2610 And email < 2690 Then udbyd = \"@sms.mobilix.dk\"
    If email >= 2710 And email < 2790 Then udbyd = \"@sms.mobilix.dk\"
    If email >= 2810 And email < 2890 Then udbyd = \"@sms.mobilix.dk\"
    If email >= 2910 And email < 2990 Then udbyd = \"@sms.tdm.dk\"
    If email >= 4010 And email < 4050 Then udbyd = \"@sms.tdm.dk\"
    If email >= 4050 And email < 5000 Then udbyd = \"@note.sonofon.dk\"
    If email >= 5110 And email < 5140 Then udbyd = \"@sms.tdm.dk\"
    If email >= 5160 And email < 5200 Then udbyd = \"@sms.tdm.dk\" 

    If udbyd = \"fejl\" Then
        Response.Redirect \"mobilbog.asp?sendMode=fejl\"
    Else
        medd = \"sendt\"
        \'Response.Write email & udbyd & RigtigNavn
        \'Response.end

        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.server\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.SenderName = RigtigNavn
        JMail.Sender = \"sms@zequenze.dk\"
        JMail.AddRecipient email & udbyd
        JMail.Body = mail_emne
        JMail.Priority = 3
        JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
        JMail.Execute

        Response.Redirect \"mobilbog.asp?sendMode=\" & medd
    End If
%>

er det alle numre som der er kendt nu, også fra telestyrelsen ?

no_doubt:> yeps :-) Jeg sad og læste Telestyrelsens numre uddeling fra d. 20/3/2001 så det ER den absolut nyeste.

så der findes ik andre end dem der er nu ?

altså skal min sms sender nu UNDERSTØTTE alle NUMRE ?

no doubt - nope, ikke alle, f.eks. har TDC udgivet Taletidskort med 5512-numre, hvilket ikke fremgår af TS\'-nummerliste (kun, at TDC har nummerne, men ikke, hvad de bruger dem til...)

Andre ?

ikke hvad jeg kender til...  det var bare et nyt mobilnummer jeg fik forleden, som ikke stod på listen...  men man kan vel ikke garanterer, at man kan sende til alle...

okay

no_doubt:> hvad med at lukke !?

Ja ja, rolig nu *s* Ser lige om der kommer nogle nyere...

nææ nej mester! så kn du jo blive ved i al evighed ammen! du har vist fået hvad du fortjener for 35 point!

Kan man sende en sms som almindelig e-mail - og hvordan gør man det?