jmail konvertering
HejJeg har skiftet sever og derfor
skal jeg konvertere mine asp mail scripts
om til jmail.
Jeg får dog fejl i følgende......
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'JMail.FromName'
/sms.asp, line 128
Hvad er der galt ?
KODE: '
<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end html.dk
' Kontakt info@html.dk hvis du er i tvivl
' ****************************************************************
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="da" lang="da">
<head>
<title>SMS-sender</title>
<!-- 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 = 160 - BeskedLaengde( Formen )
Formen.tegntilbage.value = tegntilbage
}
</script>
<!-- Slut javascript -->
</head>
<body>
<%
' Hvis formen ikke er submittet vises formular
If Request.Form("nummer") = "" Then
%>
<h1>Send SMS-besked</h1>
<form action="<% =Request.Servervariables("SCRIPT_NAME") %>" method="post">
<label for="t1">Modtagerens mobilnummer:</label><br />
<input size="20" type="text" name="nummer" id="t1" /><br />
<label for="t2">Dit navn, e-mail eller nummer:</label><br />
<input size="20" type="text" name="afsender" id="t2"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)" /><br />
<label for="t3">Besked:</label><br />
<textarea name="besked" rows="5" id="t3" cols="30"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)"></textarea><br />
<input type="text" name="tegntilbage" size="3" value="160"
onfocus="blur()" id="t4" /> anslag tilbage<br />
<input type="submit" value="Send besked" />
</form>
<%
' Ellers sendes SMS
Else
' Fjern alle mellemrum i mobilnummeret
intNummer = Replace(Request.Form("nummer")," ","")
' Endelser for de enkelte udbydere
strMobilix = "@sms.mobilix.dk"
strSonofon = "@note.sonofon.dk"
strTelia = "@gsm1800.telia.dk"
strTDC = "@sms.tdm.dk"
strTelefona = "@sms.tdm.dk"
' De første 4 cifre af nummeret til at bestemme udbyder
int4cifre = int(left(intNummer,4))
' Udfra nummerserien bestemmes udbyder (og dermed endelsen)
if int4cifre => 2010 and int4cifre =< 2059 then
strUdbyder = strTDC
elseif int4cifre => 2060 and int4cifre =< 2099 then
strUdbyder = strSonofon
elseif int4cifre => 2110 and int4cifre =< 2199 then
strUdbyder = strTDC
elseif int4cifre => 2210 and int4cifre =< 2299 then
strUdbyder = strSonofon
elseif int4cifre => 2310 and int4cifre =< 2399 then
strUdbyder = strTDC
elseif int4cifre => 2410 and int4cifre =< 2499 then
strUdbyder = strTDC
elseif int4cifre => 2510 and int4cifre =< 2539 then
strUdbyder = strSonofon
elseif int4cifre => 2610 and int4cifre =< 2699 then
strUdbyder = strMobilix
elseif int4cifre => 2710 and int4cifre =< 2799 then
strUdbyder = strMobilix
elseif int4cifre => 2810 and int4cifre =< 2899 then
strUdbyder = strTelia
elseif int4cifre => 2910 and int4cifre =< 2990 then
strUdbyder = strTDC
elseif int4cifre => 2991 and int4cifre =< 2992 then
strUdbyder = strTelefona
elseif int4cifre => 2993 and int4cifre =< 2999 then
strUdbyder = strTDC
elseif int4cifre => 3010 and int4cifre =< 3099 then
strUdbyder = strTDC
elseif int4cifre => 4010 and int4cifre =< 4049 then
strUdbyder = strTDC
elseif int4cifre => 4050 and int4cifre =< 4099 then
strUdbyder = strSonofon
elseif int4cifre => 5000 and int4cifre =< 5999 then
strUdbyder = strTDC
end if
' Den færdige SMS-adresse
SMSadresse = intNummer & strUdbyder
' ----------------------------------------
' Udskift eventuelt denne kode hvis anden mailkomponent benyttes
' Start send e-mail med AspMail
' ----------------------------------------
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Logging = true
JMail.silent = true
JMail.FromName = request.form("afsender")
JMail.FromAddress "sms@domain.dk"
JMail.AddRecipient SMSadresse, SMSadresse
JMail.Subject = ""
JMail.Body Request.Form("besked")
if JMail.SendMail then
Response.Write "<h1>SMS er afsendt til " & SMSadresse & "</h1>"
else
Response.Write "<h1>Der skete en fejl: " & JMail.Response & "</h1>"
end if
Set JMail = Nothing
' ----------------------------------------
' Slut send e-mail med AspMail
' ----------------------------------------
End If
%>
</body>
</html>
