CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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 !
--------------------------------

<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">
 </font>
<form method="POST" action="--WEBBOT-SELF--">

<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 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>

Synes godt om

main Nybegynder

06. juni 2000 - 13:11 #1

hvis nummerne er skrevet ind i en db ved jeg hvordan man kan gøre!!1

Synes godt om

main Nybegynder

06. juni 2000 - 13:12 #2

hvilken komponent køre du med???

Synes godt om

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: "
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

Synes godt om

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---------------------

Synes godt om

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: "
Do While Not rs.EOF

Jmail.AddRecipientBCC rs("email")

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

JMail.Execute
set JMail = nothing

'--------------JMail mail slut---------------------

Synes godt om

Slettet bruger

06. juni 2000 - 14:11 #6

her er filerne - jeg har forsøgt :O(

sms.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: "
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: "
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">
 </font>
<form method="POST" action="--WEBBOT-SELF--">

<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 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>

Synes godt om

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: "
Do While Not rs.EOF

Jmail.AddRecipientBCC rs("email")

response.write rs("email") & ", "
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.

Synes godt om

Slettet bruger

06. juni 2000 - 14:20 #8

Jeg bruger JMAIL men hvad er forskellen på det og cdonts ???

Synes godt om

main Nybegynder

06. juni 2000 - 19:00 #9

Det er to forskellige komponenter.

Synes godt om

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 ???

Synes godt om

netsrac Praktikant

06. juni 2000 - 22:03 #11

Hey hvad sker der her ???

To foskellige brugernavne ???

Hm....

Synes godt om

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 :)

Synes godt om

Slettet bruger

07. juni 2000 - 00:32 #13

Main der sendt til din mail !!!

Synes godt om

phylox2 Nybegynder

21. september 2000 - 15:42 #14

Kan vi få en afslutning på dette spørgsmål?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Netcompany A/S

Software Developer

ATP

Data Partner til at sikre godt samarbejde om data og eksterne datakilder

Cognizant Technology Solutions Denmark ApS

Energy Trading Project Manager – Consulting

Paychex Europe

Technical QA Specialist to Danløn

Capgemini Danmark A/S

Salesforce Senior Technical Consultant

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling