C
Christopher Brandsdal
I have made a asp mailform.
What is wrong?
I get this error:
Microsoft VBScript runtime error '800a0046'
Permission denied
/fh/medlemsnett/send_mail.asp, line 26
Line 26 looks like this:
objCDONTS.Send
Here is the code:
<%
Dim name, email, message, messageSubject
name = request.form("name")
email = request.form("email")
message = request.form("message")
messageSubject = request.form("Meldingstittel")
Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim misccompo
strSubject = Request.Form("Emne")
strFromName = Session("Navn")
strFromEmail = Session("Epost")
strToEmail = Trim(Request.Form("til"))
strBody = Trim(Request.Form("Melding"))
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = messageSubject & strSubject
objCDONTS.Body = "--------------------------------------" & vbcrlf & vbcrlf
& strbody & vbcrlf & vbcrlf & vbcrlf &
"--------------------------------------------------------------" & vbcrlf &
"MESSAGE ENDS: End of message"
objCDONTS.Send
Set objCDONTS = Nothing
response.redirect "default.asp"
response.end
%>
What is wrong?
I get this error:
Microsoft VBScript runtime error '800a0046'
Permission denied
/fh/medlemsnett/send_mail.asp, line 26
Line 26 looks like this:
objCDONTS.Send
Here is the code:
<%
Dim name, email, message, messageSubject
name = request.form("name")
email = request.form("email")
message = request.form("message")
messageSubject = request.form("Meldingstittel")
Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim misccompo
strSubject = Request.Form("Emne")
strFromName = Session("Navn")
strFromEmail = Session("Epost")
strToEmail = Trim(Request.Form("til"))
strBody = Trim(Request.Form("Melding"))
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = messageSubject & strSubject
objCDONTS.Body = "--------------------------------------" & vbcrlf & vbcrlf
& strbody & vbcrlf & vbcrlf & vbcrlf &
"--------------------------------------------------------------" & vbcrlf &
"MESSAGE ENDS: End of message"
objCDONTS.Send
Set objCDONTS = Nothing
response.redirect "default.asp"
response.end
%>