Når man sender en sms er det ligesom at sende en email..
fx et sonofon nummer er 22552123 så sender den en mail til 22552123@note.sonofon.dk
Det er ikke helt let hvis man ikke kan html og asp...
her er en kode:
-----sms.asp---
<%@ Language=VBScript %>
<% Response.Buffer = True
Dim Mode
Mode = Request("Mode")
If Mode = "Send" Then
Dim SMSServer, SMTPServer, Navn, Email, Nummer, Besked, StrTmp
' Funktion til at vise fejl meddelelser
Function Fejl(ByVal FejlTekst)
Response.Clear
Response.Write "<HTML><BODY>"
Response.Write "<FONT FACE='Arial' Size='3'>" & FejlTekst & "</FONT><P>"
Response.Write "</BODY></HTML>"
Response.End
End Function
' Tlf nummeret
Nummer = Request("Nummer")
' Beskeden
Besked = Request("Besked")
' Standard tekst her (sendes øverst i alle SMS beskeder)
Besked = Replace(Besked, "'","´")
Besked = Replace(Besked,"""","´´")
' Lidt fejl tjekning
If Not IsNumeric(Nummer) Then
Fejl("Du har ikke skrevet et telefon nummer!!")
End If
If Not Len(Nummer) = 8 Then
Fejl("Du har ikke skrevet et gyldig telefon nummer!!")
End If
If Besked = "" Then
Fejl("Du har ikke skrevet en besked!!")
End If
If Len(Besked) > 200 Then
Fejl("Du har skrevet en for lang besked!!")
End If
Dim Sonofon, TeleDanmark, Mobilix, Telia, Selskab, Forkert
Sonofon = "@note.sonofon.dk"
TeleDanmark = "@sms.tdm.dk"
Mobilix = "@sms.mobilix.dk"
Telia = "@gsm1800.telia.dk"
If (Modtager < 20100000) Then
Selskab = Forkert
End If
If (Nummer >= 20100000 AND Nummer < 20600000) Then
Selskab = TeleDanmark
End If
If (Nummer >= 20600000 AND Nummer < 21000000) Then
Selskab = Sonofon
End If
If (Nummer >= 21000000 AND Nummer < 21100000) Then
Selskab = Forkert
End If
If (Nummer >= 21100000 AND Nummer < 21999999) Then
Selskab = TeleDanmark
End If
If (Nummer >= 22000000 AND Nummer < 22100000) Then
Selskab = Forkert
End If
If (Nummer >= 22100000 AND Nummer < 23000000) Then
Selskab = Sonofon
End If
If (Nummer >= 23000000 AND Nummer < 24000000) Then
Selskab = TeleDanmark
End If
If (Nummer >= 24000000 AND Nummer < 26100000) Then
Selskab = Forkert
End If
If (Nummer >= 26100000 AND Nummer < 26999999) Then
Selskab = Mobilix
End If
If (Nummer >= 28100000 AND Nummer < 28999999) Then
Selskab = Telia
End If
If (Nummer >= 29000000 AND Nummer < 40100000) Then
Selskab = Forkert
End If
If (Nummer >= 40100000 AND Nummer < 40500000) Then
Selskab = TeleDanmark
End If
If (Nummer >= 40500000 AND Nummer < 50000000) Then
Selskab = Sonofon
End If
If (Nummer >= 50000000 AND Nummer < 72126205) Then
Selskab = Forkert
End If
If (Nummer >= 72100000 AND Nummer < 72126210) Then
Selskab = Sonofon
End If
If (Nummer >= 72126210) Then
Selskab = Forkert
End If
Nummer = Nummer & Selskab '& SMSServer
If Not Selskab = "Forkert" Then
' ASPMail version
'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Mailer.RemoteHost = "funstuff.dk"
'Mailer.FromName = Trim(CStr(Navn))
'Mailer.FromAddress = "sms@funstuff.dk" 'Trim(CStr(Email))
'Mailer.AddRecipient Trim(CStr(Nummer)),Trim(CStr(Nummer)) 'Nummer, Nummer
'Mailer.Subject = Trim(CStr(Besked))
'Mailer.BodyText = ""
'Mailer.SendMail
'Mailer.ClearRecipients()
'Set Mailer = Nothing
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "funstuff.dk" ' Specify a valid SMTP server
Mail.From = "sms@funstuff.dk" ' Specify sender's address
Mail.FromName = "Sendt fra
www.funstuff.dk" ' Specify sender's name
Mail.AddAddress Trim(CStr(Nummer))
Mail.Subject = Trim(CStr(Besked & " "))
Mail.Body = ""
On Error Resume Next
Mail.Send
If Err <> 0 Then
Fejl("Error encountered: " & Err.Description)
End If
End If
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta HTTP-EQUIV="REFRESH" CONTENT="5;URL=http://www.funstuff.dk/sendsms.asp">
<title>Funstuff.dk - SMS - Beskeden er nu
sendt...</STRONG></FONT></title>
</head>
<body background="
http://www.funstuff.dk/images/backj.gif"><p align="center"> </p>
<p align="center"><b><font face="Arial" size="3"><font color="#FFFFFF">Din
besked er nu sendt, </font><font color="#ffffff">og vil snart være fremme ved
dens modtager.</font></font></b></p>
<p align="center"> </p>
</body>
</html>
<%
Else
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P> </P>
<FORM action="sms.asp" method="GET">
<input type="Hidden" name="Mode" value="Send">
TLF: <br><input type="Text" name="Nummer" size="40"><br>
Besked: <br><input type="Text" name="Besked" size="40" maxlength=256><br>
<input type="Submit" value="Send SMS Besked">
<input type="Reset" value=Slet>
</FORM>
</BODY>
</HTML>
<%
End If
%>
--slut sms.asp
den er lidt lang, den virker kun hvis der er aspemail på serveren...
den kan ses på
http://www.funstuff.dk/sendsms.asp
Ny bruger
Nybegynder
Opret
Preview
