Function sendsms( mobil ) if Request.Form("sendtil") = "" or Request.Form("sendtfra") = "" or Request.Form("besked") = "" then sendsms = rodFedfont &"Alle felter SKAL udfyldes !!! "& fe else '**************** Teleselskaber email start **************** teledk = "@sms.tdm.dk" sonofon = "@note.sonofon.dk" telia = "@gsm1800.telia.dk" mobilix = "@sms.orangedk.dk" ' Mobilix og Orange '**************** Teleselskaber email slut ***************** '**************** Find teleselskab start **************** If Not IsNumeric(mobil) Then gyldigt = 0 else if left(mobil,4) < 2010 OR len(mobil) < 8 then gyldigt = 0 else gyldigt = 1 end if end if
if gyldigt = 1 then if int(left(mobil,4)) => 2010 AND int(left(mobil,4)) =< 2059 then selskab = teledk elseif int(left(mobil,4)) => 2060 AND int(left(mobil,4)) =< 2099 then selskab = sonofon elseif int(left(mobil,4)) => 2110 AND int(left(mobil,4)) =< 2199 then selskab = teledk elseif int(left(mobil,4)) => 2210 AND int(left(mobil,4)) =< 2299 then selskab = sonofon elseif int(left(mobil,4)) => 2310 AND int(left(mobil,4)) =< 2399 then selskab = teledk elseif int(left(mobil,4)) => 2610 AND int(left(mobil,4)) =< 2699 then selskab = mobilix elseif int(left(mobil,4)) => 2810 AND int(left(mobil,4)) =< 2899 then selskab = telia elseif int(left(mobil,4)) => 3010 AND int(left(mobil,4)) =< 3099 then selskab = teledk elseif int(left(mobil,4)) => 4010 AND int(left(mobil,4)) =< 4049 then selskab = teledk elseif int(left(mobil,4)) => 4050 AND int(left(mobil,4)) =< 4099 then selskab = sonofon else gyldigt = 0 end if end if
if gyldigt = 1 then navn = "Besked fra "& Request.Form("sendtfra") tekst = Request.Form("besked") mobiltekst = navn &". "& Request.Form("besked") email = mobil & selskab '******** BESKED SENDES START ********
if mailer = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.cityteamet.dk" JMail.Sender = afsendermail if selskab <> "@sms.tdm.dk" then JMail.Subject = navn JMail.Body = tekst else JMail.Body = mobiltekst end if JMail.AddRecipient email JMail.Execute set JMail = nothing
end if end if if gyldigt = 1 then sendsms = fedfont &"Besked er sendt til:<BR><BR>Telefonnummer: "& rodfedfont & mobil '******** BESKED SENDES SLUT ********* else sendsms = rodFedfont &"Telefonnummeret er ikke gyldigt !!! "& fe end if '**************** Find teleselskab slut ***************** end if End Function '--------------------------------------------------------------- %>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
PS. Den SMS sender der er *meget* gammel hvad angår telefonnummer-serierne. Mit nr. starter med 5182 og jeg bruger WorldOnline ... det vil den altså ikke kunne sende til skal det lige siges.
Det er svært, for ikke at sige umuligt, at regne sleskab ud fra telefonnummerne, men kan jo, når man skifter abbonnement nu, tage sit telefonnummer med. Hvilket betyder at nummerne og teleselskaberne rodes sammen.
jeg har haft held med at sende både til tele danmark og sonofon abonenter ved hjælp at mobilix's domæne. Ellers kan alternativet jo være at man også skal vælge hvilket abonnoment modtageren har.... eller sende til alle!!
nogle ganeg skal man bruge en afsender e-mail og smtp adresse fra det domæne som du har uploadet din side på. desuden skal det være en gyldig mail adresse i det domæne.
dvs. hvis din side ikke ligger på www.cityteamet.dk kan det være skyld i at den ikke vil sende.
hmmm jeg kan godt igen med sms.tdm.dk man kunne ellers ikke lige efter den 1. de ville tage penge for det, man skulle købe en dyr gateway og så betale for alle de sms'er man sende gennem den. Men det har de åbenbart droppet igen
jeg har en sms, som ligener ovenstående kode, jeg har hentet den på www.activeserverpages.dk, og den virker fint, jeg har lige sendt en sms til mig selv, på er gammelt sonofon nummer, der nu er overtaget af tdc !! om det virker fordi at sonofon videresender den til tdc ved jeg selvf. ikke men fakta er at jeg 5 sek efter at have sendt den modtog jeg den.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
