Click here to Skip to main content
15,899,313 members
Home / Discussions / ASP.NET
   

ASP.NET

 
QuestionHow to control the list shown under a textbox ? Pin
Big Ralph9-Nov-07 4:12
Big Ralph9-Nov-07 4:12 
AnswerRe: How to control the list shown under a textbox ? Pin
Michael Sync11-Nov-07 0:13
Michael Sync11-Nov-07 0:13 
QuestionGridView Edit.. Pin
Dio229-Nov-07 4:03
Dio229-Nov-07 4:03 
AnswerRe: GridView Edit.. Pin
Dio229-Nov-07 4:19
Dio229-Nov-07 4:19 
Questionasp.net project info. Pin
i gr89-Nov-07 1:33
i gr89-Nov-07 1:33 
AnswerRe: asp.net project info. Pin
Paddy Boyd9-Nov-07 4:17
Paddy Boyd9-Nov-07 4:17 
AnswerRe: asp.net project info. Pin
Saksida Bojan9-Nov-07 6:50
Saksida Bojan9-Nov-07 6:50 
QuestionASP Email Script Not Working Pin
MelDrop9-Nov-07 1:18
MelDrop9-Nov-07 1:18 
I have added the script below to my website and if it is in test mode, it works fine - it writes the data to the screen. But when I take it out of test mode, it doesn't email me the data. I have pasted the script along with my code for the form. Can someone please tell me why it's not emailing? (Also, fyi, I do have a .txt file setup for the formatting of the email.) Thank you!

ASP Script named sendmail_cdo.asp

<%
option explicit

'---------------------------------------------------------------------------------------------------
'FORM MAIL SCRIPT
'----------------
'usage:
'<form ACTION="sendmail.asp" ...>
'
'hidden fields:
' redirect - the url to redirect to when the mail has been sent (REQUIRED)
' mailto - the email address of the recipient (separate multiple recipients with commas) (REQUIRED)
' cc - the email address of the cc recipient (separate multiple recipients with commas) (OPTIONAL)
' bcc - the email address of the bcc recipient (separate multiple recipients with commas) (OPTIONAL)
' mailfrom - the email address of the sender (REQUIRED)
' subject - the subject line of the email (REQUIRED)
' message - the message to include in the email above the field values. not used when a template is being used. (OPTIONAL)
' template - specifies a text or html file to use as the email template, relative to the location of the sendmail script. (e.g. ../email.txt)
' A template should reference form fields like this: [$Field Name$]
' html - if this has the value "yes", the email will be sent as an html email. only used if a template is supplied.
' testmode - if this is set to "yes", the email contents will be written to the screen instead of being emailed.
'---------------------------------------------------------------------------------------------------
dim pde : set pde = createobject("scripting.dictionary")
'---------------------------------------------------------------------------------------------------
'PREDEFINED ADDRESSES for the "mailto" hidden field
'if you don't want to reveal email addresses in hidden fields, use a token word instead and specify
'below which email address it applies to. e.g. <input type="hidden" name="mailto" value="%stratdepartment%">
'ALSO, in the same way, you can use %mailfrom% to hide the originating email address
pde.add "%contactform%", "myemail@someaddress.com"
pde.add "%salesenquiry%", "anotheremail@someaddress.com"
'---------------------------------------------------------------------------------------------------

function getTextFromFile(path)
dim fso, f, txt
set fso = createobject("Scripting.FileSystemObject")
if not fso.fileexists(path) then
getTextFromFile = ""
exit function
end if
set f = fso.opentextfile(path,1)
if f.atendofstream then txt = "" else txt = f.readall
f.close
set f = nothing
set fso = nothing
getTextFromFile = txt
end function

dim redir, mailto, mailfrom, subject, item, body, cc, bcc, message, html, template, usetemplate, testmode
redir = request.form("redirect")
mailto = request.form("mailto")
if pde.exists(mailto) then mailto = pde(mailto)
cc = request.form("cc")
bcc = request.form("bcc")
mailfrom = request.form("mailfrom")
if mailfrom = "" then mailfrom = pde("%mailfrom%")
subject = request.form("subject")
message = request.form("message")
template = request.form("template")
testmode = lcase(request.form("testmode"))="yes"

if len(template) > 0 then template = getTextFromFile(server.mappath(template))
if len(template) > 0 then usetemplate = true else usetemplate = false
dim msg : set msg = server.createobject("CDO.Message")
msg.subject = subject
msg.to = mailto
msg.from = mailfrom
if len(cc) > 0 then msg.cc = cc
if len(bcc) > 0 then msg.bcc = bcc

if not usetemplate then
body = body & message & vbcrlf & vbcrlf
else
body = template
end if
for each item in request.form
select case item
case "redirect", "mailto", "cc", "bcc", "subject", "message", "template", "html", "testmode"
case else
if not usetemplate then
if item <> "mailfrom" then body = body & item & ": " & request.form(item) & vbcrlf & vbcrlf
else
body = replace(body, "[$" & item & "$]", replace(request.form(item),vbcrlf,"<br>"))
end if
end select
next

if usetemplate then 'remove any leftover placeholders
dim rx : set rx = new regexp
rx.pattern = "\[\$.*\$\]"
rx.global = true
body = rx.replace(body, "")
end if

if usetemplate and lcase(request.form("html")) = "yes" then
msg.htmlbody = body
else
msg.textbody = body
end if
if testmode then
if lcase(request.form("html")) = "yes" then
response.write "<pre>" & vbcrlf
response.write "Mail to:" & mailto & vbcrlf
response.write "Mail from:" & mailfrom & vbcrlf
if len(cc) > 0 then response.write "Cc:" & cc & vbcrlf
if len(bcc) > 0 then response.write "Bcc:" & bcc & vbcrlf
response.write "Subject:" & subject & vbcrlf & string(80,"-") & "</pre>"
response.write body
else
response.write "<html><head><title>Sendmail.asp Test Mode</title></head><body><pre>" & vbcrlf
response.write "Mail to: " & mailto & vbcrlf
response.write "Mail from: " & mailfrom & vbcrlf
if len(cc) > 0 then response.write "Cc: " & cc & vbcrlf
if len(bcc) > 0 then response.write "Bcc: " & bcc & vbcrlf
response.write "Subject: " & subject & vbcrlf & vbcrlf
response.write string(80,"-") & vbcrlf & vbcrlf & "<span style=""color:blue;"">"
response.write body & "</span>" & vbcrlf & vbcrlf
response.write string(80,"-") & vbcrlf & "**END OF EMAIL**</pre></body></html>"
end if
else
msg.send
response.redirect redir
end if
set msg = nothing
%>







Form page...
<form name="form1" method="post" action="sendmail_cdo.asp">
<div align="left">
<p class="style3">
<input name="redirect" type="hidden" id="redirect" value="surveycomplete.htm">
<input name="mailto" type="hidden" id="mailto" value="melissawaldrop@comcast.net" />
<input name="subject" type="hidden" id="subject" value="New Inquiry">
<input name="template" type="hidden" id="template" value="contactform.txt">
<input name="testmode" type="hidden" id="testmode" value="no">
</p>
<p class="style3">First Name
<input name="FName" type="text" id="FName">
Last Name
<input name="LName" type="text" id="LName">
</p>
<p class="style20"><span class="style3"><span class="style31">Email</span>
<input name="Email" type="text" id="Email">
<span class="style31">Phone </span>
<input name="Phone" type="text" id="Phone">
</span> </p>
<p>
<input type="submit" name="Submit" value="Send">
</p>
</div>
</form>

AnswerWrong forum Pin
pmarfleet9-Nov-07 4:19
pmarfleet9-Nov-07 4:19 
QuestionError while replacing a file in use Pin
tonymathewt9-Nov-07 0:53
professionaltonymathewt9-Nov-07 0:53 
QuestionEmail in Asp.Net 2.0 Pin
freshonlineMax9-Nov-07 0:28
freshonlineMax9-Nov-07 0:28 
AnswerRe: Email in Asp.Net 2.0 Pin
Michael Sync9-Nov-07 0:33
Michael Sync9-Nov-07 0:33 
GeneralRe: Email in Asp.Net 2.0 Pin
freshonlineMax9-Nov-07 0:49
freshonlineMax9-Nov-07 0:49 
GeneralRe: Email in Asp.Net 2.0 Pin
Michael Sync9-Nov-07 1:10
Michael Sync9-Nov-07 1:10 
GeneralRe: Email in Asp.Net 2.0 Pin
freshonlineMax10-Nov-07 23:33
freshonlineMax10-Nov-07 23:33 
GeneralRe: Email in Asp.Net 2.0 Pin
Michael Sync11-Nov-07 0:05
Michael Sync11-Nov-07 0:05 
AnswerRe: Email in Asp.Net 2.0 Pin
Vasudevan Deepak Kumar9-Nov-07 0:45
Vasudevan Deepak Kumar9-Nov-07 0:45 
QuestionUncheck ASP.Net TreeView Checkboxes Pin
khuzwayom8-Nov-07 23:30
khuzwayom8-Nov-07 23:30 
AnswerRe: Uncheck ASP.Net TreeView Checkboxes Pin
Vasudevan Deepak Kumar9-Nov-07 0:43
Vasudevan Deepak Kumar9-Nov-07 0:43 
QuestionHttpHandler - dynamic images Pin
Chris_Green8-Nov-07 23:26
Chris_Green8-Nov-07 23:26 
AnswerRe: HttpHandler - dynamic images Pin
Vasudevan Deepak Kumar9-Nov-07 0:42
Vasudevan Deepak Kumar9-Nov-07 0:42 
GeneralRe: HttpHandler - dynamic images Pin
Chris_Green9-Nov-07 0:44
Chris_Green9-Nov-07 0:44 
QuestionDisable controls and validators client-side Pin
dabs8-Nov-07 23:03
dabs8-Nov-07 23:03 
Questionstream video from Youtube To ASPX Page Help Needed Pin
bijeshputhalath8-Nov-07 19:13
bijeshputhalath8-Nov-07 19:13 
AnswerRe: stream video from Youtube To ASPX Page Help Needed Pin
Michael Sync8-Nov-07 19:38
Michael Sync8-Nov-07 19:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.