ændring af SMS-kode i asp
Jeg skal have ændret koden så når man sender sin besked kommer man til en anden asp side, hvor der står at beskeden er sendt, og lige sådan hvis der opstår fejl (At der ikke er er skrivet noget tlf. eller andet)koden ser således ud:
<html>
<head>
<title></title>
</head>
<body>
<%
smsTo = Request(\"to\")
smsFrom = Request(\"from\")
smsSubject = Request(\"subject\")
If smsTo <> \"\" Then
If Not IsNumeric(smsTo) Then
Response.Write(\"Mobilnummer må kun indeholde tal<br><br>\" & vbNewLine)
Else
smsTo = smsTo*1
If smsTo >= 20100000 And smsTo < 20600000 Then
smsEmail = smsTo & \"@sms.tdm.dk\"
ElseIf smsTo >= 20600000 And smsTo < 21000000 Then
smsEmail = smsTo & \"@note.sonofon.dk\"
ElseIf smsTo >= 21100000 And smsTo < 22000000 Then
smsEmail = smsTo & \"@sms.tdm.dk\"
ElseIf smsTo >= 22100000 And smsTo < 23000000 Then
smsEmail = smsTo & \"@note.sonofon.dk\"
ElseIf smsTo >= 23000000 And smsTo < 24000000 Then
smsEmail = smsTo & \"@sms.tdm.dk\"
ElseIf smsTo >= 26100000 And smsTo < 26900000 Then
smsEmail = smsTo & \"@sms.mobilix.dk\"
ElseIf smsTo >= 28100000 And smsTo < 28900000 Then
smsEmail = smsTo & \"@sms.mobilix.dk\"
ElseIf smsTo >= 40100000 And smsTo < 40500000 Then
smsEmail = smsTo & \"@sms.tdm.dk\"
ElseIf smsTo >= 40500000 And smsTo < 50000000 Then
smsEmail = smsTo & \"@note.sonofon.dk\"
End If
If smsEmail <> \"\" Then
Set userMail = Server.CreateObject(\"JMail.SMTPMail\")
\'*** mail.mydomain.dk skal rettes til den mail-server der er tilknyttet dit webhotel ***
userMail.ServerAddress = \"mail.mydomain.dk\"
userMail.SenderName = smsFrom
userMail.AddRecipient smsEmail
userMail.Body = smsSubject
userMail.Execute
userMail.Close
Set userMail = nothing
Response.Write(\"Din SMS er nu sendt, tryk på \"Videre, (under SMS-senderen) for at komme til konkurrencesiden eller send endnu en SMS\"<br><br>\" & vbNewLine)
smsTo = \"\"
smsFrom = \"\"
smsSubject = \"\"
Else
Response.Write(\"Beklager... Det indtastede mobilnummer er ikke gyldigt<br><br>\" & vbNewLine)
End If
End If
End If
%>
<FORM ACTION=\"sms.asp\" METHOD=POST name=\"sms\">
<table border=0 CELLPADDING=0 CELLSPACING=0>
<tr><td><font size=\"2\" face=\"Verdana\">Til mobilnr:</font></td><td><font size=\"2\" face=\"Verdana\"><INPUT name=\"to\" value=\"<%=smsTo%>\" size=8 style=\"color: #000000; background-color: #88A4B0; border-style: solid; border-width: 1\"></font></td></tr>
<tr><td><font size=\"2\" face=\"Verdana\">Fra:</font></td><td><font size=\"2\" face=\"Verdana\"><INPUT name=\"from\" value=\"<%=smsFrom%>\" size=20 onkeyup=\"charCount()\" onchange=\"charCount()\" style=\"background-color: #88A4B0; color: #000000; border-style: solid; border-width: 1\"></font></td></tr>
<tr><td><font size=\"2\" face=\"Verdana\">Besked:</font></td><td><font size=\"2\" face=\"Verdana\"><textarea name=\"subject\" cols=\"20\" rows=\"4\" wrap=\"virtual\" onkeyup=\"charCount()\" onchange=\"charCount()\" style=\"background-color: #88A4B0; color: #000000; border-style: solid; border-width: 1\"><%=smsSubject%></textarea></font></td></tr>
<tr><td><font size=\"2\" face=\"Verdana\">Tegn tilbage: </font> </td><td><font size=\"2\" face=\"Verdana\"><INPUT name=\"left\" size=3 value=180 style=\"background-color: #88A4B0; color: #000000; border-style: solid; border-width: 1\"></font></td></tr>
<tr><td colspan=2><font size=\"2\" face=\"Verdana\"> </font></td></tr>
<tr><td colspan=2><center><font size=\"2\" face=\"Verdana\"><INPUT type=\"submit\" value=\" Send -->\" style=\"background-color: #88A4B0; color: #000000; border-style: solid; border-width: 1\"></font></center></td></tr>
<tr><td colspan=2></td></tr>
</table>
</form>
<script>
<!--
//Script by Ricki Runge
//Find more at www.script.dk
function charCount() {
document.sms.left.value = 180 - document.sms.subject.value.length - document.sms.from.value.length;
if (document.sms.left.value < 0) {
alert(\"Beklager... Beskeden kan ikke være mere end 180 tegn\");
}
}
charCount();
//-->
</script>
</body>
</html>
