det ser sådan ud
sms.asp:
<%
Response.Buffer = True
Response.Expires = -1
Response.AddHeader \"pragma\", \"no-cache\"
besked = Trim(Request.Form(\"besked\"))
afsender = Trim(Request.Form(\"afsender\"))
nummer = Trim(Request.Form(\"nummer\"))
afmail = \"sms@onlinecity.dk\"
smtp = \"mail-relay.uni2.dk\"
if not nummer = \"\" then
if besked = \"\" then
fejl = \"Der er ikke skrevet nogen besked<br><br>\"
elseif len(besked & afsender & afmail) > 129 then
fejl = \"Beskeden er for lang og kan derfor ikke afsendes<br><br>\"
elseif not len(nummer) = 8 then
fejl = \"Der skal indtastes et 8-cifret, dansk telefonnummer<br><br>\"
elseif (nummer < 20100000) or (nummer >= 21000000 AND nummer < 21100000) or (nummer >= 22000000 AND nummer < 22100000) or (nummer >= 24000000 AND nummer < 26100000) or (nummer >= 29000000 AND nummer < 40100000) or (nummer >= 50000000 AND nummer < 72126205) or (nummer >= 72126210) then
fejl = \"Nummeret skal tilhøre en mobiltelefon<br><br>\"
else
send = \"true\"
end if
end if
if send = \"true\" then
if (nummer >= 20100000 AND nummer < 20600000) then
adr = nummer & \"@sms.tdm.dk\"
elseif (nummer >= 20600000 AND nummer < 21000000) then
adr = nummer & \"@note.sonofon.dk\"
elseif (nummer >= 21100000 AND nummer < 21999999) then
adr = nummer & \"@sms.tdm.dk\"
elseif (nummer >= 22100000 AND nummer < 23000000) then
adr = nummer & \"@note.sonofon.dk\"
elseif (nummer >= 23000000 AND nummer < 24000000) then
adr = nummer & \"@sms.tdm.dk\"
elseif (nummer >= 26100000 AND nummer < 26999999) then
adr = nummer & \"@sms.mobilix.dk\"
elseif (nummer >= 28100000 AND nummer < 28999999) then
adr = nummer & \"@gsm1800.telia.dk\"
elseif (nummer >= 40100000 AND nummer < 40500000) then
adr = nummer & \"@sms.tdm.dk\"
elseif (nummer >= 40500000 AND nummer < 50000000) then
adr = nummer & \"@note.sonofon.dk\"
elseif (nummer >= 72100000 AND nummer < 72126210) then
adr = nummer & \"@note.sonofon.dk\"
else
fejl = \"Der er opstået en fejl i forbindelse med afsendelse af beskeden<br><br>\"
send = \"false\"
end if
end if
if send = \"true\" then
Set JMail = Server.CreateObject (\"JMail.SMTPMail\")
JMail.ServerAddress = \"\" & smtp & \"\"
JMail.Sender = \"\" & afmail & \"\"
JMail.AddRecipient \"\" & adr & \"\"
if not afsender = \"\" then
JMail.Subject = \"Fra \" & afsender & \" \"
end if
JMail.Body = \"\" & besked & \"\"
JMail.Execute
set JMail = nothing
\'html-koden, der vises, når en besked er blevet sendt
%>
<head>
<title>SMS-besked afsendt</title>
</head>
<p><font color=\"#0000FF\">Beskeden er blevet sendt til <%=nummer%></font></p>
<%
\'/html-koden, der vises, når en besked er blevet sendt/
else
if afsender = \"\" then
afsender = \"Navn\"
end if
if besked = \"\" then
besked = \"Skriv en besked\"
end if
\'html-koden med form til afsendelse af besked
%>
<head>
<title>Afsendelse af SMS-besked</title>
</head>
<p><font color=\"#FF0000\"><%=fejl%></font></p>
<script LANGUAGE=\"javascript1.2\">
function antaltegn()
{ document.besked.tegn.value = 129 - <%=len(afmail)%> - document.besked.afsender.value.length - document.besked.besked.value.length; }
</script>
<form method=\"POST\" action=\"sms.asp\" name=\"besked\">
<p>Nummer: <input type=\"text\" name=\"nummer\" size=\"8\" value=\"<%=nummer%>\"><br>
Tegn tilbage: <input type=\"text\" name=\"tegn\" size=\"3\"><br>
Afsender: <input type=\"text\" name=\"afsender\" size=\"20\" value=\"<%=afsender%>\" onkeypress=\"antaltegn()\" onchange=\"antaltegn()\" onkeyup=\"antaltegn()\"><br>
Vælg evt. eksisterende besked: <select size=\"1\" name=\"forud\" onchange=\"document.besked.besked.value=options[selectedIndex].value;antaltegn();\">
<option selected value=\"Vælg en besked\">Vælg en besked</option>
<option value=\"Hej. Jeg kommer om 5 min.\">Hej. Jeg kommer om 5 min.</option>
<option value=\"Jeg kører nu\">Jeg kører nu</option>
</select><br>
Besked: <textarea rows=\"4\" name=\"besked\" cols=\"20\" onkeypress=\"antaltegn()\" onchange=\"antaltegn()\" onkeyup=\"antaltegn()\"><%=besked%></textarea><br>
<input type=\"submit\" value=\"send besked\" name=\"submit\"></p>
</form>
<script LANGUAGE=\"javascript1.2\">
antaltegn();
</script>
<%
\'/html-koden med form til afsendelse af besked/
end if
%>
Ny bruger
Nybegynder
Opret
Preview
