Hvordan skal jeg så lave det når jeg har en kode der ser sådan ud:
<!-- SMS Functions start -->
<%
'--------- SKAL TILRETTES FØR BRUG START ---------
afsendermail = "sms@styler.dk"
ServerAddresse = "websmtp.styler.dk"
'--------- SKAL TILRETTES FØR BRUG SLUT ----------
fedfont = "<FONT FACE=""Verdana"" SIZE=""1"" COLOR=""#000000""><CENTER><STRONG>"
rodfedfont = "<FONT FACE=""Verdana"" SIZE=""1"" COLOR=""#FF0000""><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)) =< 2399 then
selskab = teledk
elseif int(left(mobil,4)) => 2410 AND int(left(mobil,4)) =< 2499 then
selskab = teledk
elseif int(left(mobil,4)) => 2510 AND int(left(mobil,4)) =< 2599 then
selskab = teledk
elseif int(left(mobil,4)) => 2610 AND int(left(mobil,4)) =< 2699 then
selskab = mobilix
elseif int(left(mobil,4)) => 2710 AND int(left(mobil,4)) =< 2799 then
selskab = mobilix
elseif int(left(mobil,4)) => 2810 AND int(left(mobil,4)) =< 2899 then
selskab = telia
elseif int(left(mobil,4)) => 2910 AND int(left(mobil,4)) =< 2999 then
selskab = teledk
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
elseif int(left(mobil,4)) => 5110 AND int(left(mobil,4)) =< 5199 then
selskab = teledk
elseif int(left(mobil,4)) => 6060 AND int(left(mobil,4)) =< 6090 then
selskab = sonofon
elseif int(left(mobil,4)) => 6110 AND int(left(mobil,4)) =< 6170 then
selskab = teledk
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 ********
'--------------JMail mail start---------------------
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = ServerAddresse
JMail.Sender = afsendermail
if selskab <> "@sms.tdm.dk" then
JMail.Subject = navn
JMail.Body = tekst
JMail.Body = mobiltekst
end if
JMail.AddRecipient email
set JMail = nothing
'--------------JMail mail slut---------------------
end if
if gyldigt = 1 then
sendsms = fedfont &" Besked er sendt til:<BR><BR>Telefonnummer: "& rodfedfont & mobil &" <BR>"
'******** BESKED SENDES SLUT *********
else
sendsms = rodFedfont &"Telefonnummeret er ikke gyldigt !!! "& fe
end if
'**************** Find teleselskab slut *****************
end if
End Function
%>
<!-- SMS Functions slut -->
<%
If Request.Form("afsender") <> "" Then
Session("from") = Request.Form("afsender")
End If
%>
<html>
<head>
<title>:::STYLERsms::::</title>
<style type="text/css">
..button {background: #ffffff; border-bottom:solid 1px; border-left:solid 1px; border-right:solid 1px; border-top:solid 1px; border-bottom:solid 1px; cursor:hand; font-family:verdana; font-size: 8pt;}
..but {background: #ffffff; border-bottom:solid 1px; border-left:solid 1px; border-right:solid 1px; border-top:solid 1px; border-bottom:solid 1px; font-family:verdana; font-size: 8pt;}
</style>
<!-- Start javascript til at beregne antal tegn -->
<script type="text/javascript">
function BeskedLaengde( Formen ) {
b1 = Formen.besked.value.length
a1 = Formen.afsender.value.length
if( a1 > 0 ) {
b1 += a1 + 5
}
return b1
}
function updatetegntilbage( Formen ) {
tegntilbage = 144 - BeskedLaengde( Formen )
Formen.tegntilbage.value = tegntilbage
}
</script>
<!-- Slut javascript -->
</head>
<body leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<center>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<FORM METHOD="POST" NAME="smsform" ACTION="<%= Request.ServerVariables("PATH_INFO") %>">
<% if Request.Form("mode") <> "sendsms" then %>
<INPUT TYPE="HIDDEN" NAME="mode" VALUE="sendsms">
<% else %>
<INPUT TYPE="HIDDEN" NAME="mode" VALUE="sendnysms">
<% end if %>
<TR>
<TD>
<% if Request.Form("mode") = "" OR Request.Form("mode") = "sendnysms" then %>
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD VALIGN="TOP" ALIGN="LEFT">
<INPUT class="but" TYPE="TEXT" onFocus="this.form.telefonnummer.select()" NAME="telefonnummer" value="<% If Request.Form("Num") <> "" Then %><%= Request.Form("Num") %><% Else %>Modtager<% End If %>" SIZE="8" MAXLENGTH="8">
<input type="hidden" value="ja" name="nummer">
</TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="LEFT">
<INPUT class="but" TYPE="TEXT" onFocus="this.form.afsender.select()" NAME="afsender"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)"
value="<% If Session("from") <> "" Then %><%= Session("from") %><% Else %>Afsender<% End If %>" SIZE="33">
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<TEXTAREA class="but" ROWS="5" COLS="40" onFocus="this.form.besked.select()" NAME="besked"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)"
BORDER="0" SCROLLING="YES">Besked</TEXTAREA>
</TD>
</TR>
<TR>
<TD VALIGN="TOP"> <input class="but" type="text" name="tegntilbage" size="3" value="160"><font face="verdana" size="1"> Anslag tilbage</font></TD>
</TR>
</TABLE>
<% else %>
<BR>
<%= sendsms(Request.Form("telefonnummer")) %>
<% end if %>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<center><INPUT class="button" TYPE="SUBMIT" name="sms" VALUE=":: Send<% if Request.Form("mode") = "sendsms" then %> ny <% end if %>SMS ::"></center>
</TD>
</TR>
</FORM>
</TABLE>
</center>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
