CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede mystico Nybegynder
06. juni 2000 - 12:02 Der er 14 kommentarer

Samme SMS til flere brugere !!!

Jeg har en ASP SMS sender der funker fint - men nogen der kan hjælpe med at få den til at udlæse i en access database mobilnummerne på eksempelvis dem der har post nummer 5500 ???

----------
Her mit script !
--------------------------------
<!--#INCLUDE FILE ="sms_function.asp" -->
<HTML>
<HEAD>
<CENTER>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5">
    <FORM METHOD="POST" NAME="smsform" ACTION="sms.asp">
<% if Request.Form("mode") <> "send" then %>
    <INPUT TYPE="HIDDEN" NAME="mode" VALUE="send">
<% else %>
    <INPUT TYPE="HIDDEN" NAME="mode" VALUE="sendny">
<% end if %>
    <TR>
        <TD ALIGN="CENTER" BGCOLOR="#000000">
            <font color="#FFFFFF">
            <% = gulfedfont %></font>
            <p><font color="#FFFFFF"><b>Send din SMS besked</b><% = fe %></font></p>
        </TD>
    </TR>
    <TR>
        <TD BGCOLOR="#000000">
<% if Request.Form("mode") = "" OR Request.Form("mode") = "sendny" then %>
            <TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0">
                <TR>
                    <TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="4">
                        <font color="#FFFFFF">
                        &nbsp;</font>
                        <form method="POST" action="--WEBBOT-SELF--">
                          <!--webbot bot="SaveResults"
                          U-File="fpweb:///_private/form_results.txt"
                          S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
                          <p><select size="1" name="D1">
                            <option>Postnummer</option>
                            <option>Kun Mand</option>
                            <option>Kun Kvinder</option>
                            <option>Kun Personale</option>
                          </select></p>
                        </form>
                    </TD>
                </TR>
                <TR>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF"><% = fedfont %><b>Tlf&nbsp;nummer:</b><% = fe %></font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF">
                        <INPUT TYPE="TEXT" NAME="telefonnummer" SIZE="8" MAXLENGTH="8">
                        </font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <P ALIGN="CENTER"><font color="#FFFFFF"><% = fedfont %><b>Afsender:</b><% = fe %></font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF">
                        <INPUT TYPE="TEXT" NAME="afsender" SIZE="10">
                        </font>
                    </TD>
                </TR>
                <TR>
                    <TD VALIGN="TOP" ALIGN="CENTER" COLSPAN="4">
                        <font color="#FFFFFF">
                        <TEXTAREA ROWS="2" COLS="35" NAME="besked" BORDER="0" SCROLLING="NO">Besked</TEXTAREA>
                        </font>
                    </TD>
                </TR>
            </TABLE>
<font color="#FFFFFF">
<% else %>
<BR>
<% = sendsms(Request.Form("telefonnummer")) %>
<% end if %>
</font>
        </TD>
    </TR>
    <TR>
        <TD VALIGN="TOP" ALIGN="CENTER" BGCOLOR="#000000">
            <CENTER>
            <INPUT TYPE="SUBMIT" VALUE="Send<% if Request.Form("mode") = "send" then %> ny <% end if %>SMS">
            </CENTER>
        </TD>
    </TR>
    </FORM>
</TABLE>
<% if Request.Form("mode") = "" then %>
<script language='javascript'> document.smsform.telefonnummer.focus(); </script>
<% end if
if mailer = 0 then
%>
<FONT FACE="Arial" SIZE="2" COLOR="#CC0000"><STRONG>SMS afsendelse er slået fra !!!</STRONG></FONT>
<% end if %>
</BODY>
</HTML>
Avatar billede main Nybegynder
06. juni 2000 - 13:11 #1
hvis nummerne er skrevet ind i en db ved jeg hvordan man kan gøre!!1
Avatar billede main Nybegynder
06. juni 2000 - 13:12 #2
hvilken komponent køre du med???
Avatar billede main Nybegynder
06. juni 2000 - 13:18 #3
Udskift cdonts scriptet i sms_function.asp til og ret det derefter til:

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.Subject = blablb
objCDO.From = blablb
objCDO.Body = blablb

Strsql = "Select * from dintabel"
Set rs = myConn.Execute(strSQL)
response.write "Email sender afsted til:&nbsp;"
Do While Not rs.EOF

objCDO.To = rs("nummer")

rs.movenext
loop
objCDO.Send

Set objCDO = Nothing

hvis du ikke kan få det til at virke smæk sms_function.asp op så skal jeg gøre det for dig.


Main


Avatar billede main Nybegynder
06. juni 2000 - 13:22 #4
'--------------CDONTS mail start---------------------

            Set sms = CreateObject("CDONTS.NewMail")
            sms.From = afsendermail
           
            if selskab <> "@sms.tdm.dk" then
                sms.Subject = navn
                sms.Body = tekst
            else
                sms.Body = mobiltekst
            end if
            Strsql = "Select * from dintabel"
            Set rs = myConn.Execute(strSQL)   
            Do While Not rs.EOF

            sms.To = rs("nummer")

            rs.movenext
            loop

            sms.Send
            Set sms = Nothing

'--------------CDONTS mail slut---------------------
Avatar billede main Nybegynder
06. juni 2000 - 13:24 #5
'--------------JMail mail start---------------------

            Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ServerAddress = "din.mail.server"
            JMail.Sender = afsendermail
            if selskab <> "@sms.tdm.dk" then
                JMail.Subject = navn
                JMail.Body = tekst
            else
                JMail.Body = mobiltekst
            end if
           
            Strsql = "Select * from tagwall"
            Set rs = myConn.Execute(strSQL)
            response.write "Email sender afsted til:&nbsp;"
            Do While Not rs.EOF


            Jmail.AddRecipientBCC rs("email")

            response.write rs("email") & ",&nbsp;"
            rs.movenext
            loop

            JMail.Execute
            set JMail = nothing

'--------------JMail mail slut---------------------
Avatar billede Slettet bruger
06. juni 2000 - 14:11 #6
her er filerne - jeg har forsøgt :O(

sms.asp
---------------------------------------
<!--#INCLUDE FILE ="sms_function.asp" -->
<HTML>
<HEAD>
<TITLE>SMS SERVICE HOSTET BY www.SSU.DK</TITLE>
</HEAD>
<%
   
    Dim stMode
    stMode = request("mode")

    Dim DirPath, MDBPath, DBPath, connect

    DirPath        =    Request.serverVariables("APPL_PHYSICAL_PATH")
    MDBPath        =    "../database/users.mdb"
    DBPath        =    Dirpath & MDBPath
   

    Set Connect    =    server.createobject("ADODB.connection")
    Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath

Strsql = "Select * from tblUsers;"
Set rs = Connect.Execute(strSQL)
response.write "Email sender afsted til:&nbsp;"
Do While Not rs.EOF

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.Subject = blablb
objCDO.From = blablb
objCDO.Body = blablb

Strsql = "select * from tblUsers;"
Set rs = connect.Execute(strSQL)
response.write "Email sender afsted til:&nbsp;"
Do While Not rs.EOF

objCDO.To = rs("mobiltelefon")

rs.movenext
loop
objCDO.Send

Set objCDO = Nothing


%>

<BODY background="http://www.kimmer.subnet.dk/stars.gif">
<CENTER>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5">
    <FORM METHOD="POST" NAME="smsform" ACTION="sms.asp">
<% if Request.Form("mode") <> "send" then %>
    <INPUT TYPE="HIDDEN" NAME="mode" VALUE="send">
<% else %>
    <INPUT TYPE="HIDDEN" NAME="mode" VALUE="sendny">
<% end if %>
    <TR>
        <TD ALIGN="CENTER" BGCOLOR="#000000">
            <font color="#FFFFFF">
            <% = gulfedfont %></font>
            <p><font color="#FFFFFF"><b>Send din SMS besked</b><% = fe %></font></p>
        </TD>
    </TR>
    <TR>
        <TD BGCOLOR="#000000">
<% if Request.Form("mode") = "" OR Request.Form("mode") = "sendny" then %>
            <TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0">
                <TR>
                    <TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="4">
                        <font color="#FFFFFF">
                        &nbsp;</font>
                        <form method="POST" action="--WEBBOT-SELF--">
                          <!--webbot bot="SaveResults"
                          U-File="fpweb:///_private/form_results.txt"
                          S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
                          <p><select size="1" name="D1">
                            <option>Postnummer</option>
                            <option>Kun Mand</option>
                            <option>Kun Kvinder</option>
                            <option>Kun Personale</option>
                          </select></p>
                        </form>
                    </TD>
                </TR>
                <TR>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF"><% = fedfont %><b>Tlf&nbsp;nummer:</b><% = fe %></font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF">
                        <INPUT TYPE="TEXT" NAME="telefonnummer" SIZE="8" MAXLENGTH="8">
                        </font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <P ALIGN="CENTER"><font color="#FFFFFF"><% = fedfont %><b>Afsender:</b><% = fe %></font>
                    </TD>
                    <TD VALIGN="TOP" ALIGN="LEFT">
                        <font color="#FFFFFF">
                        <INPUT TYPE="TEXT" NAME="afsender" SIZE="10">
                        </font>
                    </TD>
                </TR>
                <TR>
                    <TD VALIGN="TOP" ALIGN="CENTER" COLSPAN="4">
                        <font color="#FFFFFF">
                        <TEXTAREA ROWS="2" COLS="35" NAME="besked" BORDER="0" SCROLLING="NO">Besked</TEXTAREA>
                        </font>
                    </TD>
                </TR>
            </TABLE>
<font color="#FFFFFF">
<% else %>
<BR>
<% = sendsms(Request.Form("telefonnummer")) %>
<% end if %>
</font>
        </TD>
    </TR>
    <TR>
        <TD VALIGN="TOP" ALIGN="CENTER" BGCOLOR="#000000">
            <CENTER>
            <INPUT TYPE="SUBMIT" VALUE="Send<% if Request.Form("mode") = "send" then %> ny <% end if %>SMS">
            </CENTER>
        </TD>
    </TR>
    </FORM>
</TABLE>
<% if Request.Form("mode") = "" then %>
<script language='javascript'> document.smsform.telefonnummer.focus(); </script>
<% end if
if mailer = 0 then
%>
<FONT FACE="Arial" SIZE="2" COLOR="#CC0000"><STRONG>SMS afsendelse er slået fra !!!</STRONG></FONT>
<% end if %>
</BODY>
</HTML>
Avatar billede Slettet bruger
06. juni 2000 - 14:14 #7
sms_function.asp
----------------------------

<%
mailer = 1
afsendermail = "Crazy Daisy"
fedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFFFF""><STRONG>"
gulfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFF00""><STRONG>"
rodfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FF0000""><STRONG>"
fedstor = "<FONT FACE=""Arial"" SIZE=""4"" COLOR=""#000099""><STRONG>"
fe = "</STRONG></FONT>"



Function sendsms( mobil )
if Request.Form("telefonnummer") = "" or Request.Form("afsender") = "" 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.mobilix.dk"
'**************** 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)) =< 2609 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("afsender")
        tekst = Request.Form("besked")
        mobiltekst = navn &". "& Request.Form("besked")   
        email = mobil & selskab
'******** BESKED SENDES START ********

        if mailer = 1 then
'--------------JMail mail start---------------------

            Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ServerAddress = "mail.viborgnet.dk"
            JMail.Sender = Afsendermail
            if selskab <> "@sms.tdm.dk" then
                JMail.Subject = navn
                JMail.Body = tekst
            else
                JMail.Body = mobiltekst
            end if
           
            Strsql = "Select * from tagwall"
            Set rs = myConn.Execute(strSQL)
            response.write "Email sender afsted til:&nbsp;"
            Do While Not rs.EOF


            Jmail.AddRecipientBCC rs("email")

            response.write rs("email") & ",&nbsp;"
            rs.movenext
            loop

            JMail.Execute
            set JMail = nothing

'--------------JMail mail slut---------------------
        elseif mailer = 2 then
'--------------ASPMail mail start---------------------

            Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
            Mailer.RemoteHost = "din.mail.server"
            Mailer.FromAddress = afsendermail
            Mailer.AddRecipient email
            if selskab <> "@sms.tdm.dk" then
                Mailer.Subject = navn
                Mailer.BodyText = tekst
            else
                Mailer.BodyText = mobiltekst
            end if
            Mailer.SendMail

'--------------ASPMail mail slut---------------------
        elseif mailer = 3 then
'--------------CDONTS mail start---------------------

            Set sms = CreateObject("CDONTS.NewMail")
            sms.From = afsendermail
           
            if selskab <> "@sms.tdm.dk" then
                sms.Subject = navn
                sms.Body = tekst
            else
                sms.Body = mobiltekst
            end if
            Strsql = "Select * from dintabel"
            Set rs = myConn.Execute(strSQL)   
            Do While Not rs.EOF

            sms.To = rs("nummer")

            rs.movenext
            loop

            sms.Send
            Set sms = Nothing

'--------------CDONTS mail slut---------------------
        elseif mailer = 3 then
'------------Webhostme mail start--------------------

                Set SMTPObj = CreateObject("WebHostMeMail.SMTP")
                SMTPObj.SMTPServer = "Mail.webhostme.com"
                SMTPObj.ToAdd = email
                SMTPObj.FromAdd = afsendermail
                if selskab <> "@sms.tdm.dk" then
                    SMTPObj.Subject = navn
                    SMTPObj.Body = tekst
                else
                    SMTPObj.Body = mobiltekst
                end if
                SMTPObj.Connect
                result = SMTPObj.EMail
                SMTPObj.Quit

'------------Webhostme mail slut---------------------
        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
'---------------------------------------------------------------
%>

Såren ser de ud - måske kan du få dem til at virke !

Det er meningen at man skal kunne vælge fra databasen hvilke brugere der skal sendes til - efter kriterier - eksempel sendes der kun til kvinderne i databasen.
Avatar billede Slettet bruger
06. juni 2000 - 14:20 #8
Jeg bruger JMAIL men hvad er forskellen på det og cdonts ???
Avatar billede main Nybegynder
06. juni 2000 - 19:00 #9
Det er to forskellige komponenter.
Avatar billede main Nybegynder
06. juni 2000 - 19:06 #10
kan du ikke sende alle filerne til bkb4097@vip.cybercity.dk

eller på icq

38696060
så skal jeg prøve at ordne det til dig ???
Avatar billede netsrac Praktikant
06. juni 2000 - 22:03 #11
Hey hvad sker der her ???

To foskellige brugernavne ???

Hm....
Avatar billede phylox2 Nybegynder
06. juni 2000 - 22:05 #12
Hvis du bruger JMAIL -- så skal du bare gøre sådan her

Du har en SQL, der vælger de modtagere du skal have fx. felt "Modtagere"

SQL = "SELECT Modtagere FROM tblUsers"
Set RS = MyConn.Execute(SQL)

While not RS.EOF or RS.BOF

Jmail.AddRecipientBCC rs("email")
Jmail.Send

RS.MoveNext
Wend

Så sender den en mail pr. modtager du har :)
Avatar billede Slettet bruger
07. juni 2000 - 00:32 #13
Main der sendt til din mail !!!
Avatar billede phylox2 Nybegynder
21. september 2000 - 15:42 #14
Kan vi få en afslutning på dette spørgsmål?
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
4 min siden install.esd og boot.wim Af sjass i Windows
I dag 18:52 Nyt tekstdokument er forsvundet. Af valby i Windows
I dag 16:48 "Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
I går 19:53 CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42 Katastrofe med Pc Af LilBe i PC
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Læs mere »
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Læs mere »
Sådan: Én løsning til compliance, sikkerhed og overblik
Sådan gør du: Elektronisk dokumentudveksling i praksis
Sikkerhed uden grænser: Cisco Hypershield
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »